Re : si possible d'ecrir dans listbox
Bonjour,
Je viens de tomber sur sujet et j'en profite pour demander de l'aide su un petit problème de syntaxe au sujet des titres de colonne dans un TexBox.
Actuellement j(afficque dans un userForm un textBox avec plusieurs colonnes de valeur: ça c'est OK.
j'ai ajouté une case pour le titre de colonne.. mais je ne trouve pas comment récupérer les titres de ces colonne (qui sont en feuil1 ligne7)!
Si vous avez une idée ...😉
ci dessous le code du module:
Sub test()
'ordre alphabetique
Sheets("feuil1").Range("J8").Select
selection.Sort Key1:=Range("J8"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Call calculnombrefiches
'redéfini selection
' Sheets("feuil1").Range("A8").Resize(rowsize:=Range("F1").Value, columnsize:=1).Select
' UserForm5.ListBox1.List = selection.Value
Dim var
Dim T()
Dim i&
var = Sheets("feuil1").Range("A8:bm" & Sheets("feuil1").Range("F1").Value + 7 & "")
ReDim T(1 To UBound(var, 1), 1 To 5)
For i& = 1 To UBound(var, 1)
T(i&, 1) = var(i&, 1)
T(i&, 2) = var(i&, 10)
T(i&, 3) = var(i&, 11)
T(i&, 4) = var(i&, 13)
T(i&, 5) = var(i&, 15)
Next i&
With UserForm5.ListBox1
.ColumnHeads = True
.RowSource = A7.... (je pense que c'est ici qu'il faut agir!)
.ColumnCount = 5
.ColumnWidths = "" & .Width / 5 * 2 & ";" & .Width / 4 & ""
.List = T
End With
UserForm5.Show
End Sub