Supprimer des lignes en fonction des valeurs d'une colonne
Résolu/Fermé
maxime 25
Messages postés
19
Date d'inscription
vendredi 12 juillet 2013
Statut
Membre
Dernière intervention
1 août 2013
-
24 juil. 2013 à 09:16
CCD - 8 avril 2019 à 08:37
CCD - 8 avril 2019 à 08:37
A voir également:
- Vba supprimer des lignes en fonction d'une valeur
- Supprimer une page word - Guide
- Fonction si et - Guide
- Supprimer compte instagram - Guide
- Supprimer pub youtube - Accueil - Streaming
- Partager photos en ligne - Guide
3 réponses
melanie1324
Messages postés
1504
Date d'inscription
vendredi 25 mai 2007
Statut
Membre
Dernière intervention
31 janvier 2018
154
24 juil. 2013 à 09:44
24 juil. 2013 à 09:44
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
maxime 25
Messages postés
19
Date d'inscription
vendredi 12 juillet 2013
Statut
Membre
Dernière intervention
1 août 2013
24 juil. 2013 à 11:14
24 juil. 2013 à 11:14
Merci pour cette réponse rapide.
Lorsque j'éssais la maccro, il me dis erreur de compilation : erreur de syntaxe
sur cette ligne :
if cells(i,19)<> ""
Lorsque j'éssais la maccro, il me dis erreur de compilation : erreur de syntaxe
sur cette ligne :
if cells(i,19)<> ""
melanie1324
Messages postés
1504
Date d'inscription
vendredi 25 mai 2007
Statut
Membre
Dernière intervention
31 janvier 2018
154
24 juil. 2013 à 11:38
24 juil. 2013 à 11:38
oui pardon remplace
if cells(i,19)<> ""
par
if cells(i,19)<> "" then
if cells(i,19)<> ""
par
if cells(i,19)<> "" then
maxime 25
Messages postés
19
Date d'inscription
vendredi 12 juillet 2013
Statut
Membre
Dernière intervention
1 août 2013
24 juil. 2013 à 11:58
24 juil. 2013 à 11:58
Parfait !!!!
Merci beaucoup melanie :)
Merci beaucoup melanie :)
8 avril 2019 à 08:37