2 calendrier dans un userform
Résolu
Xenos1705
Messages postés
97
Statut
Membre
-
Xenos1705 Messages postés 97 Statut Membre -
Xenos1705 Messages postés 97 Statut Membre -
Bonjour à tous,
J'ai la macro suivante qui me permet dans un formulaire d'afficher un calendrier pour le choix d'une date:
Actuellement, le calendrier s'affiche sur la cellule E11 uniquement mais je souhaiterais aussi qu'il s'affiche en E17 et en E24. Malheureusement, je n'arrive pas à adapter le code pour que le calendrier s'affiche lorsqu'on clique sur une des trois cellules concernées.
D'avance merci pour votre aide et vos lumières.
Cordialement.
Xenos
J'ai la macro suivante qui me permet dans un formulaire d'afficher un calendrier pour le choix d'une date:
Private Sub Calendar1_Click()
' Met la date sélectionnée dans la cellule active
ActiveCell.Value = Calendar1.Value
' Masque le calendrier
Calendar1.Visible = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 5 And Target.Row = 11 Then
' Si la cellule sélectionnée est dans la plage qu'on veut lier au calendrier, on affiche le calendrier
Calendar1.Visible = True
Else
' Sinon, on masque le calendrier
Calendar1.Visible = False
End If
If Target.Column = 5 And Target.Row = 25 Then
Application.Run ("TransposeBDD")
End If
End Sub
Actuellement, le calendrier s'affiche sur la cellule E11 uniquement mais je souhaiterais aussi qu'il s'affiche en E17 et en E24. Malheureusement, je n'arrive pas à adapter le code pour que le calendrier s'affiche lorsqu'on clique sur une des trois cellules concernées.
D'avance merci pour votre aide et vos lumières.
Cordialement.
Xenos
A voir également:
- 2 calendrier dans un userform
- Supercopier 2 - Télécharger - Gestion de fichiers
- Mon calendrier - Télécharger - Santé & Bien-être
- Afficher calendrier outlook dans google agenda - Guide
- Calendrier partagé google - Guide
- 2 ecran pc - Guide
2 réponses
Bonjour,
Ok pour les clics cellules, mais pour application.run, vous n'avez pas precise
Ok pour les clics cellules, mais pour application.run, vous n'avez pas precise
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Union(Range("E11"), Range("E17"), Range("E24"))) Is Nothing Then
' Si la cellule sélectionnée est dans la plage qu'on veut lier au calendrier, on affiche le calendrier
Calendar1.Visible = True
Else
' Sinon, on masque le calendrier
'Calendar1.Visible = False
End If
If Target.Column = 5 And Target.Row = 25 Then
Application.Run ("TransposeBDD")
End If
End Sub
Application.run déclenche juste l'enregistrement des données renseignées dans une BDD.
En tout cas merci car ca fonctionne parfaitement ainsi.
C'est exactement ce dont j'avais besoin.
Bonne journée