Discussion :

[pilounet54]

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

Code :

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

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

[tedo01]

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 :

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

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

[pilounet54]

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

[mercatog]

Ou bien sans boucle

Code :

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

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

L'équivalent de NB.SI