okKTM bonjour,
Mets en ColumnCount=11 au lieu de 10 en propriété de listbox2
Bruno
Je m'en suis aperçu c'est pourquoi j'ai supprimé mon 1er message qui utilisait la méthode List..Je voudrais que Le format des dates ( Mois et Echeance ) soit le meme que sur la table
Private Sub UserForm_Initialize()
With [A1].CurrentRegion
ListBox2.ColumnCount = .Columns.Count
If .Rows.Count > 1 Then ListBox2.RowSource = .Rows(2).Resize(.Rows.Count - 1).Address
End With
End Sub
INFINIMENT MERCIBonjour KTM, JB, Bruno, herve62,
Je m'en suis aperçu c'est pourquoi j'ai supprimé mon 1er message qui utilisait la méthode List..
Il faut alors utiliser en effet la méthode RowSource :
Bon dimanche.VB:Private Sub UserForm_Initialize() With [A1].CurrentRegion ListBox2.ColumnCount = .Columns.Count If .Rows.Count > 1 Then ListBox2.RowSource = .Rows(2).Resize(.Rows.Count - 1).Address End With End Sub
Private Sub UserForm_Initialize()
Dim tablo
With [A1].CurrentRegion
ListBox2.ColumnCount = .Columns.Count
tablo = .Rows(2).Resize(.Rows.Count - 1)
ListBox2.list = tablo
End With
End Sub
Oui c'est la méthode List, une des 3 méthodes pour remplir une ListBox.on pourrait aussi imaginer passer par un tablo ?
@herve62 non ben justement ça n'est pas du rowsource il ne faut pas lire en diagonalepeut être a en tirer profit ? apparemment c'est du rowsource aussi
set plage=range(xx:yy)
with listbox1
.columncount =plage.columns.count
.value=plage.value
end with
For i = 1 To 4
With ListBox4
.Font = "tahoma"
.ColumnHeads = False
.TextColumn = -1
.RowSource = "C3:AA" & i + 2
.MultiSelect = fmMultiSelectMulti
.ColumnCount = 25
.ColumnWidths = "23;23;23;23;23;23;23;23;23;23;23;23;23;23;23;23;23;23;23;23;23;23;23;23;23"
.Height = 42
.Width = 580
End With
Next i
Set f = Sheets("tartampion")
With ListBox4
' .Font .name= "tahoma"'????? ca l'est pas deja a l'origine????
'.TextColumn = -1'??????
.List = f.[C3:AA6].Value
.MultiSelect = fmMultiSelectMulti
.ColumnCount = f.[C3:AA6].Columns.Count
.ColumnWidths = String(f.[C3:AA6].Columns.Count, "23;" & "0")
.Height = 42
.Width = 580
End With