Masquer les colones d'un planing avec une macros sur Excel

Bonjour,

Tout d'abord meilleurs vœux,

Ensuite je suis bloqué avec une macro au niveau d'un tableau "planning", je souhaite cacher les dernières colones des mois (ci-joint photo)

Pouvez vous m'aider à corriger ma macro

Voici la macro utilisé :

Sub Masquer_Jour()

Dim Num_Col As Long

For Num_Col = 30 To 32 ' Boucle sur les cellules des jours 29, 30 et 31

If Month(Cells(6, Num_Col)) >= Cells(1, 1) Then

Columns(Num_Col).Hidden = True

Else

Columns(Num_Col).Hidden = False

End If

Next

Range("B6:AF13").ClearContents 'Supprime le contenu dans les cellules

End Sub

?

Salut et bienvenue sur le Forum,

J’avais une fois un problème d’embrayage et je suis allé à pied chez mon garagiste lui montrer une photo de ma voiture.

Celui-ci m’a dit : ‘’Yvouille, tu sais bien qu’avec une simple photo je ne peux pas réparer ta bagnole ! Amène-la-moi, s’il-te-plait’’.

Dans le même ordre d’idée, on peut voir ton fichier ?

Cordialement

Bonjour à tous,

J'ajouterais quand même :

Pourquoi vouloir écrire des choses et les masquer, quand il suffirait de ne pas les écrire ?

Et puis, quand tu récupères des modèles quelque part et que tu changes les données de place, pense bien que la macro ne sera plus du tout adaptée ...

Jamais les colonnes AF à AH ne seront les colonnes 30 à 32.
J'imagine aussi que tu as ajouté une ligne, parce que là tu vas effacer tes dates ...

Bonjour à tous,

Pour ma part j'écrirai simplement :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim j As Integer, dt As Date, lrg As Single

    If Not Intersect(Target, Range("D6")) Is Nothing Then
        dt = CDate(Range("D6").Value)
        lrg = Columns(29).ColumnWidth
        For j = 28 To 31
            Columns(j + 4).ColumnWidth = IIf(Month(DateAdd("d", j, dt)) = Month(dt), lrg, 0)
        Next j
    End If
End Sub

Ici la largeur des colonnes s'actualise à la suite de la modif de la date en D6

Pierre