problème effacement ligne dans listing

[libellule85]

Bonjour le forum,
J'ai un onglet listing et un onglet choix où se trouve une liste déroulante en cascade.
Mon problème se situe dans la feuille listing, je m'explique :
quand j'entre un nouveau nom dans mon listing celui-ci va se classer automatiquement par ordre alphabétique et je complète ensuite la ligne pas de problème.
Le problème vient quand je supprime simplement le nom normalement la ligne entière est vidée et va se mettre automatiquement en dernière position or depuis que j'ai ajouté une colonne adresse mail et une colonne photo ces deux colonnes ne se vident pas. La ligne vient bien se mettre en dernière position mais il reste l'adresse mail et la photo !!!
Je vous joins un fichier qui sera plus parlant
D'avance merci pour votre aide

 

[Hippolite]

Re : problème effacement ligne dans listing

Bonjour,

Pour supprimer l'image, il faut faire une boucle sur les images de la feuille et supprimer celle qui se trouve dans la ligne. Pour la manipulation des images : boisgontierjacques.free.fr/lesimages

Pour supprimer la ligne il faut remplacer Cells(Target.Row, 9).Resize(1, 2).ClearContents
par Target.EntireRow.Delete

A+

 

[libellule85]

Re : problème effacement ligne dans listing

Bonjour Hippolite,
Je te remercie pour ta réponse je vais regarder ton lien et modifier la macro.
Encore merci
@+