probleme pour un multi affichage suite à un find

Bonsoir,
Je demande de l'aide car je suis un débutant total en vba et j'ai un soucis dans mon programme.
En effet, je cherche à afficher dans des textbox le résultat d'une recherche d'un mot dans une plage de valeur pour en afficher toutes les lignes correspondantes.
Je ne trouve pas le moyen de boucler un certain nombre de fois selon l'occurence de mot trouver ainsi que l'affichage des lignes sans effacer le contenu des textbox precedemment rempli.
Merci d'avance pour votre aide et voici mon code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

Private Sub CommandButton1_Click()   Set cellule = Range("A2", [B65000].End(xlUp)).Find(UserForm1.TextBox1.Text)   If cellule Is Nothing Then   MsgBox "carte non trouvée" UserForm1.TextBox1 = Empty   Else   Do While 'valeur trouvée et que plage pas scrutée dans son ensemble   cellule.Activate ligne = ActiveCell.Row   UserForm2.TextBox1 = Cells(ligne, 1).Value & vbCrLf UserForm2.TextBox2 = Cells(ligne, 2).Value & vbCrLf UserForm2.TextBox3 = Cells(ligne, 3).Value & vbCrLf UserForm2.TextBox4 = Cells(ligne, 4).Value & vbCrLf UserForm2.TextBox5 = Cells(ligne, 5).Value & " € " & vbCrLf UserForm2.TextBox6 = Cells(ligne, 6).Value & vbCrLf UserForm2.TextBox7 = Cells(ligne, 7).Value & " € " & vbCrLf   UserForm1.Hide UserForm2.Show   Set cellule = Range("A2", [B65000].End(xlUp)).FindNext(cellule)   Loop   End If   End Sub

---

Bonsoir,

Ce que tu essayes de faire est un peu comme un Add Item et cela ne fonctionne pas pour une textbox, tu dois simplement à chaque fois récupérer la valeur de la textbox et y ajouter la ligne.
Essaye ceci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36

Private Sub CommandButton1_Click()   Set cellule = Range("A2", [B65000].End(xlUp)).Find(UserForm1.TextBox1.Text)   If cellule Is Nothing Then   MsgBox "carte non trouvée" UserForm1.TextBox1 = Empty   Else   Do While 'valeur trouvée et que plage pas scrutée dans son ensemble   cellule.Activate ligne = ActiveCell.Row   With UserForm2 .TextBox1 = .TextBox1.Value & Chr(10) & Cells(ligne, 1).Value .TextBox2 = .TextBox2.Value & Chr(10) & Cells(ligne, 2).Value .TextBox3 = .TextBox3.Value & Chr(10) & Cells(ligne, 3).Value .TextBox4 = .TextBox4.Value & Chr(10) & Cells(ligne, 4).Value .TextBox5 = .TextBox5.Value & Chr(10) & Cells(ligne, 5).Value .TextBox6 = .TextBox6.Value & Chr(10) & Cells(ligne, 6).Value .TextBox7 = .TextBox7.Value & Chr(10) & Cells(ligne, 7).Value End With   UserForm1.Hide UserForm2.Show   Set cellule = Range("A2", [B65000].End(xlUp)).FindNext(cellule)   Loop   End If   End Sub

---

Merci pour ce bout de code, celui-ci me permet d'ajouter les lignes au fur et à mesure mais seulement quand je ferme la fenetre avant de m'en reouvrir une nouvelle,.
Existe t'il une fonction associé qui permettrait d'actualiser la textbox sans passer par un show ?
Et auriez vous une idée pour effectuer une boucle sur toute la sélection et qui permettrait de la stopper une fois toute les occurences trouvée ?
merci d'avance

Bon...un peu à l'aveuglette mais ça ne devrait pas être loin

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Private Sub CommandButton1_Click() Dim Var(1 To 7), i As Integer, x As Byte, Val As String   Val = UserForm1.TextBox1.Text   For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row If Cells(i, 1) = Val Or Cells(i, 2) = Val Then For x = 1 To 7 Var(x) = Var(x) & Chr(10) & Cells(i, x) Next End If Next   For x = 1 To 7 UserForm2.Controls("TextBox" & x) = Var(x) Next   UserForm1.Hide UserForm2.Show   End Sub

---

Il semblerait qu'il n'y ai aucun affichage avec ce code, en effet, les textbox apparaissent vide sinon j'ai eu l'idée de racourcir la plage de recherche au fur et à mesure selon le code suivant mais je n'arrive pas à sortir une fois la dernière valeur atteint ce qui fait qu'elle se repète.
merci de me consacré du temps

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37

