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
- Messages postés
- 5
- Date d'inscription
- mardi 11 décembre 2007
- Dernière intervention
- 23 mai 2008
A voir également:
- If not is nothing then vba
- Is not nothing vba - Meilleures réponses
- [Déplacé .Net --> VBA] VBA Excel: Rechercher un caractère dans une chaîne en par ✓ - Forum - Visual Basic 6
- VBA Excel : Récupérer une valeur issu d'une formule dans une variable ✓ - Forum - Visual Basic 6
- VBA EXCEL contenu d'une cellule dispacher dans plusieurs textbox ✓ - Forum - Visual Basic 6
- Recherche de valeur dans un fichier Excel vers un fichier txt VBA ✓ - Forum - VB.NET
- Vba sous excel: recherche de date pour remplacer une valeur ✓ - Forum - Visual Basic 6
4 réponses
Meilleure réponse
- Messages postés
- 7401
- Date d'inscription
- mercredi 23 avril 2003
- Dernière intervention
- 6 avril 2012
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
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
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
121 internautes nous ont dit merci ce mois-ci
- Messages postés
- 5
- Date d'inscription
- mardi 11 décembre 2007
- Dernière intervention
- 23 mai 2008
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
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
- Messages postés
- 5
- Date d'inscription
- mardi 11 décembre 2007
- Dernière intervention
- 23 mai 2008
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.