Discussion :

[electrosat03]

Bonsoir à tous,

Dans une procédure, j'aimerais écrire une formule dans une cellule (I3) pour commencer, dans le code j'incrémente l'adresse par NextRow
ws.Cells(NextRow, "I").Formula = "=SI(A & NextRow ="";"";"*" & A & NextRow & "*")" La formule est à adapter car il y a des erreurs de synthaxe

J'ai essayé plusieurs façons mais j'ai des erreurs.

Merci

[tototiti2008]

Bonsoir,

à tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ws.Cells(NextRow, "I").Formula = "=IF(A" & NextRow & "="""","""",""*A" & NextRow & "*"")"

[electrosat03]

Merci tototiti2008 pour ta réponse
Je venais juste de trouver finalement, comme quoi la oersévérence ça paie.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"=SI(G" & currentRow & "="""";"""";""*"" & G" & currentRow & " & ""*"")"