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