Suppresion multilignes

[lordame]

Bonjour,
Petit nouveau dans le domaine du VBA, j'ai cherché dans le forum si quelqu'un avait déja eu le problème, mais je n'ai rien trouvé.

Je souhaiterai pouvoir supprimer des lignes dans une base de donnée.
Il ne s'agit pas d'une ligne particulière, mais juste de celle qui est correspond à la cellule selectionnée.

Actuellement j'utilise la procédure suivante:

Sub sup()
Dim l As Integer
l = ActiveCell.Row
Rows(l).Select
Selection.Delete Shift:=xlUp
End Sub

Cela marche trés bien mais cela supprime une ligne à la fois.
Est 'il possible de faire la même chose avec plusieurs cellules sélectionné (par exemple A2, D2, Z2...). Le nombre de cellules selectionnée serai différents à chaque fois.

J'espere que j'ai été assez clair.
Merci d'avance

 

[Abel]

Bonjour lordame,

Regarde cette pièce jointe que j'ai mise à disposition il n'y a pas longtemps.

Réduit le nombre d'enregistrements de la colonne A à une trentaine et fais une exécution pas à pas pour voir le fonctionnement.

En espérant que cela te dépanne.

Abel.

 

[lordame]

Merci, je regarde dés que j'ai le temps et je te dis quoi.

 

[lordame]

Merci,
Je regarde dès que possible et je te dis quoi

@+