calendrier sur Excel a plusieurs cellules Fermé

Question

Salut
J'ai utilisé la macro pour le calendrier c'est bien mais j'ai des petit troubles. Je ne connais rien dans la programmation des macros et j'ai plusieurs cellules à insérer des dates. Cette macro semble fonctionner seulement avec une cellule.  
Private Sub Calendar1_Click()
    Range("A3").Value = Calendar1.Value
End Sub
'

Private Sub Calendar1_LostFocus()
    Calendar1.Visible = False
End Sub
'

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim Intersection As Range, Plage As Range

    Set Plage = Range("A1")

    Set Intersection = Application.Intersect(Target, Plage)
    If Not (Intersection Is Nothing) Then
        Calendar1.Visible = True
    End If

End Sub

Merci
Luc

eriiic · Answer

Bonjour,

Un exemple pour avoir le calendrier sur C2:C10 :
Dim cel As Range
Private Sub Calendar1_Click()
    If Not cel Is Nothing Then cel = Calendar1.Value
End Sub
'

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, [C2:C10]) Is Nothing Then
        Calendar1.Visible = False
        Set cel = Nothing
    Else
        Set cel = Target
        If IsDate(cel) Then Calendar1 = cel
        Calendar1.Left = cel.Offset(0, 1).Left + 3
        Calendar1.Top = cel.Top + 3
        Calendar1.Visible = True
    End If
End Sub

Le calendrier sera positionné près de la cellule, et s'il y a une date dans la cellule il est initialisé avec cette date.

eric

Calendrier sur Excel a plusieurs cellules

1 réponse