XL 2021 Comment masquer des colonnes sur un planning en changeant les mois

[Hamid84]

Bonjour à tous,
depuis des années j'utilise Excel pour faire des plannings. J'ai des notions sur les fonctions de base mais j'aimerai améliorer mon fichier pour automatiser certaines taches.
La plus grande difficulté que je rencontre est celle de masquer les colonnes des jours qui ne font pas partie du mois en cours.
J'ai joint un fichier pour que vous compreniez mieux. J'ai essayé pleins de solutions mais aucune ne me satisfait complètement.
Après d'innombrables recherches, il s'avère que seul un code VBA serait capable de résoudre mon problème.
Donc si quelqu'un a une solution pour masquer automatiquement les colonnes AI, AJ et AK quand le mois de Février est sélectionné en E3 ou seulement masquer AJ et AK pour les années bissextiles; et bien sûr masquer également la colonne AK pour les mois à 30 jours... je suis preneur.
Merci à tous pour l'aide que vous pourriez m'apporter car je suis grand débutant en VBA et j'ai testé maintes et maintes codes piochés à gauche et à droite mais rien n'y fait.
Bonne journée et bon courage à ceux qui travaillent en ce jour férié

 

[Hamid84]

Je vois plusieurs possibilités dont :
1- Tu actives le filtrage du tableau de droite et tu filtre manuellement la colonne "Heures Payées".
2- Tu fais la même chose mais par une macro que tu peux ainsi appeler quand tu veux.

---

Je reprends ta macro de #18 :

Sub MasquerLignes()
'
Dim i As Integer

    For i = 10 To 25
        Rows(i).Hidden = (Cells(i, 35).Value = 0)
    Next i

End Sub

Tu appelles cette macro au moment où tu cliques sur un mois.
Si tu appelles la macro après avoir rempli le tableau avec les données du mois cliqué, ça devrait

Salut, ça j'arrive à le faire mais ce que je recherche c'est que cela se fasse automatiquement sans que j'ai à appeler à chaque fois la macro

 

[fanch55]

Proposition adaptée au dernier classeur :

Option Explicit

Sub Clic_Mois(Optional x As Byte)
'
Dim Tp0 As Single, i As Byte, lft As Single, NomSh As String

    Application.ScreenUpdating = False
 
    With Sheets("Plannings")
        Tp0 = .Rows(6).Top - 2
        lft = 2 + .Columns(5).Left
        For i = 1 To 12
            With .Shapes("Ms" & i)
                .Height = 20
                .Top = Tp0 - .Height
                .Left = lft
                .Width = 62.5
                .Fill.ForeColor.RGB = &HDEC4B0
                .TextFrame2.TextRange.Characters.Font.Fill.ForeColor.RGB = &HF0F0F0
                lft = lft + .Width + 1.5
            End With
        Next i
        NomSh = IIf(Left(Application.Caller, 2) = "Ms", Application.Caller, "Ms" & x)
        With .Shapes(NomSh)
            .Height = 30
            .Top = Tp0 - .Height
            .Fill.ForeColor.RGB = &HED9564
            .TextFrame2.TextRange.Characters.Font.Fill.ForeColor.RGB = 0
        End With
        If Left(Application.Caller, 2) = "Ms" Then
            .Range("A4").Value = Replace(Application.Caller, "Ms", "")
            Dim Col As Range, Rw As Range, LastRow As Long, Trow As Integer
            Trow = 9 ' ligne des jours du mois
            ' masquage colonnes
            For Each Col In Columns("AE:AG").Columns
                Col.Hidden = Col.Rows(Trow) = ""
            Next
'            ' masquage lignes
            Rows(Trow + 1 & ":" & Rows.Count).Hidden = False
            LastRow = Cells(Rows.Count, "B").End(xlUp).Row
            If LastRow >= Trow + 1 Then
                For Each Rw In Rows(Trow + 1 & ":" & LastRow).Rows
                    Rw.Hidden = Rw.Columns("AI") = 0
                Next
            End If
        End If
    End With

End Sub

 

[Hamid84]

Proposition adaptée au dernier classeur :

Option Explicit

Sub Clic_Mois(Optional x As Byte)
'
Dim Tp0 As Single, i As Byte, lft As Single, NomSh As String

    Application.ScreenUpdating = False
 
    With Sheets("Plannings")
        Tp0 = .Rows(6).Top - 2
        lft = 2 + .Columns(5).Left
        For i = 1 To 12
            With .Shapes("Ms" & i)
                .Height = 20
                .Top = Tp0 - .Height
                .Left = lft
                .Width = 62.5
                .Fill.ForeColor.RGB = &HDEC4B0
                .TextFrame2.TextRange.Characters.Font.Fill.ForeColor.RGB = &HF0F0F0
                lft = lft + .Width + 1.5
            End With
        Next i
        NomSh = IIf(Left(Application.Caller, 2) = "Ms", Application.Caller, "Ms" & x)
        With .Shapes(NomSh)
            .Height = 30
            .Top = Tp0 - .Height
            .Fill.ForeColor.RGB = &HED9564
            .TextFrame2.TextRange.Characters.Font.Fill.ForeColor.RGB = 0
        End With
        If Left(Application.Caller, 2) = "Ms" Then
            .Range("A4").Value = Replace(Application.Caller, "Ms", "")
            Dim Col As Range, Rw As Range, LastRow As Long, Trow As Integer
            Trow = 9 ' ligne des jours du mois
            ' masquage colonnes
            For Each Col In Columns("AE:AG").Columns
                Col.Hidden = Col.Rows(Trow) = ""
            Next
