XL 2010 masquer lignes

[chti59xcel]

Bonjour,

J'ai trouvé une macro sur votre site Internet qui m'intéresse, mais j'aurai besoin d'un coup de main pour la faire évoluer s'il vous plait.
La voici d'origine :
Sub hide()
Range("f5:f100").Select
For Each o In Selection
If o.Value = "" Then
o.EntireRow.Hidden = True
End If
Next
End Sub

Serait t'il possible d'inclure aussi les cellules dont la somme est 0
Et d'ajouter la possibilité en cliquant sur le bouton macro de masquer, mais aussi de démasquer ?

D'avance, je vous remercie, bien cordialement, Chti589Xcel

 

[Staple1600]

Bonjour le fil


Suggestion
Pourquoi ne pas simplement utiliser le filtre automatique ?
(avec également les affichages personnalisés)

 

[Staple1600]

Re

Pour développer ma suggestion précédente
1) On applique le filtre manuellement
Puis on fait Affichage -> Personnalisé -> Ajouter
(ici je l'ai nommé: Masquer Vide & 0
2) On supprime le filtre et on ajoute un second affichage personnalisé
(que j'ai nommé : Afficher Tout

Ensuite on peut avec ces deux macros afficher ou masquer

Sub Masquer()
ActiveWorkbook.CustomViews("Masquer Vide & 0").Show
End Sub
Sub Afficher()
ActiveWorkbook.CustomViews("Afficher Tout").Show
End Sub

Pour poursuivre, on ajoute deux boutons auxquels on associera ces deux macros.

 

[chti59xcel]

Re

Pour développer ma suggestion précédente
1) On applique le filtre manuellement
Puis on fait Affichage -> Personnalisé -> Ajouter
(ici je l'ai nommé: Masquer Vide & 0
2) On supprime le filtre et on ajoute un second affichage personnalisé
(que j'ai nommé : Afficher Tout

Ensuite on peut avec ces deux macros afficher ou masquer

Sub Masquer()
ActiveWorkbook.CustomViews("Masquer Vide & 0").Show
End Sub
Sub Afficher()
ActiveWorkbook.CustomViews("Afficher Tout").Show
End Sub

Pour poursuivre, on ajoute deux boutons auxquels on associera ces deux macros.

Bonjour,

Je viens de tester, mais je n'ai pas réussi à faire fonctionner ma colonne.
L'idée, c'est de travailler cette possibilité sur la F
Cordialement

 

[sylvanu]

Bonjour Chti, Staple,
Essayez :

Sub hide()
    Application.ScreenUpdating = False
    For Each o In [F5:F100]
        If o.Value = "" Or o.Value = 0 Then o.EntireRow.Hidden = True
    Next
End Sub

 

[chti59xcel]

Bonjour Chti, Staple,
Essayez :

Sub hide()
    Application.ScreenUpdating = False
    For Each o In [F5:F100]
        If o.Value = "" Or o.Value = 0 Then o.EntireRow.Hidden = True
    Next
End Sub

Ok, merci, oui ça fonctionne. Il me faudrait aussi la possibilité de réafficher mes chiffres toujours dans la même colonne. L'idée, c'est de me simplifier la lecture contenus dans ces cellules quand il y a des résultats.
Merci beaucoup, cordialement, Chti59Xcel

 

[Staple1600]

Re, Bonjour @sylvanu

@chti59xcel

L'idée, c'est de travailler cette possibilité sur la F

C'est ce que j'ai fait lors de mon test

1) Je filtre avec les critéres suivants:
0 et vides décochés dans le filtre automatique
je créé alors manuellement un affichage personnalisé
2) j'efface le filtre
Puis je créé un second affichage personnalisé

Ensuite les deux macros précédemment proposées permettent de basculer d'un affichage à l'autre.

 

[chti59xcel]

Re, Bonjour @sylvanu

@chti59xcel

C'est ce que j'ai fait lors de mon test Regarde la pièce jointe 1170194
1) Je filtre avec les critéres suivants:
0 et vides décochés dans le filtre automatique
je créé alors manuellement un affichage personnalisé
2) j'efface le filtre
Puis je créé un second affichage personnalisé

