Vba Excel: rechercher une valeur à partir d'une textbox [Résolu]

cs_biloute91
Messages postés
5
Date d'inscription
mardi 11 décembre 2007
Dernière intervention
23 mai 2008
- 8 avril 2008 à 16:26 - Dernière réponse : cs_biloute91
Messages postés
5
Date d'inscription
mardi 11 décembre 2007
Dernière intervention
23 mai 2008
- 8 avril 2008 à 17:07
Bonjour,

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.

Merci pour aide
Afficher la suite 

Votre réponse

4 réponses

Meilleure réponse
jrivet
Messages postés
7401
Date d'inscription
mercredi 23 avril 2003
Dernière intervention
6 avril 2012
- 8 avril 2008 à 16:48
3
Merci
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

Merci jrivet 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 94 internautes ce mois-ci

Commenter la réponse de jrivet
jrivet
Messages postés
7401
Date d'inscription
mercredi 23 avril 2003
Dernière intervention
6 avril 2012
- 8 avril 2008 à 16:28
0
Merci
Salut,

Regarde la Methode Find de l'objet Range

@+: Ju£i?n
Pensez: Réponse acceptée
Commenter la réponse de jrivet
cs_biloute91
Messages postés
5
Date d'inscription
mardi 11 décembre 2007
Dernière intervention
23 mai 2008
- 8 avril 2008 à 16:38
0
Merci
Bonjour,

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

Merci pour votre aide
Commenter la réponse de cs_biloute91
cs_biloute91
Messages postés
5
Date d'inscription
mardi 11 décembre 2007
Dernière intervention
23 mai 2008
- 8 avril 2008 à 17:07
0
Merci
Merci beaucoup cela fonctionne
Commenter la réponse de cs_biloute91

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.