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

TechnologyNewStore · 3 Novembre 2021

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 :

VB:

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 · 3 Novembre 2021

Bonjour,

Il vaudrait mieux utiliser une ListBox mais bon :

VB:

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+

job75 · 3 Novembre 2021

Bonjour,

Il vaudrait mieux utiliser une ListBox mais bon :

VB:

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 · 3 Novembre 2021

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 · 3 Novembre 2021

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

VB:

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

TechnologyNewStore · 3 Novembre 2021

Merci job75, cela fonctionne.

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

job75 · 3 Novembre 2021

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 · 3 Novembre 2021

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.

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

TechnologyNewStore

XLDnaute Nouveau

job75

job75

XLDnaute Barbatruc

TechnologyNewStore

XLDnaute Nouveau

job75

XLDnaute Barbatruc

TechnologyNewStore

XLDnaute Nouveau

job75

XLDnaute Barbatruc

TechnologyNewStore

XLDnaute Nouveau

Discussions similaires