Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.
  • Initiateur de la discussion Initiateur de la discussion Tail
  • 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 !

Tail

XLDnaute Occasionnel
bonsoir
j'ai ce code pour, lorsque je tape un N° excel verifie si il existe deja et me donne un message

Private Sub N_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Me.N.Value = ListIndex + 1 Then GoTo 10 Else GoTo 15
10 msg = MsgBox("Le N° figure déjà dans la liste !!", vbInformation, "existant !!!")
If msg = 1 Then Unload Me
15 Application.ScreenUpdating = False
End Sub

mais j'ai beau taper un N° deja existant il ne se passe rien, elle les doublons s'accumulent
merci de votre aide
 
Re : Doublons

Bonjour à tous

Essaye comme ça:

Private Sub N_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Me.N.Value = ListIndex + 1 Then GoTo 10
Else GoTo 15
end if
10: msg = MsgBox("Le N° figure déjà dans la liste !!", vbInformation, "existant !!!")
If msg = 1 Then Unload Me
15: Application.ScreenUpdating = False
End Sub
 
Re : Doublons

non désolé ça ne fonctionne pas avec end if il me renvoie un code erreur
et si je le laisse comme ça il me met systématiquement le message que le N° existe déjà

merci de votre aide
 
- 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

Réponses
5
Affichages
911
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
452
Réponses
2
Affichages
504
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…