msgbox

[chinel]

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

 

[JNP]

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
😎

 

[Excel_lent]

Re : msgbox

Salut Chinel et bonjour à tout chaland qui passe,

Le code suivant (pas testé) répond-il à ta demande ?

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

 

[chinel]

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

 

[chinel]

Re : msgbox

Salut Excel lent, je revient sur le problème que le mien !

merci de ton aide !!!

 

[JNP]

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 😀

 

[chinel]

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 !

 

[JNP]

Re : msgbox

Re,
Post ton fichier SVP, que je puisse regarder plus attentivement