Posez votre question Signaler

Calendrier sur Excel a plusieurs cellules

Luc - Dernière réponse le 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
Lire la suite 

Calendrier sur Excel a plusieurs cellules »

3 réponses
Réponse
+1
moins plus
eriiic 7655Messages postés 11 septembre 2007Date d'inscription 31 mai 2012Dernière intervention 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

 Ajouter un commentaire
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- 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
Ajouter un commentaire
Posez votre question
Ce document intitulé « calendrier sur Excel a plusieurs cellules » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
Dossier à la une
Passage au tout numérique : quel coût pour les particuliers ?