Masquer les jours d'un calendrier automatique
Bonjour Toutes et tous,
je souhaiterais dans un calendrier automatique mettre en place une VBA pour que lorsque je change de mois,
> les données saisies sur le précédemment mois soient effacée automatiquement
> les jours du mois suivant soit masqués ( exemple ci dessous )
voici ce que j'ai tenté en vain de modifier et qui ne fonctionne pas :
Sauriez vous me dire ou sont les erreur pour corriger ces dernières ?
Je reste à votre écoute.
Belle journée à toutes et tous.
fabrice
Option Explicit
Sub Masque_Jour()
Dim Num_rows As Long
For Num_rows = 34 To 36
If Month(Rows(Num_rows, 4)) >= Rows(2, 3) Then
Rows(34, 4).Hidden = True
Else
Rows(36, 4).Hidden = False
End If
Next
Range(e6, v36).ClearContents
End Sub
Bonjour
Un fichier est TOUJOURS le bienvenu
Vu que c'est un calendrier vertical
Ajouter une colonne mois
mettre dans cette colonne =texte(A1;"mmmm")
cette colonne peux être masquée
le transformer en tableau structuré (insertion/tableau)
Selectionner une cellule du tableau
Creation/inserer un segment
A+ François
c'est vrai.... petite erreur de ma part. merci fanfan38.. ;-)
rhooo.... est ce que j'ai le droit de dire que tu es parfait ?...
juste une petite question est il possible de supprimer les lignes bleues ?.. et je vais essayer de comprendre aussi comment tu as fait.. ca m'intéresse a 2 raisons.. ;-)
> Je vais intégrer un sous total par Semaine dans un tableau décalé.
> et un sous total par mois.
cela afin que dans les prévisions le temps horaire soit respecté.
Encore mille mercis !. Belle journée.
Fabrice
Il suffit de demander...
J'ai ajouté une colonne semaine et une feuille recap....
A+ François
c'est génial... !. encore merci !!