Conserver une modalité selon critère VBA
Résolu
Lils_Bis
Messages postés
57
Date d'inscription
Statut
Membre
Dernière intervention
-
Lils_Bis Messages postés 57 Date d'inscription Statut Membre Dernière intervention -
Lils_Bis Messages postés 57 Date d'inscription Statut Membre Dernière intervention -
Bonjour à tou(te)s !
Voilà, depuis quelques temps j'ai un problème que je retourne dans tous les sens mais rien n'y fait, je ne trouve pas la solution.
Je vous le présente donc :
J'ai une colonne, avec en première ligne "Lettre"
Au sein de celle-ci, j'ai
A
B
C
C
B
A
A
Mon problème est que grâce à VBA je ne voudrais garder QUE les lignes où "A" est présent dans la colonne "Lettre". Et ce de manière automatisé (en évitant l'enregistreur de Macro).
Dans l'idéal en français, mon idéal ^^ serait de dire que :
Dès que je vois "A" je garde les lignes sinon je les supprime.
Voilà, si quelqu'un avait cela sous le coude, ça me serait d'une aide précieuse !
Merci d'avance à tous, je vous souhaite une bonne journée !
Voilà, depuis quelques temps j'ai un problème que je retourne dans tous les sens mais rien n'y fait, je ne trouve pas la solution.
Je vous le présente donc :
J'ai une colonne, avec en première ligne "Lettre"
Au sein de celle-ci, j'ai
A
B
C
C
B
A
A
Mon problème est que grâce à VBA je ne voudrais garder QUE les lignes où "A" est présent dans la colonne "Lettre". Et ce de manière automatisé (en évitant l'enregistreur de Macro).
Dans l'idéal en français, mon idéal ^^ serait de dire que :
Dès que je vois "A" je garde les lignes sinon je les supprime.
Voilà, si quelqu'un avait cela sous le coude, ça me serait d'une aide précieuse !
Merci d'avance à tous, je vous souhaite une bonne journée !
A voir également:
- Conserver une modalité selon critère VBA
- Excel compter cellule couleur sans vba - Guide
- Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
- Find vba - Astuces et Solutions
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
2 réponses
bonjour,
voici la macro :
sub suppression ()
' on commence à la ligne 1
i= 1
'on va balayer la colonne 1 jusqu'à qu'une cellule soit vide
do while sheets("sheet1").cells(i,1) <> ""
if cells(i,1) <> "A" then
sheets("sheet1").Delete Shift:=xlUp
i=i-1
end if
i=i+1
loop
end sub
voici la macro :
sub suppression ()
' on commence à la ligne 1
i= 1
'on va balayer la colonne 1 jusqu'à qu'une cellule soit vide
do while sheets("sheet1").cells(i,1) <> ""
if cells(i,1) <> "A" then
sheets("sheet1").Delete Shift:=xlUp
i=i-1
end if
i=i+1
loop
end sub
Merci pour ta solution, je viens de la tester à l'instant et j'ai un petit problème. J'ai bien essayé de bidouiller quelque peu mais rien à faire!
C'est cette ligne qui me pose problème :
sheets("sheet1").Delete Shift:=xlUp
En effet, quand j'exécute, l'erreur d'exécution '1004' apparaît, à savoir "Erreur définie par l'application ou par l'objet".
Si tu savais d'où pouvait provenir le problème, cela me serait d'une grande aide !
Merci à toi par avance !