web-dev-qa-db-fra.com

Excel (2007) VBA - Formule avec guillemets

J'ai essayé de mettre le code suivant dans un programme hier. VBA a appelé une erreur. Je suppose que c'est à cause des guillemets dans la formule. J'ai cherché sur Google et tous les résultats que j'ai trouvés ne donnaient que la base de la mise en place des formules, mais aucun n'a expliqué comment contourner les citations.

(il y avait une déclaration With auparavant, Pivot est un nom de feuille de calcul)

.Range("A2").Formula = "=IF(Pivot!A5="",A1,Pivot!A5)" 

Toute aide est très appréciée. Merci!

11
Graphth

En cas de doute, enregistrez une macro si elle le permet :)

Essaye ça

.Range("A2").Formula = "=IF(Pivot!A5="""",A1,Pivot!A5)" 
24
Siddharth Rout

Utilisez Chr(34) à la place d'un guillemet double.

Donc dans votre cas:

.Range("A2").Formula = "=IF(Pivot!A5=" & Chr(34) & Chr(34) & ",A1,Pivot!A5)"
5
Marc

vous pourriez avoir besoin de faire ceci:

.Range("A2").Formula = "=IF(Pivot!A5="& """" & """" & ",A1,Pivot!A5)" 
1
Greg