Sub Affichage_Couple_Final()
Dim i%, f As Worksheet, cw$
Set f = Sheets("Feuil7")
With ListBox4
cw = ""
.RowSource = "C3:AA6" '
.MultiSelect = fmMultiSelectMulti
.ColumnCount = f.[C3:AA6].Columns.Count '25
'---- récupère la largeur des colonnes Feuil pour l'appliquer aux colonnes ListBox -----
For i = 1 To f.[C3:AA6].Columns.Count
cw = cw & f.[C3:AA6].Columns(i).Width * 1.18 & ";"
Next i
.ColumnWidths = cw
.Height = 42
.Width = 580
End With
End Sub
Avec ça on aura à tout coup un bug mais on a pitié.c'est 1.25 et non 1.18 et tu verra que ce nombre ressort beaucoup en vba excel
et puis par pitié
.list="C3:AA6"
Private Sub UserForm_Initialize()
ListBox1.RowSource = "a1:a10"
End Sub
Private Sub CommandButton1_Click()
ListBox1.Clear
End Sub