Afficher un MsgBox en fonction de la valeur d'une colonne

Bonjour,

J' aimerais afficher un Message en fonction d'une valeur d'une colonne voici mon code :

Sub calculer()

Dim valeur As String
valeur = "Non"

Dim colonne As Range
Set colonne = ThisWorkbook.Sheets("Feuil1").Range("M:M")

If colonne = valeur Then
    mgsbox ("ok")

End If

End Sub

Merci

Bonjour,

J' aimerais afficher un Message en fonction d'une valeur d'une colonne voici mon code

Vous voulez un message à chaque NON ou vous voulez un message dès qu'un seul NON est trouvé ?

Cordialement

Bonjour à vous,

je voudrais un message dès que Non est trouvé

Cordialement

re

je voudrais un message dès que Non est trouvé

Essayez ceci :

Sub calculer()
Dim plage As Range
Set plage = ThisWorkbook.Sheets("Feuil1").Range("M:M")
If WorksheetFunction.CountIf(plage, "Non") Then MsgBox "ok"
End Sub

Rem : pour vos variable évitez toujours d'utiliser des noms de formules ou instructions utilisés par excel. Ex pour COLONNE que vous aviez mis

Si ok

Cordialement

Ca fonctionne, merci beaucoup