Discussion :

[Bedley]

Bonsoir a tous !!!

Depuis un petit moment je suis confronté à un petit soucis. J'ai écrit un code VBA pour copier les données d'une listebox vers un tableau structuré. Cependant tout se passe bien mais le problème est que une fois insérer les enregistrements dans le tableau, l'ordre est inversé c'est a dire que la dernière ligne de données se retrouve en première ligne et la première ligne se retrouve à la dernière ligne insérer.

Voici un peux le code
Dim i as integer
Dim x as long

For i=0 To Me.list_des_taches.listcount-1

Rows(x & ":" & x).insert shift:=xldown

Cells(x,2)=Me.list_des_taches.list(i,0)
Cells(x,3)=Me.list_des_taches.list(i,1)
Cells(x,4)=Me.list_des_taches.list(i,8)

Le code fonctionne parfaitement à la seule différence que les enregistrements dans le tableau sont renversé comme je l'ai expliqué déjà.
Toutes aide me sera très utile. Merci

[Philippe Tulliez]

Bonjour,
Je pense qu'un simple tri de la ou des colonnes qui doivent être dans le bon ordre devrait suffire.

[deedolith]

Salut,

Je t'invite plutot à passer par l'objet ListObject, c'est l'interface permettant de manipuler les tableaux structurés.
La fonction Add() de la propriété ListRows (qui représente les lignes) renvoie une référence vers la ligne ajoutée, ce qui sera beaucoup plus facile à manipuler que de calculer l'adresse d'une plage de cellules quelque part sur la feuille.

Exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim Ws As Excel.Worksheet
Set Ws = ThisWorkbook.Worksheets("Feuil1")
 
Dim Lo As Excel.ListObject
Set Lo = Ws.ListObjects(1)
 
Dim Lr As Excel.ListRow
Set Lr = Lo.ListRows.Add
 
Lr.Range.Cells(1).value = "bla bla bla"

[Tête de chat]

Bonjour

ce qui te fera le moins de modif :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For i= Me.list_des_taches.listcount-1 to 0 step -1

Mais si tu veux gagner un peu en performances, insère toutes les lignes d'un coup

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Rows(x & ":" & x + Me.list_des_taches.listcount).insert shift:=xldown

puis en gardant le for dans l'ordre croissant de 0 à listcount,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(x+i,2)=Me.list_des_taches.list(i,0)

etc.

[Bedley]

Finalement c'est le code suivant que j'ai dû adopter

For i= Me. List_ des _taches.listcount-1 to 0 step-1


Que j'ai dû adopter. Il marche très bien.

Merci a vous tous qui avez apporté vos contributions pour satisfaire mon inquiétudes. Je vous en suis très reconnaissant. Merci