Traduire une formule en code VBA

Bonjour,

Comment je peux traduire la formule suivante :

Code:

---

si(N7:N1000="Autres";"OK";"")

---

en code VBA ?

Merci.

Salut, à tester et adapter.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Option Explicit   private Sub Essai(r As Range) Dim c As Range For Each c In r If c.Value = "Autres" Then Debug.Print "Ok" Else Debug.Print "xx" End If Next c End Sub   Sub Tst() Essai Range("N7: N1000") End Sub

---

ou alors via FormulaLocal ?

PS : oops, pas vu à temps la réponse d'Hervé

Bonjour,

Tu ne peux appliquer cette formule que sur une seule cellule :

Code:

---

1 2	Range("A1").Formula = "=IF(N7=""Autres"",""OK"","""")"

---

et non :

Code:

---

1 2	Range("A1").Formula = "=IF(N7:N1000=""Autres"",""OK"","""")"

---

ou alors, il te faut modifier ta formule en utilisant d'autre fonctions.

Hervé.

Bonjour,

J’ai interprété ta demande différemment.
Si j’ai bien saisi, tu souhaites vérifier si toutes les cellules de la plage N7 :N1000 contiennent le texte "Autres".
Dans ce cas, la formule s’apparenterait à cela

Code:

---

=SI(NB.SI(N7:N1000;"Autres")=LIGNES(N7:N1000);"OK";"")

---

Et un code VBA correspondant

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Option Explicit Sub Essai() Dim c As Range Dim Test As String Test = "OK" For Each c In Range("N7:N1000") If c.Value <> "Autres" Then Test = "" Exit For End If Next c Debug.Print Test End Sub

---

Cordialement.

Bonjour et merci pour votre aide.

Le problème est résolu.:ccool: