Macro

[Padawan]

Bonjour,

Je travaille sur un fichier excel particulièrement long avec plein de lignes remplies de "0". J'aimerais les effacer ou encore mieux les masquer.
Connaissez-vous un macro capable de faire ça ?
J'ai mis un exemple court en pièce jointe

Merci,

 

[matthieu33]

Re : Macro

Bonjour Padawan et le forum,

Tu peux faire cela sans utiliser les macros et en passant par le menu :
[Outils]/[Options]
Onglet [Affichage]
Décocher la case [Valeurs zéro]
[OK]

Toutes les valeurs "0" restent dans les cellules et sont masquées.

Après si tu veux vraiment une macro, j'en ferai une.

@+

 

[RENAUDER]

Re : Macro

Bonjour,

Par rapport à ton fichier voici un exemple de code
Voir fichier joint pour tester

Sub MasqueLignes()
Application.ScreenUpdating = False
Range("A1").Select
    L = 3
    Range([B2], [B65536].End(xlUp)).Select
    NbLignes = Selection.Rows.Count - 1
    Range("B3").Select
    For i = 1 To NbLignes
        If Application.Sum(Range(Cells(L, 2), Cells(L, 7))) = 0 Then
            Rows(L & ":" & L).Select
            Selection.EntireRow.Hidden = True
        Else
        End If
        L = L + 1
    Next i
    Application.Goto Reference:=Range("A1"), scroll:=True
End Sub

 

[Padawan]

Re : Macro

Merci,

Existe-t-il également une solution pour les supprimer ?

 

[Épaf]

Re : Macro

Sans sélection des lignes, tu peux tester ça

Sub Masquer()
Dim FL1 As Worksheet, Plage As Range, cell As Range, Ligne As Range
Set FL1 = Worksheets("Feuil1")
Set Plage = FL1.Range("B3:B" & FL1.Range("B65536").End(xlUp).Row)
    For Each cell In Plage
        Set Ligne = Range(cell.Address & ":" & cell.Offset(0, 5).Address)
        If Application.WorksheetFunction.Sum(Ligne) = 0 Then _
            cell.EntireRow.Hidden = True
    Next
End Sub

Bonne journée

 

[Épaf]

Re : Macro

Pour effacer, tu remplaces = Hidden par .Delete
@+

 

[Padawan]

Re : Macro

Merci à tous,
Ca marche parfaitement.
Un jour, je saurai programmer des macros.
Je vais aller m'acheter Excel pour les nuls

 

[Padawan]

Re : Macro

Désolé, j'ai encore une question.
Ca marche pour cacher mais quand je remplace par ".Delete" ça me dit ; "erreur 424 Objet requis"

Merci,

 

[matthieu33]

Re : Macro

Bonjour à tous,

Tu dois mettre :

cell.EntireRow.Delete​

sans mettre "= TRUE"

@+

 

[Épaf]

Re : Macro

C'était mis là

Pour effacer, tu remplaces = Hidden par .Delete
@+

 

[Padawan]

Re : Macro

C'est bon, ça marche.
Merci pour votre patience,