Formule dans cellule par VBA

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

Bonsoir,

à tester

Code:

---

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

---

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

Code:

---

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

---

Hello,

avec FormulaLocal c'est bien SI que vous pouvez utiliser, mais avec Formula (tout court) c'est IF

Salut,

Oui, j'avais oublié ce détail
Merci

Bonjour,
L'utilisation de la variable currentRow laisse supposer l'usage d'une boucle pour écrire cette formule sur plusieurs ligne.
Il est tout à fait possible d'écrire en une seule instruction une formule sur une plage complète et de plus pour éviter cette suite de guillemets, je privilégie l'utilisation de la fonction Replace

Exemple
Dans le petit code ci-dessous, on écrit dans la plage I2:I50 la formule =SI(NBCAR(A2);"*" & A2 & "*";SUPPRESPACE(A2)) et pour éviter la suite de guillemets, je crée une constante avec le texte de la formule avec des barres verticales pour les guillemets et la fonction Replace remplace ceux-ci par le code ASCII 34 (guillemet)

Code:

---

1 2 3 4 5 6 7

Sub t() Const Mask As String = "=IF(LEN(A2),|*| & A2 & |*|,TRIM(A3))" Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets("Feuil1") ws.Range("I2:I50").Formula = Replace(Mask, "|", Chr(34)) Set ws = Nothing End Sub

---