Insérer objet Calendrier en auto avec une macro

Bonjour,

Je cherche à créer une macro qui m'intégrera automatiquement un calendrier en colonne K comme dans l'exemple ci-joint, comment faire???

Autre chose, je suis parvenu à me dépatouiller également en créant le code suivant à affecter à mon calendrier, est-il possible de mettre également cela dans cette macro ?

Voici le code concerné :

Private Sub Calendar1_Click()

ActiveCell.Value = Calendar1.Value
Calendar1.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 11 And Target.Row >= 1 And Target.Row <= 1000 Then
Calendar1.Visible = True
Calendar1.Top = ActiveCell.Top
Calendar1.Left = ActiveCell.Left + ActiveCell.Width
Else
Calendar1.Visible = False
End If
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal zone As Range, Cancel As Boolean)

Dim ws As Worksheet
    Set ws = ActiveSheet
    macel = zone.Address
    Rdv macel, ws
End Sub

Je me mets doucement au vba, pas facile, facile...

Merci d'avance.

Salut,

Que veux tu concrétement ? car là, tes codes fonctionnent, ils mettent bien un calendrier en K.....

Hormis ce code qui ne sert à rien:

Private Sub Worksheet_BeforeDoubleClick(ByVal zone As Range, Cancel As Boolean) 

Dim ws As Worksheet 
Set ws = ActiveSheet 
macel = zone.Address 
Rdv macel, ws 
End Sub 

Le reste est pour moi correct.....

Ensuite, pour trouver le contrôle du calendrier:

A+

Souri84

Ola,

Alors en fait pour le calendrier je voudrais m'éviter toutes les manips fastidieuse à effectuer pour insérer automatiquement mon calendrier en colonne K et que le code que j'ai écrit plus haut vienne s'affecter automatique au calendrier suite à son insertion.

Est-il possible de faire cela avec une macro ou pas ?

Merci d'avance.

Alors je ne comprends pas un truc:

Pourquoi créer un calendrier qui est déjà créé ?

Ce que je veux en fait m'éviter c'est les tâches répétitives, aller chercher le calendrier dans la barre des tâches puis lui affecter le code etc...

Je m'exprime peut être peu clairement, dsl...

Salut le forum

A tester : mDF XLcalendar v1.1

Cela devrait régler ton problème

Mytå