Discussion :

[Pierre_SIMON]

Bonjour tout le monde,

J'aurais besoin d'aide car je n'arrive pas a supprimer les lignes vides sur plusieurs feuilles en même temps.

Merci d'avance de votre aide

[Franc]

Bonjour, vous n'êtes pas très précis dans votre demande donc je ne sais pas si cela correspondra à vos besoins.
Il existe plusieurs méthodes pour supprimer les lignes vides sur plusieurs feuilles Excel en même temps. Une méthode consiste à regrouper toutes les feuilles de calcul, puis à supprimer les mêmes lignes ou plages de ces feuilles de calcul en même temps. Pour ce faire, cliquez avec le bouton droit sur n’importe quel onglet de feuille du classeur actuel, puis cliquez sur Sélectionnez toutes les feuilles dans le menu contextuel. Maintenant, toutes les feuilles de calcul sont sélectionnées, si vous supprimez certaines lignes ou plages dans une feuille de calcul, les mêmes lignes ou plages dans d’autres feuilles de calcul sont supprimées ensemble. Après avoir supprimé des lignes ou des plages sur toutes les feuilles, veuillez cliquer avec le bouton droit sur un onglet de feuille, puis cliquez Dissocier les feuilles dans le menu contextuel pour dissocier toutes les feuilles de calcul.

[Pierre_SIMON]

Désolé je vais donner plus de précision à ma demande:

Je dispose d'un fichier composer de plusieurs feuilles différentes ou il y a beaucoup de données mais séparé par plusieurs ligne vides a chaque fois, données exporter d'un tableau d'un autre classeur en VBA vers chaque feuille d'un fichier historique de donnée.

Je suis donc a la recherche dune formule VBA qui me permet sois d'exporté les données a la suite en ne laissant pas de ligne vide a chaque fois dans mes feuilles ou alors une formules qui me permette de supprimer ces fameuses lignes vides.

J'espère que ma demande est mieux formulé et compréhensible.

Merci

[Franc]

Ok, voici une possibilité:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub DeleteBlankRows()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ws.Activate
        Dim lastRow As Long
        lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
        Dim i As Long
        For i = lastRow To 1 Step -1
            If Application.CountA(ws.Rows(i)) = 0 Then
                ws.Rows(i).Delete
            End If
        Next i
    Next ws
End Sub

[Pierre_SIMON]

Ok, voici une possibilité:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub DeleteBlankRows()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ws.Activate
        Dim lastRow As Long
        lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
        Dim i As Long
        For i = lastRow To 1 Step -1
            If Application.CountA(ws.Rows(i)) = 0 Then
                ws.Rows(i).Delete
            End If
        Next i
    Next ws
End Sub

Merci, après plusieurs essais aucune action ne se passe

[Franc]

Chez moi ça fonctionne. C'est possible d'avoir un fichier pour test ?