Ensuite les deux macros précédemment proposées permettent de basculer d'un affichage à l'autre.

Re bonjour,

Merci pour cet envoi, j'ai suivi la procédure, mais ça ne fonctionne pas.
Est-ce que le fait d'avoir des cellules vide entre plusieurs cellules avec des chiffres, ça peur jouer ?
Cordialement, Chti59Xcel

 

[Staple1600]

Re

@chti59xcel
bah joins un fichier exemple (allégé et anonymisé) pour que je puisse tester ma méthode.

Je pourrais alors te dire si cela fonctionne ou pas.

 

[sylvanu]

Re

Il me faudrait aussi la possibilité de réafficher mes chiffres toujours dans la même colonne

Sub AfficheAvec0()
    Application.ScreenUpdating = False
    For Each o In [F5:F100]
        If o.Value <> "" Then
            o.EntireRow.Hidden = False
        Else
            o.EntireRow.Hidden = True
        End If
    Next
End Sub

Comme ça vous avez deux solutions.

 

[chti59xcel]

Re

Sub AfficheAvec0()
    Application.ScreenUpdating = False
    For Each o In [F5:F100]
        If o.Value <> "" Then
            o.EntireRow.Hidden = False
        Else
            o.EntireRow.Hidden = True
        End If
    Next
End Sub

Comme ça vous avez deux solutions.

Bonjour,

Merci pour tous ces retours de macros et solutions.
Je vous joins un fichier comme demandé.
Ce que je recherche, c'est une possibilité avec un bouton macro de pouvoir masquer/démasquer les cellules de la colonne F qui sont vides ou don la somme est de zéro. Cela me permettra dans mon classeur original de pouvoir mieux visualiser mes lignes comptables remplies et le résultat.

D'avance, un grand merci, cordialement, Chti59Xcel

 

[sylvanu]

Bonjour,
Pourquoi ne pas avoir simplement appliquer ce que nos solutions préconisaient ?
"Just for the fun", en PJ une solution basée sur une macro Worksheet_SelectionChange.
Il suffit de cliquer sur la cellule A1 pour masquer ou démasquer les lignes.
NB: je ne comprends pas votre plage F5:F100 puisque dans votre fichier il semblerait que ce soit F2:F111;
Donc je l'ai rendu dynamique pour faire plus simple.

 

[chti59xcel]

Bonjour,
Pourquoi ne pas avoir simplement appliquer ce que nos solutions préconisaient ?
"Just for the fun", en PJ une solution basée sur une macro Worksheet_SelectionChange.
Il suffit de cliquer sur la cellule A1 pour masquer ou démasquer les lignes.
NB: je ne comprends pas votre plage F5:F100 puisque dans votre fichier il semblerait que ce soit F2:F111;
Donc je l'ai rendu dynamique pour faire plus simple.

Bonjour, merci pour ce retour de macro.
Ce n'est pas toujours simple de bien exprimer son besoin, désolé.
Si je maitrisai un peu le langage vba, ça serait plus facile, c'est sûr.
Je viens de tester la macro dans mon classeur original, ça fonctionne impeccable, un grand merci.
bien cordialement, Chti59Xcel

 

[Staple1600]

Bonjour le fil

@chti59xcel
Juste pour indiquer que ma proposition fonctionne bien sur ton fichier exemple
(juste avec le filtre automatique et les affichages personnalisés)

 

[chti59xcel]

Bonjour le fil

@chti59xcel
Juste pour indiquer que ma proposition fonctionne bien sur ton fichier exemple
(juste avec le filtre automatique et les affichages personnalisés)
Regarde la pièce jointe 1170355

Bonjour, merci pour ton retour.
Effectivement, c'est moi qui n'est pas réussi la procédure.
Il faut que je réessaye et que je trouve afin de pouvoir réutiliser cette possibilité et surtout apprendre une nouvelle fonctionnalité que je ne connaissais pas.
Bien cordialement, Chti59Xcel