Boucle VBA + message si vrai

Bonjour à tous,

j'essaie par plusieurs moyen de faire une boucle qui dise :

Si dans ma sélection (Z13 à la dernière cellule non vide) les caractères "O" ou "N" sont présents,

alors rien.

Sinon, afficher le message "pas bon"

Je suis sûr que c'est très simple mais je me torture l'esprit

PS: Il y des choses en notes qui peuvent peut-être servir

Merci d'avance

Maxime

Slt Maxouille57800,

la colonne Z est vide donc j'ai pris la colonne A comme exemple:

Sub Mise_au_format2()
derniereLigne = Range("A" & Rows.Count).End(xlUp).Row
Dim pl As Range
If Cells(derniereLigne, 1).Value = "O" Or Cells(derniereLigne, 1).Value = "N" Then
' pour la colonne Z utilise ce code If Cells(derniereLigne, 26).Value = "O" Or Cells(derniereLigne, 26).Value = "N" Then
MsgBox "OK!"
Else
MsgBox "Pas Bon!"
End If
End Sub

Salut,

Une autre variante ...

Sub Mise_au_format3()
Dim cpt As Long
Dim derniereLigne As Long
Dim pl As Range, c As Range
derniereLigne = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
Set pl = Range("A13:A" & derniereLigne)
  For Each c In pl
      If c.Value <> "O" And c.Value <> "N" Then cpt = cpt + 1
  Next c
  If cpt = 0 Then MsgBox "OK!"
End Sub

Salut m3ellem1,

merci beaucoup pour ta réponse,

elle fonctionne parfaitement !!

Merci également à toi James 007 !!!

Ta version me va très bien aussi

Maxouille

Content que tu aies pu résoudre ton problème ...