XL 2016 Remplir un textbox avec des cellules appartenant à une même colonne sous 2 conditions

[TechnologyNewStore]

Bonjour à tous,

Je bloque sur un problème depuis 2 jours : je souhaite extraire des valeurs de cellules présentes dans la colonne B (noms de famille) de mon classeur (présents à partir de la ligne 18) à condition que les colonnes C et E associées soient vides.

Mon textbox afficherai alors une extraction des noms de familles.

J'ai essayé le code suivant :

For i=18 to 100
If cells(i,3).Value = "" And cells (i,5).Value="" Then
Exit for
End If
Textbox1.Value = Cells (i,2)
Next i

Auriez-vous une idée ?

Merci d'avance,

Bonne journée !

 

[job75]

Bonjour,

Il vaudrait mieux utiliser une ListBox mais bon :

Dim txt$
For i = 18 To 100
    If Cells(i, 2) <> "" And Cells(i, 3) & Cells(i, 5) = "" Then txt = txt & vbLf & Cells(i, 2)
Next
TextBox1.MultiLine = True
TextBox1 = Mid(txt, 2)

A+

 

[TechnologyNewStore]

Merci pour la réponse job75.
Cela fonctionne mais seulement si je saisie n'importe quel caractère dans le textbox au clavier. Seulement à ce moment la liste des noms s'affiche.

Comment faire pour qu'elle s'affiche automatiquement ?

Également, je suis fana d'avoir la version avec une listbox si tu trouves cela plus judicieux.

Le but c'est qu'à terme, je puisse copier/coller cette liste pour envoyer un mail aux noms en question (2e partie du codage).

Comment puis-je faire pour rajouter devant l'extraction de la liste des noms la colonne A qui est associée à un ID ?
J'ai essayé "Textbox1 = Cells(i,1) & Mid(txt,2)" mais cela ne fonctionne pas.

 

[job75]

Comment puis-je faire pour rajouter devant l'extraction de la liste des noms la colonne A qui est associée à un ID ?

If Cells(i, 1) <> "" And Cells(i, 3) & Cells(i, 5) = "" Then txt = txt & vbLf & Cells(i, 1) & " " & Cells(i, 2)

 

[TechnologyNewStore]

Merci job75, cela fonctionne.

Une idée pour que le textbox affiche directement le listing sans devoir appuyer sur une touche du clavier ?

 

[job75]

Au post #1 vous ne dites pas comment le code est lancé.

Donc faites ce que vous voulez, il y a plein de manières.

 

[TechnologyNewStore]

La textbox est lancée grâce à l'appui sur un button.
J'aimerai donc qu'après avoir cliqué sur ce button, le textbox présent dans l'UF soit automatiquement rempli sans devoir saisir au clavier dans le textbox.