ListBox et Tableau à partir de tableau
Bonjour le Forum
Toujours en recherche mais je bute sur deux trucs
Ayant un tableau(Grand_Tab) à 40 colonnes je souhaite
1) créer un tableau(Petit_Tab) 5 colonnes avec les colonnes B, G, P, S et T du grand tableau
2) Créer une ListBox Multicolonnes à partir des colonnes B, G, P, S et T du grand tableau
Voilà et je bute depuis qqs heures
Si vous pouvez m'éclairer, merci tout plein
Séb
Bonjour Gmb
oui et non
oui car le code m'intéresse et ça m'apprend des trucs donc je le sauvegarde
non car c'est de ma faute mais j'ai omis de dire que mon tableau est dans une feuille bien sur
et ma listbox dans un userform, sorry
Séb
Sarl54 a écrit :j'ai omis de dire que mon tableau est dans une feuille bien suret ma listbox dans un userform, sorry
Alors joins ton fichier ...
Bye !
Re
voilà ce que j'ai réussi à faire avec l'aide de ce que j'ai trouvé ça et là:
Private Sub UserForm_Initialize()
Dim Liste As Variant
Dim NoLigne, I As Integer
Dim NoCol As Byte
Set Ws = Sheets("Demandes") 'Activation de la fenetre "Demandes"
With UserForm7
Liste = Array(2, 3, 4, 5, 10) 'liste des colonnes dans la feuille de Demandes
.ComboBox1.ColumnCount = UBound(Liste) + 1 'On définit le nombre de colonnes de la Combobox
'On remplit la première colonne(0) de la Combobox
.ComboBox1.AddItem Ws.Cells(2, Liste(0)).Value 'Entête de colonne
For NoLigne = 5 To Ws.Range("B" & Rows.Count).End(xlUp).Row
.ComboBox1.AddItem Ws.Cells(NoLigne, Liste(0)).Value
Next
'On remplit les autres colonnes
For NoCol = 1 To UBound(Liste) 'De la colonne 1 à la dernière
.ComboBox1.Column(NoCol, 0) = Ws.Cells(2, Liste(NoCol)).Value 'Entête de colonne
For NoLigne = 1 To Ws.Range("B" & Rows.Count).End(xlUp).Row - 4
.ComboBox1.Column(NoCol, NoLigne) = Ws.Cells(NoLigne + 4, Liste(NoCol)).Value
Next
Next
End With
End Sub
Voilà, petite remarque pour une meilleure comprehension:
dans la feuille "Demandes", La ligne 1 est vide , Les lignes 2 , 3 et 4 servent aux entêtes de colonnes
Les valeurs commencent en Ligne 5
Merci à ceux qui m'ont aidé ou dont les posts m'on inspirés
Séb