XL 2016 Ajouter toutes les valeurs d'une listBox dans une TextBox

[Baradel]

Bonjour,

Avant de tout vous expliquer, je suis un débutant en VBA. Je suis donc très limité.

Je suis en train de créer un petit fichier excel, qui sert faire une liste de visserie. Donc le principe est simple. J'ai une base de donné (Assy 06, Assy 07, ect...) qui est mon stock de vis.
En haut a droite j'ai une TextBox. Dans cette TextBox vous marquer ce que vous voulez (exemple : 07, Assy, 22, ect...). La ListBox juste en dessous affiche tout les mot comportant le caractère que l'on vient de rentré. Pour l'instant j'ai réussi a faire cela.

Maintenant je voudrais transférer les résultat de ma listBox dans une autre TextBox pour que je puisse faire des copier coller. Pour L'instant j'ai juste réussi a afficher la première ligne de ma ListBox dans ma TextBox.

J'ai mit en PJ le fichier Excel.

Je vous remercie par avance. Cordialement

 

[sousou]

bonjour
Change ta procédure comme ceci
Pas besoin de bouton
Pour ta textebox2 la propriété multiligne =TRue

Maintenat reste à savoir où tu veux en venir!

Private Sub TextBox1_Change()
Application.ScreenUpdating = False

Range("A2:A24").Interior.ColorIndex = 2
ListBox1.Clear

If TextBox1 <> "" Then
For Ligne = 2 To 24
If Cells(Ligne, 1) Like "*" & TextBox1 & "*" Then
Cells(Ligne, 1).Interior.ColorIndex = 43
ListBox1.AddItem Cells(Ligne, 1)
phrase = phrase & ListBox1.List(ListBox1.ListCount - 1) & vbCrLf
End If
Next
End If
TextBox2 = phrase
End Sub

 

[Baradel]

bonjour
Change ta procédure comme ceci
Pas besoin de bouton
Pour ta textebox2 la propriété multiligne =TRue

Maintenat reste à savoir où tu veux en venir!

Private Sub TextBox1_Change()
Application.ScreenUpdating = False

Range("A2:A24").Interior.ColorIndex = 2
ListBox1.Clear

If TextBox1 <> "" Then
For Ligne = 2 To 24
If Cells(Ligne, 1) Like "*" & TextBox1 & "*" Then
Cells(Ligne, 1).Interior.ColorIndex = 43
ListBox1.AddItem Cells(Ligne, 1)
phrase = phrase & ListBox1.List(ListBox1.ListCount - 1) & vbCrLf
End If
Next
End If
TextBox2 = phrase
End Sub

Bonjour,

Super un grand merci pour votre aide. Il reste juste un petit détail, ça serait de supprimer tout les caractères spéciaux et sauter des lignes à chaque type de visseries. Je m'explique peut être mal. En gros je voudrais que le texte apparaisse comme dans la ListBox

Je vous remercie par avance. Cordialement

 

[sousou]

Tu as du oublier ma dernière consigne:
Pour ta textebox2 la propriété multiligne =TRue