re je me permet une fois encore mais bon Lol
For c = 2 To Sheets('Feuil2').Range('A65536').End(xlUp).Row
If Sheets('Feuil2').Range('C' & c) = Me.ComboBox1 Then
Me.ListBox1.AddItem Sheets('Feuil2').Range('A' & c) & ' (' & Left(Sheets('Feuil2').Range('D' & c), 3) & ')' End If
je commence je lis le texte
for =Pour une variable
c qui prendra les valeurs de
2 à --- Sheets('Feuil2').Range('A65536').End(xlUp).Row
ce qui veut dire qu'en partant de la ligne n° 65536 de la dernière de la colonne
A(1) de la feuille 'Feuil2' vers le Haut cela renverra le numero de la première ligne non vide rencontrée
.Row
If=si la valeur de la cellule
C2 ---->C colonne et
c =2 la ligne et ainsi de suite pour chaque valeur de
c et égale à la valeur du Combobox
Then eh bien on ajoute dans la listBox colonne 1 la valeur de cette cellule
C2 (Range('C'&c) et ainsi de suite
& permet de coller des données entre elles
left() fonction
Left(Texte,nombre de Caractères à renvoyer en Partant de la Gauche)
si Range('C'& c)=Range('C2')=> Thierry cela donne
Left(Range('C2'),3)---> Left(Thierry,3) renvoie
Thi
en espèrant avoir fait avancer le chimilimblick
je regarde ta nouvelle question Lol