Probleme de creation d'une Pivot table (TCD)

Merci jacques_jean et fring.
Ca marche tres bien pour une cellule et vous avez raison jacques_jean, c'est bien ca le probleme.:oops:
Avant je remplissais ma listBox avec une selection de 4 colonnes, mais la c'est juste une seule cellule, comment faire pour prendre ma selection de 4 colonnes?
Merci encore a vous deux:king:

Bonjour,

Essayez ce code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub Init_List() Dim i%, j%, dl% ListBox1.Clear dl = Range("A65536").End(xlUp).Row   ListBox1.ColumnCount = 5   For i = 1 To dl j = 1 ListBox1.AddItem Cells(i, j)   For j = 2 To 5 ListBox1.List(ListBox1.ListCount - 1, j) = Cells(i, j) Next j   Next i End Sub

---

Encore une fois merci mais ca marche pas:cry:
voila mon code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub Init_Combo() Dim dl As Integer   With Sheets("Sheet1") .ListBox1.Clear dl = .range("A65536").End(xlUp).Row ListBox1.ColumnCount = 5 For i = 10 To dl j = 27 If .Cells(i, j).Text <> "" Then .ListBox1.AddItem Cells(i, j).Text For j = 27 To 31 .ListBox1.List(ListBox1.ListCount - 1, j) = Cells(i, j) Next End If Next i End With End Sub

---

Ca bloque au niveau .ListBox1.List(ListBox1.ListCount - 1, j) = Cells(i, j)
ca me fait (Run-time error 380, Invalid property value)

C'est normal, il faut dans votre cas utiliser en plus d'autres variables.

Je regarde.

Voici le code à essayer (chez moi cela fonctionne).

Si ce code se trouve sur la feuille contenant la ListBox, il n'est pas utile d'utiliser With et le point devant les lignes de code, mais je l'ai laissé, qui peut le plus peut le moins.

La plage définie suppose que votre zone de liste se trouve en colonne "AA" jusque "AD" et commence en ligne 10 (celle-ci n'étant pas une ligne de titres).

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Sub Init_Combo() Dim dl%, i%, j%   With Sheets("Sheet1") .ListBox1.Clear dl = .Range("AA65536").End(xlUp).Row ListBox1.ColumnCount = 5 For i = 10 To dl j = 27   'la ligne ci-dessous était prévue au départ pour le traitement d'une seule 'colonne. Si vous pouvez avoir une 1ère colonne vide et d'autres contenant 'des données, il faut la supprimer ainsi que le End If.   If .Cells(i, j).Text <> "" Then .ListBox1.AddItem Cells(i, j).Text For j = 28 To 31 .ListBox1.List(ListBox1.ListCount - 1, j - 27) = Cells(i, j) Next End If Next i End With End Sub

---

c super , ca marche :yaisse2:
Merci beaucoup.
Vous etes genial et merci aussi a fring et Godzestla.
:king:

Bojour jacques_jean

je te reviens sur ce probleme car il y a un petit soucis.
tous marche nickel sur ma listebox, c'est juste qu'elle se rafraichit pas au lencement de la macro, faut que je bouge ma feuille excel ou cliquer sur les items un par un pour afficher le resultat de la nouvelle recherche.
Y a t il un truc que je dois rajouter dans mon code?