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

TechnologyNewStore

XLDnaute Nouveau
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 !
 
Solution
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

XLDnaute Barbatruc
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

XLDnaute Nouveau
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.
 

Discussions similaires

Statistiques des forums

Discussions
311 740
Messages
2 082 047
Membres
101 880
dernier inscrit
Anton_2024