EXCEL VBA - textbox et validation par bouton

Fermé
Bichon - 6 juil. 2009 à 22:11
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 7 juil. 2009 à 19:03
Bonjour,

j'ai une textbox et un bouton. je voudrais que le chiffre que je rentre dans ma textbox, apres avoir appuyé sur mon bouton, serve a chercher le chiffre correspondant dans la colonne B. Le but est d'afficher la cellule ou se trouve le chiffre entré dans le textbox. Je precise que ces chiffres en colonne B sont le fruit d'une formule.

jai essayé de faire ca mais ca ressemble rien evidemment :-S

Private Sub TextBox4_Change()
Call go_Click
End Sub

Private Sub go_Click()
Dim e As Integer
TextBox4.Value = e
Sheets("FAQ_Q&A List").Range(e, 2).Select
End Sub
A voir également:

6 réponses

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 716
6 juil. 2009 à 23:21
bonjour

Essaies comme ceci :
Public Sub go_Click()
Dim e As Variant
    Set e = Sheets("FAQ_Q&A List").Cells.Find(what:=Sheets("FAQ_Q&A List").TextBox4.Value, _
        after:=ActiveCell, LookIn:=xlValues, LookAt:=xlWhole)
    If Not e Is Nothing Then e.Select
End Sub

Il faut que la valeur de la cellule soit intégrale avec xlWhole, si tu veux du partiel tu remplaces par xlPart.
1
merci gb,

et pour la macro de la text box je mets quoi?

Public Sub TextBox4_Change()

End Sub


merci
0
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 716
6 juil. 2009 à 23:45
bonjour

et pour la macro de la text box je mets quoi? : elle ne change pas, je me suis mis dans ta logique.

Tant que tu saisis une valeur dans ta textbox qui n'existe pas, il ne se passe rien sinon la sélection s'effectue et en cliquant sur ton bouton tu sélectionnes l'occurrence suivante si elle existe : attention tout de même car il me semble que tu devrait avoir go_Clic et non go_Click pour faire fonctionner la macro du bouton.
0
Salut Gb merci pour la réponse

par contre le code que tu m'a donné plus haut ne fonctionne pas... "Object doesn't support this property or method"

ca bloque ici :

Set e = Sheets("FAQ_Q&A List").Cells.Find(what:=Sheets("FAQ_Q&A List").TextBox4.Value, _
after:=ActiveCell, LookIn:=xlValues, LookAt:=xlWhole)

bon, petite precision ma textbox et mon bouton sont sur un userform qui s'appelle "recherche", peut etre que ca rentre en jeu :-S
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
pleease help meee!
0
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 716
7 juil. 2009 à 19:03
bonjour

peut etre que ca rentre en jeu

Bien entendu, "Sheets("FAQ_Q&A List").TextBox4.Value" doit être remplacé par le nom de ta box "recherche.TextBox4.Value" probablement.
0