[XL-2003] LISTVIEW problème avec suppression lignes [Résolu]

[goldfinger13]

Bonsoir à tous,
je vous sollicite à nouveau sur un fichier avec listview.
si je pense avoir réussi globalement sa construction, je bute sur un problème la suppression de ligne.
Je suis bien arrivé a supprimer ma ligne sur la listview mais pas moyen dans la base de données. J'ai fait le tour des forums trouvé quelques indications notamment un problème de clé mais franchement je bute sur le code.
Je vous transmet mon fichier en pièce jointe en espérant trouver une âme charitable qui voudra bien se pencher dessus.

merci d'avance

[Daniel.C]

Bonjour,

Où est initialisée la variable "lig" ?

[goldfinger13]

bonjour le forum
c'est justement là dessus que je bloque!

[Daniel.C]

Remplace :

Code :

Sheets(ActiveSheet.Name).Rows(Lig).Delete Shift:=xlUp

par :

Code :

Sheets(ActiveSheet.Name).Rows(ListView1.SelectedItem.Index + 1).Delete Shift:=xlUp

Remarque que :

Code :

ActiveSheet.Rows(ListView1.SelectedItem.Index + 1).Delete Shift:=xlUp

est plus simple.

[goldfinger13]

Le plus simple pour y voir c'est d'ouvrir les yeux !!!
ça marche nickel
problème résolu
merci pour ton aide