Discussion :

[eliot.raymond]

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

[joe.levrai]

Bonjour,

quelque chose comme ça ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub UserForm_Initialize()
    With Me.ListBox1
        .ColumnCount = 3
        .ColumnWidths = "80;50;50"
        .List = Sheets("feuil1").Cells(1, 1).CurrentRegion.Value
    End With
End Sub

[eliot.raymond]

Salut Joe

Merci pour ta réponse, c'est sympa.

merci pour ton aide

Cdlt Ray

Pour la colonne (A) c'est bon mais pour les deux autres colonnes Non
sur la feuil1 l'affichage est comme ci dessous ici colonne B et C

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
         693,77 Mo	                 01:48:46   >>>> affichage dans la listbox1 est    6,324007400740408-02
         699,62 Mo	                 01:32:20   >>>> idem pour la suite donc pas bon
         699,48 Mo	                 01:26:51
         700,07 Mo	                 01:29:08
1 433 394,00 Go	                 01:23:42
         696,33 Mo	                 01:51:24
         714,57 Mo	                 01:28:47
         702,60 Mo	                 02:38:02
         699,64 Mo	                 01:28:49
         704,55 Mo	                 01:19:38
1 431 898,01 Go	                 02:02:18
         700,50 Mo	                 01:53:05

[joe.levrai]

Peux-tu fournir un fichier exemple (sans macro, format xlsx) avec quelques exemples de données qui produisent ce comportement ?

Ca va aller plus vite que les divers points de structure à clarifier

[eliot.raymond]

Salut Joe

En cherchant des solutions je me demandai si le choix d'une ListBox était bien adapter a mon besoin.

Bicause pas facile a utiliser centrage et autres encore, d'ailleurs ca fait un moment que je galère avec ListBox.

Je pense que je vais plutôt migrer vers une Listview qui serai peut être plus évident a mon besoin.

La question en qu'expert que me conseillerai tu svp.

Merci a plus tard

Ray