Conserver une modalité selon critère VBA Résolu/Fermé

Question

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 !



Configuration: Windows 7 / Firefox 45.0

melanie1324 · Answer

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

Lils_Bis · Answer

J'ai trouvé une solution, je la poste ici ! 
Dim Derlig As Long, b As Long
    With ActiveWorkbook.Worksheets("Feuil1")
        Derlig = .Range("A2").End(xlDown).Row
        For b = Derlig To 2 Step -1
            If .Range("D" & b).Value <> "A" Then
                .Range("D" & b).EntireRow.Delete
            End If
        Next b
    End With

Conserver une modalité selon critère VBA

2 réponses

Discussions similaires