• Initiateur de la discussion Initiateur de la discussion fileofish
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

fileofish

XLDnaute Occasionnel
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
 
Re : Message Box

bonsoir le forum, fileofish
je pense qu'il faut que tu mettes un exit sub

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)

exit sub
Erreur2:
Message2 = MsgBox("La date de relance doit être postérieure à la date de saisie", vbOKOnly)
Fin:
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Macro vba excel
Réponses
6
Affichages
441
Retour