Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

msgbox

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion chinel
  • 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 !

S'inscrire

chinel

XLDnaute Impliqué
Salut tout le monde !

j'ai un code qui marche bien mais éviter de répéter tout le temps le même message !
car la personne qui utilise ce petit programme n'est pas contente que chaque fois qu'elle choisi une combobox et qu'elle met les mêmes données les messages apparaissent autant de fois qu'il y a de combobox

il doit apparaitre qu'une fois du style :
combobox.value<>combobox3.value,combobox4.value,... alors message ("David attention prénom déjà utilisé !")


voici mon code pour le moment :

Private Sub ComboBox7_Change()
If ComboBox7.Value = ComboBox6.Value Then
MsgBox ("David attention prénom déjà utilisé !")
ComboBox7.Value = ""
End If
If ComboBox7.Value = ComboBox5.Value Then
MsgBox ("David attention prénom déjà utilisé !")
ComboBox7.Value = ""
End If
If ComboBox7.Value = ComboBox4.Value Then
MsgBox ("David attention prénom déjà utilisé !")
ComboBox7.Value = ""
End If
If ComboBox7.Value = ComboBox3.Value Then
MsgBox ("David attention prénom déjà utilisé !")
ComboBox7.Value = ""
End If
End Sub
 
Trier par date Trier par votes
Re : msgbox

Bonjour,
Essaie en ajoutant un Exit Sub si ton test est valide:
Private Sub ComboBox7_Change()
If ComboBox7.Value = ComboBox6.Value Then
MsgBox ("David attention prénom déjà utilisé !")
ComboBox7.Value = ""
Exit Sub
End If
If ComboBox7.Value = ComboBox5.Value Then
MsgBox ("David attention prénom déjà utilisé !")
ComboBox7.Value = ""
Exit Sub
End If
If ComboBox7.Value = ComboBox4.Value Then
MsgBox ("David attention prénom déjà utilisé !")
ComboBox7.Value = ""
Exit Sub
End If
If ComboBox7.Value = ComboBox3.Value Then
MsgBox ("David attention prénom déjà utilisé !")
ComboBox7.Value = ""
Exit Sub
End If
End Sub
😎
 
Vote positif 0 Vote négatif
Re : msgbox

Salut Chinel et bonjour à tout chaland qui passe,

Le code suivant (pas testé) répond-il à ta demande ?
Code: 
Private Sub ComboBox7_Change()

For i = 3 To 6
    If ComboBox7.Value = Controls("Combobox" & i).Value Then
        MsgBox ("David attention prénom déjà utilisé !")
        ComboBox7.Value = ""
        Exit for
    End If
Next i

End Sub
 
Vote positif 0 Vote négatif
Re : msgbox

Salut JNP merci de t'intéresser à mon problème même si je mets ton code celui me donne le même résultat que le mieux
j'explique j'ai 4 combobox
dans la combobox1 je rentre un mot puis la deuxième combobox2 apparaît je rentre un mot mais si je mets le même que celui de la première combobox un message doit me prévenir ("Attention ! 2 fois le même mot !") et vider le mot de la combobox2 ainsi de suite avec les 4 combobox
aucune des 4 combobox ne peuvent avoir les même données
 
Vote positif 0 Vote négatif
Re : msgbox

Re-bonjour,
Dans ce cas là, je verrais plutôt un test multiple:
Private Sub ComboBox2_Change()
If ComboBox2.Value = ComboBox1.Value Then
MsgBox ("David attention prénom déjà utilisé !")
ComboBox2.Value = ""
End If
Private Sub ComboBox3_Change()
If ComboBox3.Value = ComboBox1.Value Or _
ComboBox3.Value = ComboBox2.Value Then
MsgBox ("David attention prénom déjà utilisé !")
ComboBox3.Value = ""
End If
Etc.
Bien sûr, comme indiqué par Excel_lent, tu peux simplifier le code avec un For Next
Courage 😀
 
Vote positif 0 Vote négatif
Re : msgbox

merci JNP, cela marche bien dans le cas ou la combobox se trouve en dessous
je m'explique si combobox2 est de même valeur que la combobox1 alors message d'erreur mais cela fonction que dans un sens et non pas si combobox1 est de même valeur que la combobox2,cbb3,cbb4

je voudrais bien :

valeur combobox1 <> de combobox2,combobox3,combobox4
valeur combobox2 <> de combobox1,combobox3,combobox4
valeur combobox3 <> de combobox1,combobox2,combobox4
valeur combobox4 <> de combobox1,combobox2,combobox3

merci de ton aide !
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

X
  • Question Question
Microsoft 365 compte à rebours avec application.OnTime (Résolu)
Réponses
9
Affichages
351
xabino
X
  • Résolu(e)
XL 2016 problème au niveau d'un contrôle dans VBA
Réponses
2
Affichages
578
chinel
U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
617
un internaute
U
D
  • Résolu(e)
XL 2021 Combobox vide
Réponses
9
Affichages
385
Did25
D
F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
734
kiki29
J
  • Résolu(e)
XL 2021 Filtre combobox
Réponses
5
Affichages
418
Dranreb
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
911
TooFatBoy
E
  • Résolu(e)
Microsoft 365 Combobox ajouter si n'existe pas dans Liste
2 3 4
Réponses
47
Affichages
3 K
cathodique
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
430
patricktoulon
  • Résolu(e)
XL 2016 Excel code vba motus
Réponses
11
Affichages
672
papychat1
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
D
  • Question Question
XL 2021 Filtre Multi Critères Listview VBA
2
Réponses
21
Affichages
3 K
Dranreb
C
  • Résolu(e)
XL 2016 MsgBox avec critères
2
Réponses
22
Affichages
961
candido57
C
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
2 K
Gestionnaire_rh
G
S
  • Question Question
XL 2019 Modifications avec Combobox liées
Réponses
7
Affichages
491
Dranreb
F
  • Question Question
Microsoft 365 Problème avec VBA ( Résolu)
Réponses
2
Affichages
565
firecarl
F
M
  • Résolu(e)
XL 2021 PUBLIPOSTAGE : Mise en forme du corps de message issu d'une cellule excel (VBA)
Réponses
4
Affichages
809
Minus&Cortex
M
B
  • Question Question
Microsoft 365 contrôler un EXIT
Réponses
2
Affichages
274
Bill73
B
G
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
903
GClaire
G
S
  • Résolu(e)
Microsoft 365 VBA Match: comment éviter l'erreur?
2
Réponses
29
Affichages
1 K
Dranreb
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…