Recherche de valeur avec VBA EXCEL
Résolu/Fermé
A voir également:
- Lookin:=xlvalues, lookat:=xlwhole
- Liste déroulante excel - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Si et excel - Guide
- Word et excel gratuit - Guide
- #Valeur excel somme - Guide
4 réponses
xav3601
Messages postés
3289
Date d'inscription
lundi 10 novembre 2008
Statut
Membre
Dernière intervention
2 mars 2016
311
14 nov. 2008 à 10:05
14 nov. 2008 à 10:05
Bonjour,
Alors il te faut creer un userform contant un text box, ensuite ton code associe a cet textbox sera:
private sub textbox1_change()
UserForm1.textbox1=UserForm1.textbox1.value
end sub
et ensuite tu met un bouton rechercher par exemple avec le code associe:
private sub rechercher.click()
'on se place dans la feuille contenant les serveurs en productions
Sheets(Feuil1.Name).Select
With Sheets(Feuil1.Name)
'on recherche le nom du serveur dans la liste
Set result = Range("A2:A1200").Find(What:=UserForm1.textbox1, LookIn:=xlValues, lookat:=xlWhole)
If Not result Is Nothing Then
msgbox("valeur trouvée")
Else
msgbox("valeur introuvable")
End iF
Voila comme ca ca devrais marcher je pense :=)
Alors il te faut creer un userform contant un text box, ensuite ton code associe a cet textbox sera:
private sub textbox1_change()
UserForm1.textbox1=UserForm1.textbox1.value
end sub
et ensuite tu met un bouton rechercher par exemple avec le code associe:
private sub rechercher.click()
'on se place dans la feuille contenant les serveurs en productions
Sheets(Feuil1.Name).Select
With Sheets(Feuil1.Name)
'on recherche le nom du serveur dans la liste
Set result = Range("A2:A1200").Find(What:=UserForm1.textbox1, LookIn:=xlValues, lookat:=xlWhole)
If Not result Is Nothing Then
msgbox("valeur trouvée")
Else
msgbox("valeur introuvable")
End iF
Voila comme ca ca devrais marcher je pense :=)
xav3601
Messages postés
3289
Date d'inscription
lundi 10 novembre 2008
Statut
Membre
Dernière intervention
2 mars 2016
311
14 nov. 2008 à 10:29
14 nov. 2008 à 10:29
Je pense oui.
Je proposais juste l'intermediaire de la textbox car je trouve l'interface plus "jolie" que celle de l'inputbox, mais le resultat devrais etre le meme :)
Je proposais juste l'intermediaire de la textbox car je trouve l'interface plus "jolie" que celle de l'inputbox, mais le resultat devrais etre le meme :)
Bon je n'y arrive pas donc 'jai repris ton idée et j'ai fait une userform :
Sub Lance() 'pour lancer la userform
Load UserForm1
UserForm1.Show
End Sub
Sub textbox1_change()
UserForm1.TextBox1 = UserForm1.TextBox1.Value
End Sub
Private Sub rechercher_click()
Sheets(Feuil1.Name).Select
With Sheets(Feuil1.Name)
Set result = Range("A2:A1200").Find(What:=UserForm1.TextBox1, LookIn:=xlValues, lookat:=xlWhole)
If Not result Is Nothing Then
MsgBox ("valeur trouvée")
Else
MsgBox ("valeur introuvable")
End If
End Sub
je doit faire une erreur quelque part car quand je clik sur "rechercher" ca ne me donne rien
Sub Lance() 'pour lancer la userform
Load UserForm1
UserForm1.Show
End Sub
Sub textbox1_change()
UserForm1.TextBox1 = UserForm1.TextBox1.Value
End Sub
Private Sub rechercher_click()
Sheets(Feuil1.Name).Select
With Sheets(Feuil1.Name)
Set result = Range("A2:A1200").Find(What:=UserForm1.TextBox1, LookIn:=xlValues, lookat:=xlWhole)
If Not result Is Nothing Then
MsgBox ("valeur trouvée")
Else
MsgBox ("valeur introuvable")
End If
End Sub
je doit faire une erreur quelque part car quand je clik sur "rechercher" ca ne me donne rien
xav3601
Messages postés
3289
Date d'inscription
lundi 10 novembre 2008
Statut
Membre
Dernière intervention
2 mars 2016
311
14 nov. 2008 à 11:02
14 nov. 2008 à 11:02
Alors nomalement si ca ne t'affiche rien c'est que tu dois avoir un probleme comme par exemple ton bouton ne s'appel pas rechercher!
effectue une execution pas a pas pour voir ou ca bloque :)
effectue une execution pas a pas pour voir ou ca bloque :)
lermite222
Messages postés
8724
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 191
14 nov. 2008 à 11:25
14 nov. 2008 à 11:25
Bonjour tous,
Une autre idée !
Quand trouver montre la ligne sinon message
A+
Une autre idée !
Quand trouver montre la ligne sinon message
Private Sub CommandButton1_Click()
Dim Ret As Long
Dim Cel As Range
Ret = InputBox("Entrer le code postal à chercher")
For Each Cel In [A3:A10]
If Cel = Ret Then
Rows(Cel.Row).Select
Exit Sub
End If
Next
MsgBox "Pas trouvé"
End Sub
A+
14 nov. 2008 à 10:14
enfait si je fait une iputbox ou je rentre le code postale que je recher et que je la nomme :
valeur=inputbox("entrez le code postal")
et ensuite que je demande de chercher "valeur" comme tu la dit avec tout ça
private sub rechercher.click()
'on se place dans la feuille contenant les serveurs en productions
Sheets(Feuil1.Name).Select
With Sheets(Feuil1.Name)
'on recherche le nom du serveur dans la liste
Set result = Range("A2:A1200").Find(What:="valeur", LookIn:=xlValues, lookat:=xlWhole)
If Not result Is Nothing Then
msgbox("valeur trouvée")
Else
msgbox("valeur introuvable")
End iF
logiquement c bon??