Discussion :

[Vadorblanc]

Bonjour
Je souhaite supprimer toutes les lignes différentes de la dernière ligne non vide de la valeur en colonne A
Exemple:
j'ai en colonne A "janvier" avec une variable de lignes
j'ai en collonne A "février" avec une variable de lignes
j'ai en colonne A "mars" avec une variable de ligne, etc...
et je voudrais garder que le dernier bloc de lignes contenant "mars" qui est le bloc le plus bas du fichier, sachant que le dernier bloc puisse être un mois de janvier à décembre tout dépend de la date d'extraction en cours d'année.
Donc supprimer toutes les lignes en partant du bas du fichier qui sont différentes de la valeur en colonne A de la dernière ligne.
Ce code ne me supprime que les lignes contenant "janvier"
Il me faudrait supprimer les lignes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If ActiveCell = <>A? Then

Merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Supprime()
 
Application.ScreenUpdating = False
With Sheets("Base")
 
Range("A65536").End(xlUp).Select
Do While ActiveCell.Row > Range("A1").Row
If ActiveCell = "janvier" Then
ActiveCell.EntireRow.Delete
End If
ActiveCell.Offset(-1, 0).Select
Loop
If ActiveCell = "A" Then
ActiveCell.EntireRow.Delete
End If
End With
End Sub

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim Lastlig As Long
 
Application.ScreenUpdating = False
With Sheets("Base")
     .AutoFilterMode = False
     Lastlig = .Cells(.Rows.Count, 1).End(xlUp).Row
     .Range("A1:A" & Lastlig).AutoFilter field:=1, Criteria1:="<>" & .Range("A" & Lastlig).Value
     If .Range("A1:A" & Lastlig).SpecialCells(xlCellTypeVisible).Count > 1 Then .Range("A2:A" & Lastlig).SpecialCells(xlCellTypeVisible).EntireRow.Delete
     .AutoFilterMode = False
End With

[Vadorblanc]

Bonjour mercatog
C'est génial, je mets bien de côté toutes les boucles que tu m'as déjà donné...en essayant toujours de les comprendres...
Un grand Merci à toi
Bien cordialement