Bonjour a tous, forum bonjour

Je récupère sur un autre disk dur (H:\) trois données, nom du fichier , poids du fichier , durée du fichier

cela s'affiche en colonne (A1) nom, B(1) poids, (C) durée et la liste risque de s'agrandir.

Je souhaiterai svp en cliquant sur un TextBox4 copier les données de ces trois colonnes vers mon UserForm1
dans une ListBox1 qui volontairement n'a pas d'entètes .

J'ai fait le code ci-dessous mais ca ne fonctionne pas et je ne trouve pas pourquoi, après de multiples essais.

Je vous remercie pour votre aide et votre savoir partager.

Bonne après après midi et bon début de W-end a tous

Cdlt Dudulleray


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Private Sub UserForm_Initialize()
 
Private Sub textbox4_click()
  Dim F1 As Worksheet
  Dim J As Long, C As Long
 
  Set F1 = Sheets("feuil1")
 
  With ListBox1
    .ColumnCount = 3
    .ColumnWidths = "80;50;50" 'Nom fichier, poids fichier, durée fichier
    .RowSource = ""
    .Clear
 
    For J = 1 To F1.Range("A" & Rows.Count).End(xlUp).Row
      .AddItem F1.Range("A" & J)
      .List(.ListCount - 1, 1) = F1.Range("B" & J)
      .List(.ListCount - 1, 2) = F1.Range("C" & J)
 
    Next J
  End With
End Sub