Recuperer le contenu d'une zone de texte dans une variable

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:

---

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.

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+

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.

bonjour,
as-tu déclarer C auparavant ?

Code:

---

dim C as range

---

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

Code:

---

userform1.txtboxJournal

---

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'

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

Je suis d'accord avec melouille,

envoies un exemple

Ou est situé ton textbox, dans un userform, j'imagine ?

Sur ma feuille j'ai cliquer sur 'Outils' 'Maccro' 'Visual Basic Editor' puis j'ai creer un 'UserForm' dans l'onglet 'feuille', j'ai dessiner ma boite, et voici le code que j'y est mit:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub btn_ok_Click() Dim C As Range With Documentecriture(1).Range("a1:a65536") Set C = .Find(txtboxJournal.Text, LookIn:=x1Values) End With End Sub     Private Sub txtboxJournal_Change()   End Sub

---

Reprenons,
dans l'éditeur VBA, tu as créé un USF sur lequel tu as ajouté un textbox nommé txtboxJournal et un bouton de commande nommé btn_ok, je remets ton code

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub btn_ok_Click() Dim C As Range With Documentecriture(1).Range("a1:a65536") Set C = .Find(txtboxJournal) 'il manque de quoi travailler if not C is nothing then 'ce que tu veux faire end if End With End Sub

---

alors si ton but est de mettre le résultat dans une variable x

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub btn_ok_Click() Dim C As Range, x as string With Documentecriture(1).Range("a1:a65536") Set C = .Find(txtboxJournal)   if not C is nothing then x = c.value end if End With End Sub

---

et le but de cet userforpm est de renter une valeur dans lma textBox pour la rechercher dans ma colone 1, et d'affichier l'ensemble des lignes qui contiennent la valeur saisie

j'ai coller le code que tu m'a filer, mais j'ai toujours le message d'erreur me disant ' sub ou function non definie'

Ok,
admettons que tu recherche la valeur de B sur la meme ligne

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub btn_ok_Click() Dim C As Range With Documentecriture(1).Range("a1:a65536") Set C = .Find(txtboxJournal)   if not C is nothing then msgbox c.offset(c.row,1)'t'envoie un message end if End With End Sub

---

as-tu vérifié le nom de ta feuille
Documentecriture(1)

Bien jouer c'était le nom de la feuille j'avait vut dans l'exemple WorkSheets(1), je croyait qu'il fallait dc mettre (1) aps le nom de notre feuille. Mais maintenant, j'ai une erreur d'execution '424'/ objet requis'

Il faut que tu mettes entre les parenthèses entre guillemets le nom de ta feuille soit Worksheets("XXX") où XXX est le nom de ta feuille, je suppose Worksheets("Documentecriture").Range...

Merci sa marche presque, sauf que la, sa m'affiche seulement le contenut d'une seule cellule, alors que j'aurrait aimer que cela m'affiche les lignes entieres ou la premiere colonne commence par le numero saisie

Bien sur,
l'exemple que j'ai donné

Code:

---

msgbox c.offset(c.row,1)

---

ne renvoie que la cellule B mais il faut adapter, de combien de colonnes disposes tu ?

du maximum de colonnes 256, mais j'aimerais mieux afficher le resultat dans une nouvelle feuille plutot que dans une message box

j'imagine bien, alors on va adapter

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub btn_ok_Click() Dim C As Range With Documentecriture(1).Range("a1:a65536") Set C = .Find(txtboxJournal) 'un exemple if not C is nothing then sheets("feuil2").cells(2,1).entirerow = sheets("documentecriture").cells(c.row,1).entirerow end if End With End Sub

---

à verifier

Il m'indique 'erreur d'execution '9'/ l'indice n'appartient pas a la selection'

Pour ajouter une nouvelle feuille il faudrait apparement selon l'aide faire 'Worksheets.Add '

essaies déjà le code en ajoutant avant une feuille manuellement, après on verra, je n'ai plus trop le temps (ce soir oui), vérifie que ta feuille se nomme feuil2
a ce soir

J'ai bien réussit a mettre le code pour rajouter une nouvelle feuille, mais elle est toujours vierge. Oki merci bcp de ton aide, ce soir je ne pourrais pas avoir mon code, car je ne serait pas en entreprise, mais si demain tu a de nouveau du tps, merci