Excel - VBA - Calendrier et cellules
Misterbean1
Messages postés
53
Statut
Membre
-
Misterbean1 Messages postés 53 Statut Membre -
Misterbean1 Messages postés 53 Statut Membre -
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 !
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 !
2 réponses
-
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 -
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-
- 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.......
-
