Discussion :

[flodino]

Bonjour,

j'ai trouvé une macro qui me serait très utile concernant la suppression de ligne totalement vides ( sur ce forum d'ailleurs :p )

Code :

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

1
2
3
For i = Sheets("Feuil1").Range("A65536").End(xlUp).Row To 1 Step -1
If Application.CountA(Rows(i)) = 0 Then Rows(i).Delete Shift:=xlUp
Next

Mais, commençant à m'intéresser au VBA, j'ai deux petites questions concernant ce code,

- Comment le paramètrer pour qu'il ne commence qu'à partir de la ligne 10 ?

et - comment faire pour qu'il s'applique à trois feuilles ? Est ce que je dis des bétises si on peut faire comme ça Sheets("Feuil1"&"Feuil2"&Feuil3") ?

En vous remerciant !

[Invité]

Bonjour,

Si vous en avez la possibilité, optez plutôt pour un tri.
Sinon, si vous avez compris la syntaxe :

Code :

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

Sheets("Feuil1").Range("A65536").End(xlUp).Row To 10 Step -1

Et vous répétez autant de fois que d'onglets.

[Menhir]

- Comment le paramètrer pour qu'il ne commence qu'à partir de la ligne 10 ?

En comprenant comment fonctionne une boucle For To.
https://docs.microsoft.com/fr-fr/off...next-statement
N'oublie pas de repérer le Step -1 dans le code : très important quand on fait de l'insertion ou de la suppression.

comment faire pour qu'il s'applique à trois feuilles ?

En mettant ce code à l'intérieur d'une structure For Each qui boucle sur la collection Worksheets (le "s" final est important).
https://docs.microsoft.com/fr-fr/off...next-statement

Si ça ne concerne pas toutes les feuilles, du classeur, il faudra dupliquer le code pour chaque feuille ou le mettre dans une sous-routine.

Est ce que je dis des bétises si on peut faire comme ça Sheets("Feuil1"&"Feuil2"&Feuil3") ?

Oui

[patricktoulon]

re
bonjour
sinon tu boucle de 1 a xxxx( y en a qui vont crier)
ben on les laisse crier et tu stocke tes lignes et supprime le tout en une fois

ca va faire du bien a tes yeux et pour le screenupdating ca fait des vacances
et ca va plus vite en plus pour la simple et bonne raison qu'il n'y a pas le rafraichissement + shift up a chaque fois qu'une ligne est supprimée
LOL

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub test()
    Dim p As Range, i&
    With Sheets("Feuil1")
        For i = 10 To .Range("A"& rows.count).End(xlUp).Row
            If Application.CountA(Rows(i)) = 0 Then
                If p Is Nothing Then Set p = Rows(i) Else Set p = Union(p, Rows(i))
            End If
        Next
    End With
    If Not p Is Nothing Then p.Delete
End Sub

[flodino]

Merci beaucoup pour toutes vos solutions qui marchent toutes !