Probleme avec listwiew

[poussy67]

Bonsoir le forum

Je découvre depuis peut sur la vba d'Excel et j'essaye de comprendre. Je demande de l'aide ou des conseilles au spécialiste. J'ai un problème avec un listwiew que j'ai récupéré sur le forum et que j'ai modifié. Mon premier problème est que j'ai un message d'erreur (Erreur d'exécution '35600': Index hors limites. Qui provient de cette ce code ".ListItems(x).ListSubItems.Add , , Cell.Offset(0, m)", quand je désactive ce code dans le listwiew j'ai les données qui sont dans une colonne au lieux d'être sur plusieurs colonne. Cela fait plusieurs jours que je suis sur ce problème et que je n'avance plus ci joint un exemple:


Merci d'avance

cdt poussy

 

[Spitnolan08]

Re : Probleme avec listwiew

Bonsoir,

Il faut que tu rajoutes x=0 à cette place :

x = 0
With Sortie_stock

Sinon tu essaies de remplir une ligne qui n'existe pas.

Cordialement

 

[Spitnolan08]

Re : Probleme avec listwiew

Re,
Et je dirais même plus :

[B][COLOR=Blue]x = 0[/COLOR][/B]
With Sortie_stock
For Each Cell In Sheets("Feuille_retro").Range("A18:[B][COLOR=Blue]A[/COLOR][/B]" & k)

Car sinon tu vas avoir un grand patchwork dans ta listview...😀

Cordialement

 

[poussy67]

Re : Probleme avec listwiew

Merci beaucoup pour ton aide

ci joint l'exemple avec la modif

cdt poussy