VBA - Pop up du Calendrier autonome

bonsoir,

Je pense que le problème vient du code vba de ton calendrier, mais comme le pc fige lors du doubleclic pour l'appelle du calendrier en question pas moyen de détecter l'erreur, un essai avec un autre calendrier

slts

Bonsoir tous,
Il faut aller dans les macros du calendrier (activate)
J'ai mis en rouge les 2 lignes modifiées
Bruno
Private Sub UserForm_Activate()
Dim Ind As Integer, TabMois() As String
' Inscrire la date m?moris?e dans le champ masqu?
Me.MaDate = IIf(vDate = "00:00:00", Format(Now(), "dd/mm/yyyy"), vDate)
' D?finir le tableau des mois
TabMois = Split("Janvier,F?vrier,Mars,Avril,Mai,Juin,Juillet,Ao?t,Septembre,Octobre,Novembre,D?cembre", ",")
Me.CbB_Month.Clear
For Ind = 0 To 11
Me.CbB_Month.AddItem TabMois(Ind)
Next Ind
' D?finir le tableau des ann?es
Me.CbB_Year.Clear
For Ind = 2000 To 2100
Me.CbB_Year.AddItem Ind
Next Ind
' D?finir les classes d'objets
For Ind = 1 To 42
Set CtrlCal(Ind).CtrlCal = Controls("Label" & Ind)
Next
' Afficher le bon mois et l'ann?e dans les Comobobox
Me.CbB_Month.ListIndex = Month(CDate(Me.MaDate)) - 1
Me.CbB_Year.Value = Year(CDate(Me.MaDate))
Label59 = 0
With Me
.StartUpPosition = 0
.Left = ActiveCell.Left - 30 '+ ActiveCell.Width
.Top = ActiveCell.Top + 20 '+ ActiveCell.Height
End With
End Sub

j'ai changé le code mais ça fait la même chose qu'avant...

Hello,
Regarde dans les propriété de l'user en StartUpPosition=0 manuel
Essaye en N° 1 ou 2 (mets des apostrophes de With à End with compris)
Essaye aussi de remplacer et mets ceci (si 0 manuel)
.Left=application.Width/2
.Top=application.Height/2
Bruno

avec
.Left=application.Width/2
.Top=application.Height/2

cela fonction

Sinon je n'ai pas vraiment compris avec n°1 ou 2
StartUpPosition=0 manuel
n° 1 c'est StartUpPosition=1 ???

J'utilise ce code pour le calendrier mais je ne le maitrise pas

Va voir dans la fenêtre des propriétés de l'userform
Double click sur feuilles ensuite Usf_Calendrier et affiche la fenêtre des propriétés
Bruno

ça ne marche toujours pas, y arrives tu de ton côté ?

Sinon ce n'est pas trop grave comme ça fonctionne avec le code
.Left=application.Width/2
.Top=application.Height/2

Bonjour,

Le calendrier du Post 2 ne te convient-il pas?

Slts

désolé je n'avais pas fais attention au fichier joint du post 2, si cela me va mais c'était juste histoire de comprendre le bug de mon calendrier.
pour essayer de progresser un peu plus