Cliquer sur une cellule et afficher calendrier pour choisir date
Bonjour,
Actuellement dans mon formulaire je dois ecrire la date au format JJ/MM/AAAA manuellement.
Je souhaiterai lorsque je clique sur la cellule B4 ouvrir un petit calendrier et selectionner ma date.
J'ai ce code mais rien ne se passe:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim UnJour As Date
If Target.Address = "$B$4" Then
Application.EnableEvents = False
Cancel = True
UnJour = FormCal.Calendrier
If UnJour <> 0 Then
Target = Format(UnJour, "mm/dd/yyyy")
Else
Target = ""
End If
Selection.Offset(0, 1).Select
Application.EnableEvents = True
End If
End Sub
Sii quelqu'un peux m'aider je suis preneur car la je bloque.
Je vous remercie par avance
Bonjour,
Voici un exemple pour Excel 32Bits et 64Bits venant de l'excellent LouReed
Merci beaucoup,
Mais comment puis-je l'insérer dans ma feuille sachant que j'ai déjà des code avec un bouton pour une autre macro?
Car lorsque je sélectionne la date j'y arrive sans problème mais quand j'appuie sur mon bouton, le calendrier s'ouvre également
merci beaucoup
Re,
Faire glisser les deux éléments entourés vers l'autre feuille.
Recopier le code.
