T
Tonio
Guest
Bonsoir le Forum
J’ai encore besoin de votre aide.
J’ai un USF avec une ListBox ou je voudrais avoir uniquement les colonnes A :B :C et J
Apres quelques recherches sur ce merveilleux forum, j’ai trouvé ce petit code
Private Sub UserForm_Initialize()
Dim i As Byte
Dim WS As Worksheet
Set WS = ThisWorkbook.Worksheets('Feuil1')
For i = 0 To 10
With Me.ListBox1
.ColumnCount = 5
.ColumnWidths = '80;80;150;120;60'
.AddItem WS.Range('A' & i + 1)
.Column(1, i) = WS.Range('B' & i + 1)
.Column(2, i) = WS.Range('C' & i + 1)
.Column(3, i) = WS.Range('D' & i + 1)
.Column(4, i) = WS.Range('J' & i + 1)
End With
Next i
End Sub
Mais malheureusement je ne réussi à afficher que 10 lignes sur 1100 malgrée tous les essais que j’ai fait
Je voudrais aussi savoir si après modification des données depuis un TextBox de se même USF s’il était possible de réactualiser la ListBox ou avoir les modification en temps réel.
Quelqu’un pourrais t’il m’aider
A++ Tonio………..
J’ai encore besoin de votre aide.
J’ai un USF avec une ListBox ou je voudrais avoir uniquement les colonnes A :B :C et J
Apres quelques recherches sur ce merveilleux forum, j’ai trouvé ce petit code
Private Sub UserForm_Initialize()
Dim i As Byte
Dim WS As Worksheet
Set WS = ThisWorkbook.Worksheets('Feuil1')
For i = 0 To 10
With Me.ListBox1
.ColumnCount = 5
.ColumnWidths = '80;80;150;120;60'
.AddItem WS.Range('A' & i + 1)
.Column(1, i) = WS.Range('B' & i + 1)
.Column(2, i) = WS.Range('C' & i + 1)
.Column(3, i) = WS.Range('D' & i + 1)
.Column(4, i) = WS.Range('J' & i + 1)
End With
Next i
End Sub
Mais malheureusement je ne réussi à afficher que 10 lignes sur 1100 malgrée tous les essais que j’ai fait
Je voudrais aussi savoir si après modification des données depuis un TextBox de se même USF s’il était possible de réactualiser la ListBox ou avoir les modification en temps réel.
Quelqu’un pourrais t’il m’aider
A++ Tonio………..