Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Suppresion multilignes

L

lordame

Guest
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
 
A

Abel

Guest
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.
 

Discussions similaires

Réponses
17
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…