Recherche de valeur avec VBA EXCEL
Résolu
Misticade
-
Misticade -
Misticade -
Bonjour,
J'ai un doc sous excel avec plein de code postaux (A1 à A1200).
Je souhaite entrer un code postale dans une "inputbox" et rechercher cette valeur dans la colonne A. Si elle est présente boite de dialogue "oui" sinon "non". Voilà en gros mon prblème.
Merci d'avance
J'ai un doc sous excel avec plein de code postaux (A1 à A1200).
Je souhaite entrer un code postale dans une "inputbox" et rechercher cette valeur dans la colonne A. Si elle est présente boite de dialogue "oui" sinon "non". Voilà en gros mon prblème.
Merci d'avance
Configuration: Windows XP Firefox 3.0.4
A voir également:
- Lookin:=xlvalues, lookat:=xlwhole
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
- Trier un tableau excel - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
4 réponses
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 :=)
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
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+
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??