plage valeur alcoolsetvins

bonjour je souhaite mettre dans la cellule a1 ok si il rencontre une valeur ok dans la plage
sa fonctionne pas ?

Code:

---

1 2 3 4 5 6 7 8

For Each C In Range("plagevaleuralcoolsetvins") If C.Value = "ok" Then Cells(1, 1) = "ok" Else Cells(1, 1) = "" End If   Next

---

merci de votre aide

Bonjour,
Dans ton code, c'est la dernière cellule de la plage qui fixe la valeur en A1.
Pour avoir ok si une cellule contient ok, il faut sortir de la boucle dès que la valeur est trouvée :

Code:

---

1 2 3 4 5 6 7 8

Cells(1, 1) = "" For Each C In Range("plagevaleuralcoolsetvins") If C.Value = "ok" Then Cells(1, 1) = "ok" Exit For End If Next C

---

je te remercie c'est en plus completement logique en plus, mais bon on peu pas avoir toujours vingt ans
++:ccool:

Ou bien sans boucle

Code:

---

Range("A1") = IIf(Application.CountIf(Range("plagevaleuralcoolsetvins"), "ok") > 0, "ok", "")

---

L'équivalent de NB.SI