comparaison d'une valeur à un liste

[G.David]

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)

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

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

 

[Spitnolan08]

Re : comparaison d'une valeur à un liste

Bonjour,

Juste pour participer,
Est ce qu'un truc du style :

ComboBox2.Value = TextBox1.Value
For t = 0 To ComboBox2.ListCount-1
If ComboBox2.list(t) = Textbox1.value Then
Unload Me
MsgBox "cet article est déjà existant"
Exit For
End If
Next
End Sub

ne pourrait pas fonctionner ?

Nota : je déteste les listes intégrées aux feuilles😀

Cordialement

 

[G.David]

Re : comparaison d'une valeur à un liste

Merci
j'ai trouvé un truc qui est déjà un poil plus "correct"

Dim cel
Dim t
t = TextBox1.Value
fin = Sheets("donnees").Range("b65535").End(xlUp).Row
plage = Range("b2:b" & fin)
With Sheets("donnees")
For Each cel In plage
If Cstr(cel) = t Then
 MsgBox "article déjà existant"
Exit For
Else
End If
Next
End With

donc j'abandonne le combobox qui ne me servait que pour récupéré la liste .
Pour la liste dans la feuille ... Excel est quand mêm un tableur . à la base
Encore merci
G.David

 

[Spitnolan08]

Re : comparaison d'une valeur à un liste

Re,

Pour la liste dans la feuille ... Excel est quand mêm un tableur . à la base

Je ne parlais pas de ça, mais de ta combo dans ta feuille si toutefois j'avais bien compris ton problème...
Car sauf erreur tu ne parlais pas d'UF...

Cordialement

 

[G.David]

Re : comparaison d'une valeur à un liste

Ben si c'est le septième mot de mon premier message USF
G.David

 

[Spitnolan08]

Re : comparaison d'une valeur à un liste

Re,
Je n'avais donc pas compris le pb mais ton premier message indiquait :

celle ci doit etre comparée à une liste dans la feuille

J'ai donc compris que la liste était celle de la combo insérée dans la feuille...
Comme il est question dans ce fil par exemple :
https://www.excel-downloads.com/threads/combobox-dans-une-cellule.77455/

Mais ce n'est pas bien grave. L'essentiel étant que ton pb est résolu.
Seul enseignement à retenir : la prochaine fois joints un fichier...😉 pour éviter les erreurs d'interprétation. On n'est pas toujours bien réveillé!

Cordialement