Vba Excel: rechercher une valeur à partir d'une textbox [Résolu]
cs_biloute915
Messages postés mardi 11 décembre 2007Date d'inscription
23 mai 2008
Dernière intervention
-
8 avril 2008 à 16:26 - Dernière réponse : cs_biloute915
Messages postés mardi 11 décembre 2007Date d'inscription
23 mai 2008
Dernière intervention
- 8 avril 2008 à 17:07
je souhaite rechercher une valeur inscrite dans une TextBox , dans une plage de données située dans une feuille du classeur et pouvoir ainsi degager une condition . Ex : si la valeur de la textbox est présente dans la plage de données alors rendre visible un CommandButton dans un USF existant.
jrivet7401
Messages postés mercredi 23 avril 2003Date d'inscription
6 avril 2012
Dernière intervention - 8 avril 2008 à 16:48
+3
Utile
Salut,
Tout dépends QUAND souhaites tu rechercher
l'exemple ci dessous recherche lorsque l'on appui sur le bouton CommandButton1
et il rend le bouton CommandButton2 Visible SI la valeur entrée dans TextBox1 est trouvée dans A1:A500
Private Sub CommandButton1_Click()
Dim c As Range
With Worksheets("Feuil1").Range("A1:A500")
Set c = .Find(TextBox1.Value, LookIn:=xlValues)
'=> C IS Nohting veut dire pas de resultat
'=>Not c Is Nothing veut dire au moçins un resultat
If Not c Is Nothing Then
CommandButton2.Visible = True
Else
CommandButton2.Visible = False
End If
End With
End Sub , ----
[code.aspx?ID=41455 By Renfield]
@+: Ju£i?n Pensez: Réponse acceptée
Cette réponse vous a-t-elle aidé ?Merci pour votre retour.
N'oubliez pas de prendre quelques secondes pour remercier l'auteur : Merci pour votre retour.
Nous sommes désolés. Notre objectif est de vous donner la meilleure réponse possible.
désolé mais je debute en vba et je ne comprends pas tout.
Est-ce que cela peut ressembler à cela :
Private Sub TextBox24_Select(ByVal Target As Range)
With Worksheets("Feuil1").Range("a1:a500")
Set c = .Find(TextBox24.Value, LookIn:=xlValues)
If Not c Is Nothing Then
CommandButton8.Visible = False
Do
CommandButton8.Visible = True
Set c = .FindNext(c)
Loop While Not c Is Nothing
End If
End With
End Sub
