masquer plusieurs colonne sur plusieurs feuille avec critère

Tintin41 · 30 Avril 2020

Bonjour depuis hier je m'arrache les cheveux
Je dois masquer plusieurs colonnes sur plusieurs feuilles hormis 2 feuilles de config selon un critère (s'il y a un 0 dans la celulle J3 à X3)
J'espère que quelqu'un pourra m'aider
mon code qui fonctionne sur une feuille je l'active par un bouton
---------------------------------------------------------------
Sub Masquer_Col()
For Each Cell In ActiveSheet.Range("$J$3:$x$3"):
If Cell.Value = "0" Then
Columns(Cell.Column).Select
Selection.EntireColumn.Hidden = True
End If
Next Cell
End Sub
---------------------------------------------------------------
Merci d'avance à vous

tomocam · 2 Mai 2020

Salut,

Essaye avec la fonction suivante:

Code:

Sub test()

Dim ws As Worksheet

For Each ws In Worksheets
    If ws.Name = "nom de la feuille à éviter" Then
        
        Else
        ws.Activate
        For Each Cell In ActiveSheet.Range("$J$3:$x$3"):
            If Cell.Value = "0" Then
            Columns(Cell.Column).Hidden = True
            End If
        Next Cell
    End If
Next ws

End Sub

Tintin41 · 3 Mai 2020

Super merci Beaucoup ça fonctionne et Bonne journée

masquer plusieurs colonne sur plusieurs feuille avec critère

Tintin41

XLDnaute Nouveau

tomocam

XLDnaute Nouveau

Tintin41

XLDnaute Nouveau

Discussions similaires

masquer plusieurs colonne sur plusieurs feuille avec critère

Tintin41

XLDnaute Nouveau

tomocam

XLDnaute Nouveau

Tintin41

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency