Calendrier sous excel

Bonjour,

selon la version excel les contrôles installés ne sont pas les même, surtout pour les calendriers.
Calendar ne doit plus être présent sur 2010 par exemple.
Tente ta chance avec Date&Time Picker ou Mounth Picker qui ont l'air d'être plus communs sur les versions.

eric

Bonjour,

Merci de votre réponse. Le soucis c'est que nous sommes tous équipés des mêmes versions donc je suis aussi sous 2010... J'ai l'impression qu'il fait appel à un fichier source parceque dans un premier temps j'ai bidouillé pour faire ma macro puis j'ai ensuite posté le fichier sous l'intranet. En le téléchargant j'ai tout bon mais uniquement sur mon pc....

Eric,

Ce n'est pas que je veux pas essayer ta solution mais je travaille avec 42 pays et je ne peux matériellement pas aller les voir tous pour leur demander d'installer des choses ( sachant que certains comme la russie ou l'ukraine ne sont pas trés débrouillards en terme d'informatique)

Il n'y a pas de message d'erreur, juste quand on fait le clic droit sur la cellule, l'option "calendar" n'apparait pas en dessous de "hyperlink".

Re,

Ca ne marchait pas chez moi non plus.
Essaie avec ça :

Private Sub Worksheet_Activate()
    Dim ContextMenu As CommandBar
    Dim MySubMenu As CommandBarControl
    Set ContextMenu = Application.CommandBars("Cell")
    With ContextMenu.Controls.Add(Type:=msoControlButton)
        .Caption = "Calendrier"
        .BeginGroup = True
        .OnAction = "Calendrier"
        .FaceId = 125
    End With
End Sub 

eric

PS: j'ai changé ton icône par une qui me semblait plus appropriée.

Merci,

Alors j'ai essayé, j'ai copié le code dans le module 1 mais du coup, plus rien ne fonctionne... Je ne comprend pas..

Désolée

Par "il faut qu'il soit dans le feuille" vous entendez dans VBA je double clique sur ma feuille et je rentre le code dedans? Parceque c'est ce que j'ai fait et ca ne marche tjs pas. De plus je ne comprend pas pourquoi ca m'ouvre un autre projet VBA alors que je n'ai pas d'autre classeur d'ouvert, quand j'efface le code de ce classeur ou il y a marqué ca:

'Entry point for RibbonX button click
Sub ShowATPDialog(control As IRibbonControl)
Application.Run ("fDialog")
End Sub

'Callback for RibbonX button label
Sub GetATPLabel(control As IRibbonControl, ByRef label)
label = ThisWorkbook.Sheets("RES").Range("A10").Value
End Sub

Ben du coup ca ne fonctionne plus. Donc je suppose que c'est ca qui bug ou qui fait marcher la macro mais je ne sais pas d'ou je le sort. Je précise que pour monter ma macro je me suis aidée de nombreux post sur divers forums, j'ai associé des idées du coup j'ai du prendre des trucs imcompatibles...

P.S: C'est quelle icone que vous avez changé? Mon calendrier? parceque je sais que pour les puristes ca doit vraiement être fait n'importe comment étant donné que j'ai fait les cases des jours unes à une... EN tout cas je n'ai rien vu comme changement

Bonjour,

Merci beaucoup!! Ca marche. C'est génial.

Juste pour ma culture, pourquoi il faut d'abord aller sur une autre feuille pour l'activer? Je peux pas rentrer une macro qui lui dit de l'activer du genre à l'ouverture: sheets.activate?

En tout cas merci beaucoup pour votre aide!

Bonne journée,