'            ' masquage lignes
            Rows(Trow + 1 & ":" & Rows.Count).Hidden = False
            LastRow = Cells(Rows.Count, "B").End(xlUp).Row
            If LastRow >= Trow + 1 Then
                For Each Rw In Rows(Trow + 1 & ":" & LastRow).Rows
                    Rw.Hidden = Rw.Columns("AI") = 0
                Next
            End If
        End If
    End With

End Sub

Bonjour fanch55 et un grand merci pour avoir finaliser ma recherche de 2 mois...
C'est exactement ce que je voulais obtenir
Merci à fanfan38 (François ) de m'avoir mis sur la bonne voie, merci à TooFatBoy de s'être donné autant de mal et merci à toi fanch55 d'avoir concrétisé ce projet.
Même si vous avez tous faits un travail formidable et je vous en remercie encore, le mien ne fait que commencer. Le résultat final est parfait mais il me reste à comprendre comment on en est arrivé là

 

[TooFatBoy]

Salut, ça j'arrive à le faire mais ce que je recherche c'est que cela se fasse automatiquement sans que j'ai à appeler à chaque fois la macro

Je ne vois pas comment tu veux masquer les lignes sans appeler la macro.

Qu'est-ce qui ne convient pas dans le classeur de #28 ?

 

[Hamid84]

Je ne vois pas comment tu veux masquer les lignes sans appeler la macro.

Qu'est-ce qui ne convient pas dans le classeur de #28 ?

Salut TooFatBoy,
j'ai compris qu'il est nécessaire d'appeler la macro mais je voulais qu'elle s'appelle toute seule. Chose faite avec la macro de fanche55. Comme cela mes colonnes fin de mois ainsi que mes lignes heures travaillées se masquent toute seules quand je change le mois ou l'année ( cf macro dans message précédent #33 )
Encore merci pour ton aide et à bientôt pour de nouvelles "aventures", youpi !!!!

 

[TooFatBoy]

Oui, j'avais bien compris ce que tu voulais.

Mais tu ne réponds pas à ma question : "Qu'est-ce qui ne convient pas dans le classeur de #28 ?".
Les lignes devraient se masquer quand tu cliques sur le mois. Est-ce que ça ne fonctionne pas sur ton PC ?

C'est juste que je cherche à comprendre où je me suis tromper.

 

[Hamid84]

Oui, j'avais bien compris ce que tu voulais.

Mais tu ne réponds pas à ma question : "Qu'est-ce qui ne convient pas dans le classeur de #28 ?".
Les lignes devraient se masquer quand tu cliques sur le mois. Est-ce que ça ne fonctionne pas sur ton PC ?

C'est juste que je cherche à comprendre où je me suis tromper.

Non ça ne fonctionnait pas. Elles ne se masquaient pas automatiquement.
Mais peut-être que c'est à cause de conflit de macros dans mon fichier. Je les ai toutes supprimées pour ne garder que celle de fanch55 qui est un condensé de toutes les autres.
En tout cas maintenant cela fonctionne, du moins jusqu'à ce que je décide encore une fois de faire des améliorations.
Je suppose que les macros ne fonctionnent plus si on insère des colonnes ou des lignes ??? A moins de les modifier, évidemment ( pb de références ??? )
Tu vois, il me reste encore beaucoup de chemin à parcourir en VBA... c'est motivant, intéressant et même excitant.
Bonne journée et merci pour tout car je sais qu'avec de la patience et beaucoup de volonté, on peut faire énormement

 

[TooFatBoy]

Non ça ne fonctionnait pas. Elles ne se masquaient pas automatiquement.

Ah, c'est étonnant. Peut-être y a-t-il une particularité d'Excel 2021 par rapport à la version 2016 qui fait que ça fonctionne chez moi et pas chez toi.

 

[fanch55]

Ah, c'est étonnant. Peut-être y a-t-il une particularité d'Excel 2021 par rapport à la version 2016 qui fait que ça fonctionne chez moi et pas chez toi.

J'ai testé ta version @TooFatBoy , elle fonctionne,
mais comme tu avais pris un des classeur du début, aucunes lignes d'agent ne s'affichent car personne n'est payée dans ce classeur ...

 

[Hamid84]

Ah, c'est étonnant. Peut-être y a-t-il une particularité d'Excel 2021 par rapport à la version 2016 qui fait que ça fonctionne chez moi et pas chez toi.

Et bien voilà, ce problème est résolu.
Désolé TooFatBoy de t'avoir donné du boulot pour rien

 

[Hamid84]

J'ai testé ta version @TooFatBoy , elle fonctionne,
mais comme tu avais pris un des classeur du début, aucunes lignes d'agent ne s'affichent car personne n'est payée dans ce classeur ...

Merci de ta réponse !

 

[TooFatBoy]

J'ai testé ta version @TooFatBoy , elle fonctionne,
mais comme tu avais pris un des classeur du début, aucunes lignes d'agent ne s'affichent car personne n'est payée dans ce classeur ...

Non, j'avais au contraire pris le dernier fichier qu'il avait posté, c'est-à-dire celui de #12.

En tout cas, merci pour ton test et ta réponse.