Discussion :

[laloune]

Bonjour à tous,

je sais que le sujet a dû susciter de nombreuses conversations, mais je ne comprends pas pourquoi ce que j'ai codé ne fonctionne pas...

Ce qui devrait se produire, c'est une suppression de toutes les lignes dont les cellules sont vides dans la plage sélectionnées... Ca fonctionne à peu près, vu que les lignes se suppriment... Mais TOUTES ne se suppriment pas, ca fait que je dois cliquer plusieurs fois sur mon bouton pour que toutes soient supprimées

Voici ce que j'ai écrit avec mes petits doigts :

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 
 
Sub SupprimerLignesVides()
 
    If Not Windows.Count < 1 Then
        Application.ScreenUpdating = False
 
        'Déclaration des variables
        Dim SelectedCells As Range
        Dim oCell
        Dim msg As String
        Dim LastCell As Long, Curseur As Long
 
        Set SelectedCells = Selection
 
        'S'il y a plus d'une cellule sélectionnée
        If SelectedCells.Cells.Count > 1 Then
            'Initialisation dernière cellule de la plage
            LastCell = SelectedCells.Cells.Count
            For Curseur = 0 To LastCell
 
                'Suppression de la ligne si la cellule est vide
                If SelectedCells(Curseur).Value = "" Then
                    SelectedCells(Curseur).EntireRow.Delete
                End If
 
            Next
 
        Else
 
            'Message pour les étourdis
            msg = "Sélectionnez une plage"
            MsgBox msg, vbInformation, "Information"
 
        End If
 
        Set SelectedCells = Nothing
 
        Application.ScreenUpdating = True
    End If
 
End Sub

Il me semble que le problème vient de la suppression des lignes, la plage n'étant plus la même...

Merci pour votre aide
laloune

[patbou]

bonjour,

il faut supprimer les lignes en partant du bas

Code :

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

1
2
3
 
 
For Curseur = LastCell to 1 step -1

[ouskel'n'or]

Tu as plus simple, sans boucle, regarde là, réponse 7
A+

[laloune]

magnifique la solution sans boucle !

merci à vous deux pour vos réponses

laloune