Private Sub CommandButton1_Click()   Set cellule = Range("A2", [A65000].End(xlUp)).Find(UserForm1.TextBox1.Text)   If cellule Is Nothing Then   MsgBox "carte non trouvée" UserForm1.TextBox1 = Empty   Else   UserForm1.Hide   Do While Not (cellule Is Nothing)   cellule.Activate ligne = ActiveCell.Row   With UserForm2 .TextBox1 = .TextBox1.Value & Chr(10) & Cells(ligne, 1).Value .TextBox2 = .TextBox2.Value & Chr(10) & Cells(ligne, 2).Value .TextBox3 = .TextBox3.Value & Chr(10) & Cells(ligne, 3).Value .TextBox4 = .TextBox4.Value & Chr(10) & Cells(ligne, 4).Value .TextBox5 = .TextBox5.Value & Chr(10) & Cells(ligne, 5).Value & " € " .TextBox6 = .TextBox6.Value & Chr(10) & Cells(ligne, 6).Value .TextBox7 = .TextBox7.Value & Chr(10) & Cells(ligne, 7).Value & " € " End With   UserForm2.Show   Set cellule = Range(newcellule.Address, [A65000].End(xlUp)).FindNext(cellule)   Loop   End If   End Sub

---

une erreur sur une des dernieres lignes, ce n'est pas newcellule.address mais :
Set cellule = Range(cellule.Address, [A65000].End(xlUp)).FindNext(cellule)

Etrange, j'ai pourtant testé ce code que je t'ai proposé avec des MsgBox au lieu de TextBox (pas envie de construire un USF :mrgreen:) et j'avais bien toutes les valeurs enregistrées dans les variables.

pour le code qu'il m'est proposé, ne manque t'il pas des champs value ?
je ne comprend pas trop le champs control dans le deuxième for, son utilité.

non il ne manque rien, je viens de tester avec un UserForm et 7 TextBox, cela fonctionne nickel

TextBox & x ne fonctionne pas, par contre Controls("TextBox" & x) cela fonctionne et ça permet de boucler sur les 7 TextBox à l'aide d'une seule ligne de code

tres bien je vais reessayer alors,
merci bien en tout cas

Je te met en pièce jointe le fichier que j'ai utilisé pour faire le test.
Exécute la macro "test".

Pièce jointe 29292

toutes mes textbox restent vide, je me demandais si ce n'etait pas le show qui etait mal placé car si je le mets dans la deuxième boucle for, les textbox se remplissent subsintement avant de redevenir vierge.

Nos messages se sont croisés, jette un oeil sur le fichier joint ci-dessus

je ne comprend pas, le code me semble identique, je vous joins mon fichier

Je me demandais ce que faisais exactement la fonction rows.count, car peut être que la scrutation de la selection ne s'effectue pas selon la mise en page de ma feuille excell soit defilement ligne par ligne selon une colonne

Non le problème ne doit pas venir de là car le cell(rows.count,1) selectionne bien la première colonne puis ligne par ligne ;)

Pourquoi le Rows.Count ?

Jusqu'à la version 2003, une feuille compte 65.536 lignes, depuis la version 2007 elle en compte 1.048.576

Cells(Rows.Count, 1).End(xlUp) reste valable dans les deux cas, Rows.Count sera égale à 65536 ou 1048576 selon la version d'Excel.

Non je me demandais juste au debut si il n'y avait pas rows.count au lieu de columns.count mais après vérification, il n'y avait pas inversion.
C'est en cherchant pourquoi ca ne marchait pas sur ma feuille alors que ca marche très bien sur votre exemple que j'ai pensé à cette piste mais qui s'est avérée ne pas porter problèmes

euuh....8O

Je viens de tester ton fichier et il fonctionne parfaitement !!

Attention de bien respecter la Case hurlefeu n'est pas égale à Hurlefeu

Je comprend rien alors.... sur mon pc les textbox apparaissent blanche sans texte 8O

Ok ca doit être la raison alors, je vais vérifier ca.
En effet, je ne respectais pas la casse pour la recherche.
Je vous remercie beaucoup pour votre aide

Je crois savoir d'où vient le problème...la plupart de tes données contiennent un espace à la fin de la chaîne de caractères donc si tu fais la recherche sur "Grizzlis" il ne trouvera rien, par contre si tu cherches "Grizzlis " en ajoutant un espace à la fin du mot là il en trouve.

Commence par nettoyer tes données :?