Excel - VBA - Calendrier et cellules

Misterbean1 Messages postés 53 Date d'inscription   Statut Membre Dernière intervention   -  
Misterbean1 Messages postés 53 Date d'inscription   Statut Membre Dernière intervention   -
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 !
A voir également:

2 réponses

Réponse 1 / 2
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
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 active

End If
End Sub
--

à placer dans lr module feuille concerné
accès clic droit sur nom d'onglet-visualiser le code

accès
Michel
0
Réponse 2 / 2
Misterbean1 Messages postés 53 Date d'inscription   Statut Membre Dernière intervention   1
 
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
0
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
FormCal.Calendrier

c'est quoi ?
0
Misterbean1 Messages postés 53 Date d'inscription   Statut Membre Dernière intervention   1 > michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention  
 
FormCal. calendrier est un formulaire qui se trouve dans les "fichiers" Modules" (-> dans "Forms" en anglais, je pense que c'est "Feuilles" en excel français) du project VBA et qui contient le pop-up calendrier dans lequel l'utilisateur peut choisir la date et ensuite valider (ce qui ensuite colle automatiquement la date en question dans la case (B10)
j'espère être assez clair.......
0