Discussion :

[MInfo25]

Bonjour
Je voudrais supprimer les lignes vides de ma plage Plage = Feuil8.Range("A5:M30") :

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
 
' on définit une plage pour l'ensemble des données
Set Plage = Feuil8.Range("A5:M30")
' nombre de lignes de la plage
'nblig = Plage.Rows.Count
'nbcol = Plage.Columns.Count
 
 
For i = 5 To 20
    ' si les 7 cellules sont vides
    If Application.WorksheetFunction.CountA(Range(Plage)) = 0 Then
        ' on supprime la ligne
        Feuil8.Rows(i).Delete
    End If
Next i

[wheel]

Inverser l'ordre de la suppression l’opération sera plus logique

Code :

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

 For i = 20 To 5 Step -1

[MInfo25]

J'ai trouvé une solution en générant une macro qui supprime les lignes vides.