hello tt le monde
Bon j'ai encore un truc qui cloche
Voilà j'ai le code suivant:
Le message 1 marche bien
Par contre le message 2 s'affiche tout le temps alors que la valeur de la cellule CJ2 est vide pourquoi ? Que faut - il faire?
Dim Message1 As Integer
Dim Message2 As Integer
If Entrees.Ref.RowSource = "" Then GoTo Erreur1
If Range("DONNEES!CJ2").Value = 3 Then GoTo Erreur2
GoTo Fin
Erreur1:
Message1 = MsgBox("Veuillez sélectionner le nom", vbOKOnly)
Erreur2:
Message2 = MsgBox("La date de relance doit être postérieure à la date de saisie", vbOKOnly)
Fin:
End Sub
Merci encore
Fil
Bon j'ai encore un truc qui cloche
Voilà j'ai le code suivant:
Le message 1 marche bien
Par contre le message 2 s'affiche tout le temps alors que la valeur de la cellule CJ2 est vide pourquoi ? Que faut - il faire?
Dim Message1 As Integer
Dim Message2 As Integer
If Entrees.Ref.RowSource = "" Then GoTo Erreur1
If Range("DONNEES!CJ2").Value = 3 Then GoTo Erreur2
GoTo Fin
Erreur1:
Message1 = MsgBox("Veuillez sélectionner le nom", vbOKOnly)
Erreur2:
Message2 = MsgBox("La date de relance doit être postérieure à la date de saisie", vbOKOnly)
Fin:
End Sub
Merci encore
Fil