masquer 0%

[desatan]

Bonjour,

Je cherche une macro qui s'appliquerai sur une plage de données et qui permettrait de masquer les lignes égale à 0% ?
Et une macro qui permettrai d'afficher à nouveau toutes les lignes ?

Merci par avance

 

[Efgé]

Re : masquer 0%

Re à tous, Bonjour Si, @desatan Mets ton vrai classeur en pièce jointe après avoir tout enlevé sauf la colonne 17 . On comprendra peut être mieux, peut être.... Cordialement

 

[desatan]

Re : masquer 0%

fichier en pj merci
c'est même la colonne 19 😱

 

[Dull]

Re : masquer 0%

Salut Si...MonSalopiaud😛, le Forum

Dull😉 fais bien de te proposer, dans ce cas, le Bouton bascule et Si... tu utilises sa particularité, tu as un code très court (testé avec son fichier)

Heu...Prime...J'ai Honte😱...Secondo... jenesaispasoùmemettre,😱 Troisièmement...Entre Fred🙂 , Si... 🙂 et MonJC...🙂 Tu es entre de bonne mains🙂🙂🙂...

Bonne Journée

 

[JCGL]

Re : masquer 0%

Bonjour à tous,

La colonne R est la 18 pas la 17....

A + à tous

 

[Si...]

Re : masquer 0%

salutous

tu vas en voir de toutes les couleurs avec l'adaptation de JCGL😉.
Pour éviter de chercher le numéro de la colonne, tu peux écrire

For L =3 to Range("S" & Rows.Count).End(xlUp).Row
Rows(L).Hidden = IIf(ToggleButton1 And Cells(L, "S") = 0, 0, 1)
Next

Quand on masque je pense qu'il n'est pas nécessaire de remonter (contrairement à la suppression des lignes).

@Dull : un citron vert et "toute honte bue" 😉

 

[desatan]

Re : masquer 0%

je suis paumé🙁 quelqu'un peut il me réécrire une formule en entier ?
merci

 

[JCGL]

Re : masquer 0%

Bonjour à tous,
Salut Si...,

Desatan : le code est déposé dans le module de la feuille du fichier # 19... Avec les valeurs en colonne S...

A + à tous

 

[Si...]

Re : masquer 0%

re

avec une image (Si... tu veux les couleurs, corrige en prenant le code de JCGL : clic bouton droit sur le nom de l'onglet puis Visualiser le code pour entrer dans l'éditeur VBA).

 

[Efgé]

Re : masquer 0%

Re à Tous, Salut JC 🙂 🙂
Bon je pense que le vrai problème est la gestion d'un contrôle active X.
Puisqu'il semble qu'il puisse y avoir beaucoup de ligne, et comme le code ne semble pas être un frein 🙄
Je propose, après les blocages d'usage :

With CommandButton1
    If .Caption = "Afficher les lignes" Then
        .Caption = "Masquer les lignes"
        Rows.Hidden = False
    Else
        .Caption = "Afficher les lignes"
        For i = Cells(Rows.Count, 19).End(xlUp).Row To 4 Step -1
            If Cells(i, 19).Value = 0 Then Set R = Union(Rows(i), IIf(R Is Nothing, Rows(i), R))
        Next i
        If Not R Is Nothing Then R.EntireRow.Hidden = True
    End If
End With

Cordialement

 

[desatan]

Re : masquer 0%

super merci à tous cela fonctionne 🙂

 

[desatan]

Re : masquer 0%

bonjour à tous,

J'aurai besoin d'une petite évolution.
En plus de l'existant, j'aimerai que cela me masque toutes les lignes à 0 sur la feuille 2.
Comment faire ?

Merci par avance

 

[Efgé]

Re : masquer 0%

Bonjour desatan, le fil
Ce que j'ai compris : Masquer les lignes de la feuille 2 si la somme des cellules de C a H est égale à 0 avec le bouton de la feuille 1.
Cordialement

 

[desatan]

Re : masquer 0%

super merci