Fermer macro apres MSGbox ok only / question

Bonjour à toutes et à tous.

J'ai une macro qui valide des données. Quand la valeur = 0 il y a un message box qui apparait. C'est un vbokonly.

Je voudrais que la validation s'arrête dès le premier message qui apparait.

Sub Validation_donnee()

Dim t As Integer

For t = 4 To 200 ' no ligne

If (Cells(t, 1)) = "0" Then MsgBox "Il y a des valeurs sans corresponnce, regarder la colonne A", vbOKOnly, "                  ATTENTION"

Next t

End Sub

Merci de votre support

Bonjour,

Sub Validation_donnee()
    Dim t As Integer
    For t = 4 To 200 ' no ligne
        If (Cells(t, 1)) = "0" Then
            MsgBox "Il y a des valeurs sans corresponnce, regarder la colonne A", vbOKOnly, "                  ATTENTION"
            Exit Sub
        End If
    Next t
End Sub

Cdlt

Bonjour

Il suffit d'ajouter une instruction "Exit sub" juste après le MsgBox

    For t = 4 To 200 ' no ligne
        If (Cells(t, 1)) = "0" Then
            MsgBox "Il y a des valeurs sans corresponnce, regarder la colonne A", vbOKOnly, "                  ATTENTION"
            Exit Sub
        '...
        '...
        End If
    Next t

Bye

MERci arturo 83 .

Je prends bonne note