bonjour a tous
dans le fichiers suivant dans la feuille"Modéle"en cliquant sur la celulle "F11"cela fait apparaitre un calendrier.
je voudrais modifier la macro pour l'étendre a d'autre cellules.
quelqu'un peut il me donner la marche a suivre car je ne comprend pas la macro,je suis trop débutant.
merci d'avance

Bonjour claude40,

Je ne comprends pas bien le problème.

La procédure Auto_Open() ajoute un bouton d'affichage du formulaire UserForm2 (le calendrier) dans le menu contextuel "Cell".
Ce faisant, ce calendrier est accessible à toutes les cellules avec un clic droit.

Contrairement à ce que tu écris, un simple clic dans F11 ne fait pas apparaître le calendrier, c'est un clic droit suivi d'une sélection du dernier bouton de menu qui le fait apparaître. Aussi rien n'empêche d'inscrire une date dans une cellule quelconque et de bousiller ainsi le contenu d'une cellule non prévue pour porter une date.

Que cherches-tu à faire au juste? Pour l'instant je ne vois pas.

Guy

merci guy de te pencher sur mon probléme.
c'est un double click sur F11 qui fait apparaitre le calendrier de l'userform2, se programme sera utiliser a terme par des gens qui ne sont pas tous forcément alaise avec un ordinateur c pour sa que je simplifie au maximum.
se que je fait en double cliquant sur la cellule F11 je voudrais pouvoir le reproduire dans d'autre cellule.
merci encore

Bonjour,

Effectivement, je n'avais vu que le bouton de menu "Calendar" sur clic droit.
Tiens-tu à laisser ce bouton de menu supplémentaire?

La procédure qui gère le double clic de la cellule F11 se lit :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

  If Target.Address <> [f11].Address Then Exit Sub
  UserForm2.Show

End Sub

À quelles cellules veux-tu appliquer cet affichage du calendrier sur double clic?

Tu peux utiliser le mDF_XLCalendar en téléchargement ici. Avec son option Auto Détect. l'activation de toutes cellules au format Date entraîne l'affichage d'un calendrier.  Simple comme bonjour.

Guy

je voudrais utiliser toute les cellules qui réponde a la question "date de détinage broyeur"c'est a dire F15,F19,F23 et ainsi de suite puis peut etre les cellules C1 et C2.
un grand merci encore pour ton aide.

Tu as tout ça avec le calendrier de Didier à télécharger ICI.

Les cellules C1 et C2 incluses.
Pour les usagers il suffira d'installer le calendrier sur leur poste.

Guy

merci on ma deja proposé cette solution mais se serai sur le principe de la cellule F11 que je voudrais que sa fonctionne,pour les autres cellules.
je ne comprend pas dans la macro ou il faud que j'indique le numero des cellules choisis comme [F11].si tu pouvais me l'indiquer.
merci pour ton aide

Allez, pourquoi faire simple quand on peut faire compliqué...

Remplace la procédure Worksheet_BeforeDoubleClick() de la feuille Feuil2 (Modèle) par ceci :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

  ' On affiche le calendrier du formulaire UserForm2 si l'adresse de cellule active
  ' est F11, F15, F19, etc.
  ' Pour ce faire on applique la formule du second If.
 
  If Target.Column = 6 Then ' Colonne F
 
    If (Target.Row - 11) Mod 4 = 0 Then
   
      UserForm2.Show vbModal ' Le formulaire est modal par défaut, l'écrire permet de rendre la chose explicite.
   
    End If
 
  End If
 
  ' De même on affiche le calendrier si la cellule active est C1 ou C2 comme suit :
  If Target.Column = 3 Then ' Colonne C
 
    If Target.Row = 1 Or Target.Row = 2 Then
   
      UserForm2.Show vbModal
   
    End If
 
  End If

End Sub

Guy

merci je vais essayer
je sais se n'ai pas le plus simple mais comme je te l'ai dit les gens qui vont s'en servir ne sont pas tous tres interresser par tout se qui touche un ordinateur alor je me met a leur place et j'essaye de faire au plus simple pour eux.
merci encore

sa marche merci beaucoup guy