Supprimer des lignes en fonction des valeurs d'une colonne
Résolu
maxime 25
Messages postés
19
Date d'inscription
Statut
Membre
Dernière intervention
-
CCD -
CCD -
A voir également:
- Vba supprimer des lignes en fonction d'une valeur
- Supprimer rond bleu whatsapp - Guide
- Supprimer une page word - Guide
- Fonction si et - Guide
- Partager des photos en ligne - Guide
- Comment supprimer une application préinstallée sur android - Guide
3 réponses
Bonjour,
voici la macro :
sub suppressionlignes ()
i=2 'commence à la ligne 2 de ton tableau
do while cells(i,1) <> "" 'la boucle agira tant que la cellule de la ligne i et colonne 1 contient une valeur, il faut que tu es une colonne ou y a toujours une valeur, si c'est pas la 1 mets le chiffre correspondant à la colonne ou y a toujours une valeur
if cells(i,19)<> "" 'si la cellule de la ligne i colonne 19 (S) contient une valeur
Rows(i).Delete Shift:=xlUp 'on supprime la ligne
else 'sinon
i=i+1 'on passe à la ligne suivante
end if
loop
end sub
voici la macro :
sub suppressionlignes ()
i=2 'commence à la ligne 2 de ton tableau
do while cells(i,1) <> "" 'la boucle agira tant que la cellule de la ligne i et colonne 1 contient une valeur, il faut que tu es une colonne ou y a toujours une valeur, si c'est pas la 1 mets le chiffre correspondant à la colonne ou y a toujours une valeur
if cells(i,19)<> "" 'si la cellule de la ligne i colonne 19 (S) contient une valeur
Rows(i).Delete Shift:=xlUp 'on supprime la ligne
else 'sinon
i=i+1 'on passe à la ligne suivante
end if
loop
end sub
CCD
trés utile merci