Chtitefanny
XLDnaute Junior
Bonjour à tous,
Je sais comment faire une liste de dossier dans Worksheet.
Sur le premier onglet, dans la colonne A, se trouve à partir de A3, des numéros de dossiers sont sous la forme 14-XXX.Y (14-001.A ; 14-001.B ... 14-003) cela va de 6 à 8 caractères.
Code :
La liste se fait très bien. Mais j'aimerais améliorer la chose. Dans une UserForm Antérieur, j'indique les 6 premiers caractères du dossier (14-XXX) et j'aimerai que lorsque j'arrive à la liste, je n'ai que les dossiers qui commance par les 6 caractères indiqué juste avant.
Si vous avez une idée.
Fanny
Je sais comment faire une liste de dossier dans Worksheet.
Sur le premier onglet, dans la colonne A, se trouve à partir de A3, des numéros de dossiers sont sous la forme 14-XXX.Y (14-001.A ; 14-001.B ... 14-003) cela va de 6 à 8 caractères.
Code :
Code:
Set r = Workbooks("Essai.1").Sheets("Feuil1").Cells(3, 1)
Do While r <> ""
UserForm1.WorkSheet1.AddItem r
Set r = r.Offset(1, 0)
Loop
Si vous avez une idée.
Fanny