Insérer un calendrier dans plusieurs cellules excel 2016

sylvanu à dit:

Bonjour anouarlachiri,

En PJ un exemple basé sur le calendrier de Pollux et un Worksheet_SelectionChange.
La macro ouvre un calendrier à chaque clic sur une cellule de la colonne A de toutes les feuilles.
Cette macro doit être dans toutes les feuilles concernées.

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 1 And Target.Row > 2 Then
        Target.Value = Calendar.ShowTopLeft(155, 230, 2) 'Arguments(left,top,region)
    End If
End Sub

Cliquez pour agrandir...

patricktoulon à dit:

bonjour
@sylvanu
polux c'est le nom de mon pc 😉
et tant qu'a faire utiliser la bonne fonction

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 1 And Target.Row > 2 Then
        Target.Value = Calendar.ShowX(Target, , , 2)
    End If
End Sub

la ShowTopLeft(top ,left,region c'est pour les besoins particuliers

la showX te calcul le top left cellule par raport a l'ecran tout seul

Cliquez pour agrandir...

sylvanu à dit:

Re,
@ Patrick, Dans le code non, mais dans Propriétés.😉

@anouarlachiri,
1-Vous ouvrez le fichier, puis ALT+F11.
2- A droite dans Feuilles, vous faites Clic sur Calendar puis Exporter. Vous l'enregistrez où vous voulez.
3- Dans votre fichier, vous faites clic droit sur Microsoft excel Objects et Importer un fichier. Vous récupérez le calendar qu'on vient d'enregistrer. C'est tout.
4- Ensuite vous coller dans chaque feuille le petit bout de code. Prenez celui de Patrick.
Et c'est fini.

Cliquez pour agrandir...

sylvanu à dit:

Re,
@ Patrick, Dans le code non, mais dans Propriétés.😉

@anouarlachiri,
1-Vous ouvrez le fichier, puis ALT+F11.
2- A droite dans Feuilles, vous faites Clic sur Calendar puis Exporter. Vous l'enregistrez où vous voulez.
3- Dans votre fichier, vous faites clic droit sur Microsoft excel Objects et Importer un fichier. Vous récupérez le calendar qu'on vient d'enregistrer. C'est tout.
4- Ensuite vous coller dans chaque feuille le petit bout de code. Prenez celui de Patrick.
Et c'est fini.

Cliquez pour agrandir...

patricktoulon à dit:

c'est exactement ca
tu exporte le calendar
tu l'importe dans n'importe quel fichier
et tu suis exactement ce qui est montré en exemple dans les commentaires

la showx convient parfaitement pour les cellules dans une feuille ou un autre controls dans un autre userform les positions sont calculées automatiquement

la showtopleft c'est pour des besoins particuliers ou la référence n'est pas un object range ou ActivX
mais une position en points déterminé par les 2 premiers arguments

Cliquez pour agrandir...