masquer colonnes automatiquement

[philmar]

Bonjour à toutes et à tous,

j'essaye de créer un outil de plannification des réunions, trouve rien de génial, donc ce que j'ai créé ci-joint nécessiterait que l'on puisse masquer les colonnes et donc les jours si aucune réunion n'est plannifiée. Vous me direz on peut le faire manuellement, mais si qqun a une idée.

Bonne journée

 

[Issimo]

Re : masquer colonnes automatiquement

Bonjour,

Je te conseille de mettre un bouton à bascule sur ta feuille pour alterner toutes les colonnes visibles ou seulement les colonnes avec des RV.

Ensuite tu mets le code suivant et tu l'adaptes à ce que tu veux faire :

Private Sub ToggleButton1_Click()
    Dim cacher As Boolean
    Dim i, i2 As Integer
    Application.ScreenUpdating = False
    If ToggleButton1.Value = True Then 'bouton enfoncé
        ToggleButton1.Caption = "RV"
        ToggleButton1.BackColor = &HFFFFFF    'blanc
        ToggleButton1.ForeColor = &HFF       'rouge
        For i = 0 To 200
            cacher = True
            If Range("F4").Offset(0, i).Value = "" Then Exit For
            For i2 = 0 To 9
                If Range("F5").Offset(i2, i).Value = "x" Then
                    cacher = False
                    Exit For
                End If
            Next i2
            'cacher si on n'a rencontré aucun "X" dans la colonne
            If cacher = True Then
                Range("F5").Offset(0, i).EntireColumn.Hidden = True
            End If
        Next i
        
      Else 'bouton normal
        ToggleButton1.Caption = "Complet"
        ToggleButton1.BackColor = &H80FFFF     'jaune clair
        ToggleButton1.ForeColor = &HFF0000       'bleu
        'afficher toutes les colonnes
        Columns("F:IV").EntireColumn.Hidden = False
    End If
    Application.ScreenUpdating = False
End Sub

Cordialement,
Issimo