- Recherche de valeur dans un fichier Excel vers un fichier txt VBA [Résolu]
- Vba sous excel: recherche de date pour remplacer une valeur [Résolu]
- Visual Basic / VB.NET : Créer un fichier _.ics simple à partir d'un module vba excel -
- Insertion d'image en VBA Excel 2007 à partir d'un tableau de données
- VBA Excel - optimiser code recherche info sur internet
Vba Excel: rechercher une valeur à partir d'une textbox [Résolu]
Signaler
cs_biloute91
cs_biloute91
- Messages postés
- 5
- Date d'inscription
- mardi 11 décembre 2007
- Statut
- Membre
- Dernière intervention
- 23 mai 2008
cs_biloute91
- Messages postés
- 5
- Date d'inscription
- mardi 11 décembre 2007
- Statut
- Membre
- Dernière intervention
- 23 mai 2008
A voir également:
- Vba is not nothing
- Is not nothing vba - Meilleures réponses
- If not is nothing then vba - Meilleures réponses
- [vba excel] vérifier si valeur présente dans le fichier ✓ - Forum - Visual Basic 6
- [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
4 réponses
jrivet
- Messages postés
- 7393
- Date d'inscription
- mercredi 23 avril 2003
- Statut
- Membre
- 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
jrivet
- Messages postés
- 7393
- Date d'inscription
- mercredi 23 avril 2003
- Statut
- Membre
- Dernière intervention
- 6 avril 2012
Salut,
Regarde la Methode Find de l'objet Range
@+: Ju£i?n
Pensez: Réponse acceptée
Regarde la Methode Find de l'objet Range
@+: Ju£i?n
Pensez: Réponse acceptée
cs_biloute91
- Messages postés
- 5
- Date d'inscription
- mardi 11 décembre 2007
- Statut
- Membre
- 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