G.David
XLDnaute Impliqué
Bonjour
le problème
j'ai dans un USF une entée effectuée à l'aide d'un textbox celle ci doit etre comparée à une liste dans la feuille
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
pour l'intant je tourne comme cela (mais ceci ne me parait pas Orthodoxe ,ni même de quelque religion que ce soit ) mais là je tourne en rond sur ce truc à noter que bien que le code fonctionne en cas de :" MatchFound" la boite de dialogue s'ouvre deux fois
si quelqu'un à l'explication
Merci
G.David
le problème
j'ai dans un USF une entée effectuée à l'aide d'un textbox celle ci doit etre comparée à une liste dans la feuille
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Code:
Sheets("Donnees").Select
ComboBox2.Value = TextBox1.Value
For t = -1 To ComboBox2.ListCount
If ComboBox2.Value = ComboBox2.MatchFound Then
Unload Me
MsgBox "cet article est déjà existant"
Exit For
Else
End If
Next
End Sub
si quelqu'un à l'explication
Merci
G.David