Excel - VBA - Calendrier et cellules Fermé

Question

Bonjour, 
Je ne suis pas un expert VBA (de loin) et ai réussi, grâce à l'aide de certains d'entre vous de la communauté à créer et faire vivre quelques macro bien utiles. Voici ma question du jour:

* j'ai une macro qui me permet via un bouton, d'ouvrir un calendrier, choisir une date et celle-ci se place dans une cellule fixe ( B10 dans mon cas). j'aimerais faire évoluer l'approche comme suit: lorsque je me positionne sur la cellule (B10) , le calendrier s'ouvre et me permet de choisir une date, ensuite quand je passe à la cellule suivante (B11), pareil et ainsi de suite sur les cellules que je spécifierais. et donc sans devoir cliquer sur un bouton de macro mais plutôt le principe de la bulle commentaire lorsque l'on passe sur la cellule. 
J'ai bien trouvé des sources d'add-ins mais cela ne m'a pas aidé....
Pouvez-vous m'aider ?

D'avance merci !

michel_m · Answer

Bonjour

reùplace le bouton par  cette entame

Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Not Intersect(Target, Range("B10: B15")) Is Nothing Then'ton code où Target est la cellule activeEnd IfEnd Sub --

à placer dans lr module feuille concerné
accès clic droit sur nom d'onglet-visualiser le code

accès 
 Michel

Misterbean1 · Answer

Merci Michel M pour cette réaction rapide mais ne suis pas sûr de bien comprendre ... suis nul en VBA

Voici le code du calendrier qui est lié à un bouton, si je supprime le bouton, où dois-je placer ton code ? créer un nouveau module VBA qui mixte ton code et celui du calendrier ? Lié les deuxx ? merci de clarifier.....


Voici le code utilisé:

Sub Calendrier_PAGE1()
Dim UnJour As Date
UnJour = FormCal.Calendrier
If UnJour <> 0 Then
         Range("B10").Value = Format(UnJour, "dddd dd mmmm yyyy")
Else
   Range("B10").Value = ""
End If
End Sub