Bonjour,
Je voulais créer une Macro qui supprime:
- Les lignes Vides.
- Les Lignes ou la colonne B n'est pas un chiffre.
- Toutes les lignes ou la colonne B commence par une *

Voici mon code: ca fonctionne à date, mais je me demande s'il y a mieux (par curiosité )
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
18
19
 
 
Sub Mise_En_Forme()
Dim i As Integer
 
 
    For i = Range("B65536").End(xlUp).Row To 1 Step -1
    ' Supprimer les lignes ou les colonnes B commence par une *
    If Range("B" & i) Like "* *" Then Rows(i).Delete
    If Range("B" & i) Like "Rubrique*" Then Rows(i).Delete
    If Range("B" & i) Like "Montant*" Then Rows(i).Delete
    If Range("B" & i) Like "Devise*" Then Rows(i).Delete
    If Range("B" & i) Like "*** " Then Rows(i).Delete
    ' Supprimer les lignes vides
    Range("B:B").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
 
Next i
 
End Sub
Merci!