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!!

[coudrayc]

bonjour
pas répondu avant je suis allé a la pref avec l'impression de ma feuille excel
qui fait 125 pages.

j'avais besoin de leusr donner un inventaire mais mon log qui est comme moi trop
c..... me donne aussi les lignes à 0 donc je voulais les enlever avec une macro
mais je n'en avais jamais écrit. trop tard mais je n'est pas dit mon dernier mot ce n'est pas un logicie lqui va m'arreter je vais apprendre à les écrires c foutus macros.
vous qui etes tous des cadors dites mois donc quel bouquin acheter
merci a tous pour vous etre penché sur mon problème je ne manquerait pas de vous solliciter si je n'y arrive pas.
cc

[titou31000]

Je pense que tu peux rester sur ce site!! De bons tutoriels, une bonne communauté pour t'aider!!

[SfJ5Rpw8]

oui , mais si c'est juste pour effacer des lignes vides d'une feuille pas besoin de macro tu as plus vite de fait de faire cela avec un filtre automatique que d'effectuer un copier/coller d'une macro...