Discussion :

[coudrayc]

bonjour
j'ai une urgence je doit déposé un dossier a la préfecture j'ai un fichier de 125 page a imprimer mais la moitié ne sert a rien
en clair je veut supprimer toutes les lignes donc la case d est vide
je n'ai encore jamais crée de macro
je sait je sait c trop facile de demander sur le forum j'ai commencé a supprimer les lignes mais j'en ai pour 10 ans
alors merci merci pour votre aide
cc

[titou31000]

Bonjour,

Essaye quelque chose comme ça

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub SupprLignesVides()
 
    ' Placement sur la dernière ligne de données
    Range("A65536").End(xlUp).Select
    Do
        If IsEmpty(Cells(ligne,colonne)) Then
            ActiveCell.EntireRow.Delete
        End If
        ActiveCell.Offset(-1, 0).Select
    Loop Until ActiveCell.Row = 1
End Sub

[titou31000]

Après je ne sais pas si tu souhaites parcourir toutes tes feuilles. Dans ce cas, tu peux faire

Code :

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

1
2
3
4
Dim ws As Worksheet
For Each ws In Worksheets
'Code pour supprimer les lignes vides
Next

[SfJ5Rpw8]

bonjour,

c'est quoi "un fichier de 125 pages " ?

125 feuilles (onglets) ?

Cdt.

[vieuxmonsieur]

bonjour,
le fichier Word - Excel ou autre

[titou31000]

Oui c'est vrai que je n'ai pas demandé tout ça car vu qu'elle était sur le forum "Vba Excel", j'en ai déduit que c'était pour du Excel.

A mon avis cela ne doit pas être si urgent que ça vu la rapidité de ces réponses!!