chikkybamby
XLDnaute Nouveau
Bonjour à tous,
Je suis en train de travailler sur un fichier de suivi. En gros c'est une base de données, dans laquelle sont recensées des ... personnes, qui font des ... choses 🙂 (Vous comprendrez que je ne peux pas trop en dire, profession oblige ^^)
Un fichier simplifié est joint en ZiP. Le fait est que je l'ai fait sur 2007 et qu'il marche très bien, mais que sur 2003, le code VBA bug.
En gros, il y a 2 colonnes dans lesquelles sont renseignées les dates d'inscription dans le fichier et de passage en jury.
Sur 2007, lorsque l'on clique sur l'une de ces cases de dates, un calendrier apparait automatiquement pour choisir la bonne date. C'est très pratique et très efficace sur 2007. Mais sur excel 2003, rien à faire, il semble que le calendrier (calendar1) ne réfère à rien.
Je ne sais pas quoi faire !!
Voici ledit code :
"Option Explicit
Private Sub Calendar1_Click()
ActiveCell.Value = Calendar1.Value
Calendar1.Visible = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal target As Range)
If target.Column = 4 Or target.Column = 5 And target.Row >= 1 And target.Row <= 226 Then
Calendar1.Visible = True
Calendar1.Top = ActiveCell.Top
Calendar1.Left = ActiveCell.Left + ActiveCell.Width
Else
Calendar1.Visible = False
End If
End Sub"
J'ai en fait l'impression que le userform calendar n'existe pas dans mon excel 2003... ça semble étrange, mais là où j'ai trouvé "controlcalendar 12" sur excel 2007, je n'ai pas trouvé de "controlcalendar" sur mon excel 2003 !
Merci d'avance pour votre aide !
Anatole
Je suis en train de travailler sur un fichier de suivi. En gros c'est une base de données, dans laquelle sont recensées des ... personnes, qui font des ... choses 🙂 (Vous comprendrez que je ne peux pas trop en dire, profession oblige ^^)
Un fichier simplifié est joint en ZiP. Le fait est que je l'ai fait sur 2007 et qu'il marche très bien, mais que sur 2003, le code VBA bug.
En gros, il y a 2 colonnes dans lesquelles sont renseignées les dates d'inscription dans le fichier et de passage en jury.
Sur 2007, lorsque l'on clique sur l'une de ces cases de dates, un calendrier apparait automatiquement pour choisir la bonne date. C'est très pratique et très efficace sur 2007. Mais sur excel 2003, rien à faire, il semble que le calendrier (calendar1) ne réfère à rien.
Je ne sais pas quoi faire !!
Voici ledit code :
"Option Explicit
Private Sub Calendar1_Click()
ActiveCell.Value = Calendar1.Value
Calendar1.Visible = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal target As Range)
If target.Column = 4 Or target.Column = 5 And target.Row >= 1 And target.Row <= 226 Then
Calendar1.Visible = True
Calendar1.Top = ActiveCell.Top
Calendar1.Left = ActiveCell.Left + ActiveCell.Width
Else
Calendar1.Visible = False
End If
End Sub"
J'ai en fait l'impression que le userform calendar n'existe pas dans mon excel 2003... ça semble étrange, mais là où j'ai trouvé "controlcalendar 12" sur excel 2007, je n'ai pas trouvé de "controlcalendar" sur mon excel 2003 !
Merci d'avance pour votre aide !
Anatole