Excel - VBA - Calendrier et cellules

Fermé
Misterbean1 Messages postés 53 Date d'inscription vendredi 13 mai 2011 Statut Membre Dernière intervention 22 août 2017 - 8 janv. 2015 à 16:49
Misterbean1 Messages postés 53 Date d'inscription vendredi 13 mai 2011 Statut Membre Dernière intervention 22 août 2017 - 8 janv. 2015 à 18:56
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 lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 313
8 janv. 2015 à 16:57
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 vendredi 13 mai 2011 Statut Membre Dernière intervention 22 août 2017 1
8 janv. 2015 à 17:09
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 lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 313
8 janv. 2015 à 17:24
FormCal.Calendrier

c'est quoi ?
0
Misterbean1 Messages postés 53 Date d'inscription vendredi 13 mai 2011 Statut Membre Dernière intervention 22 août 2017 1 > michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023
8 janv. 2015 à 18:56
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