Insertion calendrier en automatique
Bonjour,
Je souhaiterais insérer un calendrier dans les colonnes A et Q.
Mon fichier est en PJ.
Svp expliquez moi les manips à faire.
Merci
Bonjour le forum,
Calendrier opérationnel pour les colonnes A B & Q :
Ouverture par double-clic.
Bonjour,
Ci inclus ton classeur modifié avec un petit calendrier très simple...
Faire un clic droit à l'endroit ou tu veux insérer une date.
A+
Bonjour MBBP,
Comment avez-vous fait cela? Via quel menu?
Cela m'aidera pour un futur suivi que je devrai créer.
Merci pour votre aide.
Bonjour,
Ce n'est pas au menu mais à la carte !
Hum... C'est un calendrier récupéré sur la toile... Dans VBA, -dans VBA Project- Ya juste à faire glisser le calendrier d'un classeur à l'autre pour l'installer...
Dans la feuille ou tu vas l'utiliser il faut régler la macro qui se trouve dans l'onglet Feuil1 pour l'adapter éventuellement à d'autres colonnes... (Clic droit sur l'onglet + Visualiser le code...)
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row > 3 Then 'la macro fonctionne sur les lignes supérieures à 3
If Target.Column < 3 Or Target.Column = 12 Then 'et sur les colonnes 1, 2 et 12
Cancel = True
Calendrier.Show
End If
End If
End Sub[EDIT] Sorry pas vu que tu causais à quelqu'un d'autre ! Pas grave ça pourra servir à d'autres...
Bah de toute façon le principe est le même : Ce sont des calendriers embarqués comme ça tu n'as aucun problème de version Excel ça marche partout. Le mien est le plus simple, celui du collègue affiche aussi les samedi et dimanche. Il y en a d'autres qui affichent aussi les fériés, les N° de semaines... YAKA choisir...
[EDIT2] Variante pour les colonnes 1,2, 12 et 17 :
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim IC
IC = Target.Column
If Target.Row > 3 Then 'la macro fonctionne sur les lignes supérieures à 3
If IC < 3 Or IC = 12 Or IC = 17 Then 'et sur les colonnes 1, 2, 12 et 17
Cancel = True
Calendrier.Show
End If
End If
End SubA+