2 calendrier dans un userform Résolu/Fermé

Question

Bonjour à tous,

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 activeActiveCell.Value = Calendar1.Value' Masque le calendrierCalendar1.Visible = FalseEnd SubPrivate 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 calendrierCalendar1.Visible = TrueElse' Sinon, on masque le calendrierCalendar1.Visible = FalseEnd IfIf Target.Column = 5 And Target.Row = 25 ThenApplication.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

f894009 · Answer

Bonjour,

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

michel_m · Answer

Bonjour

Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Not Intersect(Target, Range("E11,E17,E24")) Is Nothing Then: MsgBox "gagné! :o) " & Target.AddressEnd Sub

2 calendrier dans un userform

2 réponses

Discussions similaires