Pb msgbox

[jessica]

Salut à tous!!!

J'ai un petit problème avec un code ça serait sympa si quelqu'un pouvait m'aider!!! 😀

Il s'agit d'un code qui permet quand on clique sur un bouton "vérifier que cet élément n'existe pas dans la liste"... de vérifier!

Si je mets une seule msgbox c'est nikel mais le problème c'est avec la deuxième car ça me l'écris à chaque fois qu'il descend d'une cellule!!! 😱 lol!

Voici mon code!!!


Private Sub CommandButton6_Click()
'Pour Vérifier les doublons

Feuil1.Range("B2").Select
element = TextBox2

While Selection.Value <> ""

If element = Selection.Value Then
MsgBox "Attention cet élément existe déjà!"
TextBox2 = ""
Else
MsgBox "Cet élément n'existe pas dans la base de données vous pouvez poursuivre votre saisie!'"
End If
Selection.Offset(1, 0).Select
Wend

Range("A2").Select
End Sub



Voili voilou,

Merci par avance,

Jessica.

 

[pierrejean]

Re : Pb msgbox

bonsoir Jessica

veux-tu tester cela

Private Sub CommandButton1_Click()
'Pour Vérifier les doublons
Feuil1.Range("B2").Select
element = TextBox2
While Selection.Value <> ""
If element = Selection.Value Then
MsgBox "Attention cet élément existe déjà!"
TextBox2 = ""
Exit Sub
End If
Selection.Offset(1, 0).Select
Wend
 
MsgBox "Cet élément n'existe pas dans la base de données vous pouvez poursuivre votre saisie!'"
Range("A2").Select
End Sub

 

[jessica]

Re : Pb msgbox

Génial!!!

Merci bcp Pierre-Jean ça marche nikel!!! 😀

Jessica.