Discussion :

[lilp1]

Bonjour, je viens de créer un 'UserForm' avec une zone de texte et un bouton 'OK', j'aimerais que lorsque je click sur le bouton 'ok', une rechercher s'effectue sur ma feuille Excel avec pour valeur ce que j'ai rentrer dans ma zone de texte.
Voici le code de mon bouton 'ok'

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub btn_ok_Click()
    With Worksheets(1).Range("a1:a65536")
        Set C = .Find(X, LookIn:=x1Values)
    End With
End Sub

J'aimerais donc que X prennent la valeur de ma zone de texte.
Merci de votre aide.

[melouille56]

Remplace ton x par TextBox1.Text (vérifie tout de même que ce soit le nom de la TextBox dans laquelle a été entré le texte souhaité) et ca devrait marché
A+

[lilp1]

J'ai remplacer mon x, par txtboxJournal.Text ( c'est le nom de ma textBox ), mais lorsque j'effectue le test, j'ai un message d'erreur 'erreur d'execution '9'
L'indice n'appartient pas a la selection.

[casefayere]

bonjour,
as-tu déclarer C auparavant ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

dim C as range

Vérifies aussi, si le code n'est pas dans l'userform, ajouter le nom de l'UF

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

userform1.txtboxJournal

[lilp1]

Je ne comprend pas ton dernier poste désolé. Mais je viens de déclarer 'c', et maintenant il me dit
'erreur de compilation :
sub ou function non définie'

[melouille56]

Peux tu coller ton code stp, pour qu'on voie où ca bug.
Tks
a+