VBA - Pop up du Calendrier autonome

[ginteo]

Bonjour,

Comment peut on fixer le pop up du calendrier à un niveau de la page Excel ?
Le calendrier est en colonne U

Au début cela fonctionne très bien mais à partir de la ligne 40 (ou 25 si je remplit le document) le pop up du calendrier disparait.
En fait il sort de mon écran, il apparait quelque part mais impossible de le sélectionner (il est hors de mon écran). Du coup je ne peux plus rien faire sur ma page Excel.


Ce message est une suite de mon poste https://www.excel-downloads.com/threads/calendrier-autonome.20026823/

 

[riton00]

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

 

[youky(BJ)]

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

 

[ginteo]

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

 

[youky(BJ)]

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

 

[ginteo]

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

 

[youky(BJ)]

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

 

[ginteo]

ç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

 

[riton00]

Bonjour,

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

Slts

 

[ginteo]

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