afficher et masquer des colonnes pour un planing

[a26]

Bonsoir,
Quelqu'un peut-il m'aider à programmer des macros efficaces afin de masquer des colonnes ou de les afficher pour un planning de 3 personnes sur 1 semaine afin de pouvoir visualiser l'ensemble ou chacun des individus séparément.
Merci pour l'aide

 

[JCGL]

Re : afficher et masquer des colonnes pour un planing

Bonjour à tous,

Un essai avec ;

Option Explicit
Dim Col   As Byte


Sub Toutes_4()
    Application.ScreenUpdating = 0
    For Col = 1 To 61
        Columns(Col).EntireColumn.Hidden = False
    Next Col
    Range("A1").Select
End Sub


Sub Toutes_3()
    Application.ScreenUpdating = 0
    Call Toutes_4
    For Col = 2 To 61
        If Cells(5, Col) = "C4" Then Columns(Col).EntireColumn.Hidden = True
    Next Col
    Range("A1").Select
End Sub


Sub X_4()
    Application.ScreenUpdating = 0
    Call Toutes_4
    For Col = 2 To 61
        If Cells(1, Col) <> "X" Then Columns(Col).EntireColumn.Hidden = True
    Next Col
    Range("A1").Select
End Sub


Sub Y_4()
    Application.ScreenUpdating = 0
    Call Toutes_4
    For Col = 2 To 61
        If Cells(1, Col) <> "Y" Then Columns(Col).EntireColumn.Hidden = True
    Next Col
    Range("A1").Select
End Sub


Sub Z_4()
    Application.ScreenUpdating = 0
    Call Toutes_4
    For Col = 2 To 61
        If Cells(1, Col) <> "Z" Then Columns(Col).EntireColumn.Hidden = True
    Next Col
    Range("A1").Select
End Sub


Sub X_3()
    Application.ScreenUpdating = 0
    Call Toutes_4
    For Col = 2 To 61
        If Cells(1, Col) <> "X" Or Cells(5, Col) = "C4" Then Columns(Col).EntireColumn.Hidden = True
    Next Col
    Range("A1").Select
End Sub


Sub Y_3()
    Application.ScreenUpdating = 0
    Call Toutes_4
    For Col = 2 To 61
        If Cells(1, Col) <> "Y" Or Cells(5, Col) = "C4" Then Columns(Col).EntireColumn.Hidden = True
    Next Col
    Range("A1").Select
End Sub


Sub Z_3()
    Application.ScreenUpdating = 0
    Call Toutes_4
    For Col = 2 To 61
        If Cells(1, Col) <> "Z" Or Cells(5, Col) = "C4" Then Columns(Col).EntireColumn.Hidden = True
    Next Col
    Range("A1").Select
End Sub

A+ à tous

 

[sousou]

Re : afficher et masquer des colonnes pour un planing

Bonsoir a26

J'espère que j'ai correctement compris ton problème dans le document joint
Pas vue barbatruc, mais salutations

 

[a26]

Re : afficher et masquer des colonnes pour un planing

Merci à vous deux pour ces 2 propositions qui fonctionnent exactement comme je le souhaitais. Mille excuses pour n'avoir pas répondu de suite, j'ai du m'absenter ces derniers jours et n'ai donc pas suivi la conversation.
A bientôt sur le forum