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!
En cas de doute, enregistrez une macro si elle le permet :)
Essaye ça
.Range("A2").Formula = "=IF(Pivot!A5="""",A1,Pivot!A5)"
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)"
vous pourriez avoir besoin de faire ceci:
.Range("A2").Formula = "=IF(Pivot!A5="& """" & """" & ",A1,Pivot!A5)"