Re : Savoir si une valeur appartient à une liste de valeur
Merci à tous les deux, cela fonctionne parfaitement dans les deux cas!
Private Sub CommandButton1_Click()
Dim i&, fin&, aa As Variant
If TextBox1 = "" Then Exit Sub
fin = Feuil1.Range("A65536").End(xlUp).Row
aa = Feuil1.Range("A2
" & fin)
For i = 1 To UBound(aa)
If aa(i, 2) = "Oui" And aa(i, 1) Like "*" & CDbl(TextBox1.Value) & "*" Then MsgBox "La valeur appartient au tableau", , "Test": GoTo 1
Next i
MsgBox "La valeur n'appartient pas au tableau", , "Test": TextBox1 = ""
1
End Sub
Juste deux petites questions si vous me le permettez que je comprenne la raisonnement:
- go to 1 permet de sortir de la boucle de test dès que la condition est vraie sans tester toutes les cellules?
- et que signifie like "*"
Un grand merci et bon week end à vous