Masquer des lignes modulo n

Bonjour,

J'aimerais, pour gagner beaucoup de temps masquer toutes les lignes multiples de 3.

Par exemple, les lignes 3,6,9,12,15,18,21...,303,306

Et pour une autre manipulation, effectuer la même opération mais toutes les lignes numéro 1+(multiple de 3)

Par exemple les lignes 4,7,10,13,16,19,22,...,304,307

Savez-vous comment procéder ? Merci beaucoup !

Bonjour,

Une boucle ! de pas 3 !

For i = 3 To 306 Step 3

Même chose pour l'autre !

Ah merci du coup ça ressemble à du VBA.

Je ne l'ai utilisé qu'une fois mais c'était il y a très longtemps.

Je dois me rendre où et taper quel programme du coup ? Merci beaucoup!

Un exemple :

Sub MasquerModulo3()
    Dim i%
    Application.ScreenUpdating = False
    With ActiveSheet
        For i = 3 To 306 Step 3
            .Rows(i).Hidden = True
        Next i
    End With
    Application.ScreenUpdating = True
End Sub

Même chose pour l'autre, en faisant : 4 To 307...

Une macro se place dans un module standard (accéder à l'éditeur VBA [raccourci : Alt+F11] et faire Insérer > Module, dans la feuille blanche que constitue le module coller la macro).

Elle se lance par la boîte de dialogue macro (la sélectionner et clic sur Exécuter) ou peut être affectée à un bouton ou une forme (clic droit > Affecter une macro > sélectionner la macro et Valider). Ensuite plus qu'à cliquer sur le bouton...

Cordialement.

Bonjour,

Merci beaucoup !

Ca fonctionne nickel !

Il y a moyen de rendre la fonction réversible (un peu comme un toggle tout ou rien) qui permet d'activer ou pas la fonction VBA ? Merci !

Essaie en remplaçant : .Rows(i).Hidden = True

par :

.Rows(i).Hidden = Not .Rows(i).Hidden

Merci pour l'info !