Suppression de ligne vide excel [Résolu]

Réponse 2 / 6

pascalou83400 Messages postés 273 Date d'inscription dimanche 20 juillet 2014 Statut Membre Dernière intervention 24 janvier 2022
24 nov. 2017 à 10:09

Bonjour f894009,

Merci pour ton code, j'ai oublié de préciser que j'avais dans mes classeurs X feuilles et que je ne dois pas faire la dernière, et que ce code tourne avant la boucle.

Je ne sais pas quoi mettre pour atteindre les feuilles ?

Merci pour ton aide.

Bonne journée

Pascal

Réponse 3 / 6

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
24 nov. 2017 à 10:16

Re,

Sub Sup_ligne_vide()
    Dim sh As Worksheet
    
    Derniere_Feuille = "Feuil4"     'mettre le nom de la feuille a ne pas purger
    'boucle sur les feuilles
    For Each sh In Worksheets
        If sh.Name <> Derniere_Feuille Then     'nom feuille en cours different du nom derniere feuille
            With sh       'adaptez le nom de feuille
                Nb = .Range("B" & .Rows.Count).End(xlUp).Row        'ligne derniere cellule non vide colonne B
                'boucle sur colonne B en commencant par la fin
                For n = Nb To 1 Step -1
                    If Application.CountA(.Rows(n)) = 0 Then        'zero cellule non vide
                    .Rows(n).Delete     'suppression ligne
                    End If
                Next n
            End With
        End If
    Next
End Sub

Réponse 4 / 6

pascalou83400 Messages postés 273 Date d'inscription dimanche 20 juillet 2014 Statut Membre Dernière intervention 24 janvier 2022
24 nov. 2017 à 11:14

Merci f894009

Je fais des essais, je deviens fou avec mes codes.

Je te dis si cela fonctionne dans mon classeur.

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 6

pascalou83400 Messages postés 273 Date d'inscription dimanche 20 juillet 2014 Statut Membre Dernière intervention 24 janvier 2022
27 nov. 2017 à 13:41

Bonjour f894009?

Je crois avoir trouvé mon souci, suite à une demande tu m'avais fait ce code, sauf qu'il m'efface toutes lignes avec comme référence colonne B(normal c'est ma demande), mais il dois commencer à partir de B18, car les lignes avant non pas de données, donc effacées et cela fait sauter mon tableau et tous les codes ne correspondent plus au tableau.

j'ai essayé de modifier mais comme dab, c'est pas bon.

J'ai mis "B18" mais il n'en veut pas.

Merci pour ton aide.

Bonne journée.

Sub Sup_ligne_vide()
Dim sh As Worksheet

Derniere_Feuille = "Feuil4" 'mettre le nom de la feuille a ne pas purger
'boucle sur les feuilles
For Each sh In Worksheets
If sh.Name <> Derniere_Feuille Then 'nom feuille en cours different du nom derniere feuille
With sh 'adaptez le nom de feuille
Nb = .Range("B" & .Rows.Count).End(xlUp).Row 'ligne derniere cellule non vide colonne B
'boucle sur colonne B en commencant par la fin
For n = Nb To 1 Step -1
If Application.CountA(.Rows(n)) = 0 Then 'zero cellule non vide
.Rows(n).Delete 'suppression ligne
End If
Next n
End With
End If
Next
End Sub

Réponse 6 / 6

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
27 nov. 2017 à 17:18

Bonjour,

Sub Sup_ligne_vide()
    Dim sh As Worksheet
    
    Derniere_Feuille = "Feuil4"     'mettre le nom de la feuille a ne pas purger
    'boucle sur les feuilles
    For Each sh In Worksheets
        If sh.Name <> Derniere_Feuille Then     'nom feuille en cours different du nom derniere feuille
            With sh       'adaptez le nom de feuille
                Nb = .Range("B" & .Rows.Count).End(xlUp).Row        'ligne derniere cellule non vide colonne B
                'boucle sur colonne B en commencant par la fin jusqu'a ligne 18
                For n = Nb To 18 Step -1
                    If Application.CountA(.Rows(n)) = 0 Then        'zero cellule non vide
                    .Rows(n).Delete     'suppression ligne
                    End If
                Next n
            End With
        End If
    Next
End Sub

Suppression de ligne vide excel

6 réponses

Discussions similaires

Newsletters