Aide sur calendar control
Bonjour,
J'ai un truc tout "con" que je n'arrive pas à résoudre.
Dans une de mes feuilles excel, j'ai intégré un calendrier qui s'ouvre en cliquant dans une case. Je choisi la date et elle s'inscrit dans la case.
Jusque là, tout va bien........................
Sauf que, la taille de mon calendrier diminue avec l'usage au point que je ne suis plus capable de cliquer dessus
Si ça continue, dans un mois je ne le verrai plus. Je l'ai bien redimensionné, mais rien n'y il diminuuuuueeeeeee.
Comment puis-je faire pour lui faire conserver sa taille initiale?
Merci,
pardon,
Private Sub Calendar1_Click()
End Sub
Voilà, c'est minimaliste........
Désolé je ne vais pas y arriver.............j'en mets que la moitié!!!
Private Sub Calendar1_Click()
End Sub
Re,
Avec peut-être
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column >= 3 And Target.Column <= 19 And Target.Row = 2 Then
Calendar1.Height = 200: Calendar1.Width = 200
Calendar1.Visible = True
Calendar1.Top = ActiveCell.Top
Calendar1.Left = ActiveCell.Left + ActiveCell.Width
Else
Calendar1.Visible = False
End If
End Sub200 = valeurs exemples
A+
Bonjour,
Un grand merci pour cette aide.