Discussion :

[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 :

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

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

par :

Code :

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

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

Remarque que :

Code :

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

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