Calendrier sur Excel a plusieurs cellules

Fermé

Luc - 2 août 2011 à 12:49
eriiic Messages postés 24571 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 8 mai 2024 - 7 août 2011 à 10:14

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

A voir également:

Calendrier sur Excel a plusieurs cellules
Formule excel pour additionner plusieurs cellules - Guide
Liste déroulante excel - Guide
Aller à la ligne dans une cellule excel - Guide
Verrouiller cellules excel - Guide
Formule excel - Guide

1 réponse

Réponse 1 / 1

eriiic Messages postés 24571 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 8 mai 2024 7 216
2 août 2011 à 14:30

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

Luc
7 août 2011 à 09:29

Merci Eric

J'ai fait l'essai de la suggestion mais cela n'as pas l'effet escompté. Oui je remarque bien un changement pour les dates mais c'est comme la suggestion à Lupin .. Moi j'ai besoin d'inscrire une date a l'aide du calendrier dans une cellule et ensuite d'écrire une autre date dans une autre cellule a l'aide du calendrier.

Luc

eriiic Messages postés 24571 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 8 mai 2024 7 216
7 août 2011 à 10:14

C'est exactement ce que permet cette macro...
Tu cliques sur une cellule, puis sur une autre pour avoir le calendrier et mettre les dates
eric

Discussions similaires

Formule Excel : "SI" une cellule contient un mot, alors ?

Discussions similaires

Newsletters