calendrier inséré dans excel

[edonist]

bonjour
je voudrais insérer un calendrier dans un fichier excel lorsque l'on clique dans une cellule qui se situe entre L9 et L364.

j'ai fait un code mais ca ne marche pas, je ne comprends pas ce qui va pas.

Private Sub Calendar1_Click()
    range("l9:l364").Select
    For Each range In Selection
    If range.Select Then
    range.Value = Calendar1.Value
    End If
    Next
End Sub
 
Private Sub worksheet_selectionchange(ByVal target As range)
    Dim intersection As range, plage As range
        Set plage = range("l9:l364")
        Set intersection = Application.Intersect(target, plage)
        If Not (intersection Is Nothing) Then
        Calendar1.Visible = True
        End If
End Sub
 
Private Sub calendar1_lostfocus()
    Calendar1.Visible = False
End Sub

à la 3e ligne, il me met argument non facultatif sur le mot range...
quelqu'un a une idée ?

[fring]

Bonjour,

Pourquoi pas simplement...

Private Sub Calendar1_Click()
    ActiveCell = Calendar1.Value
 End Sub
 

Et pour la procédure événementielle

Private Sub worksheet_selectionchange(ByVal target As range)
    Dim plage As range
        Set plage = range("l9:l364")
        If Not Application.Intersect(target, plage) Is Nothing Then
                Calendar1.Visible = True
        End If
End Sub

[edonist]

yes!
ca fonctionne tres bien!

voici mon code:

Private Sub Calendar1_Click()
    ActiveCell.Value = Calendar1.Value
    Calendar1.Visible = False
End Sub
 
Private Sub worksheet_selectionchange(ByVal target As range)
    Dim plage As range
        Set plage = range("l9:n364")
        If Not Application.Intersect(target, plage) Is Nothing Then
        Calendar1.Visible = True
        Else
        Calendar1.Visible = False
        End If
End Sub
 

j'ai rajouté les colonnes M et N

Maintenant comment faire si je veux rajouter en + la colonne H qui n'est pas accollée aux autres colonnes ?
j'ai essayé en séparant par une virgule mais ça me valide égalemant les colonnes qui se situent entre H et L...

ooops!
ben ca y est, j'ai deja trouvé!

Private Sub Calendar1_Click()
    ActiveCell.Value = Calendar1.Value
    Calendar1.Visible = False
End Sub
 
Private Sub worksheet_selectionchange(ByVal target As range)
    Dim plage As range
        Set plage = range("l9:n364, h9:h364")
        If Not Application.Intersect(target, plage) Is Nothing Then
        Calendar1.Visible = True
        Else
        Calendar1.Visible = False
        End If
End Sub

encore merci pour tout

[edonist]

heu... encore une petite question:

mon tableau traine en longueur, et je voudrais en fait que le calendrier s'affiche à côté de la cellule sur laquelle on clique. c'est possible de faire ça ?
(parce que quand je clique sur la colonne Y, si il s'affiche dans la colonne H, ca le fait pas...)

[fring]

Tu peux essayer ceci :

Private Sub worksheet_selectionchange(ByVal target As range)
    Dim plage As range
        Set plage = range("l9:n364, h9:h364")
        If Not Application.Intersect(target, plage) Is Nothing Then
        Calendar1.Top = ActiveCell.Top
        Calendar1.Left = ActiveCell.Left
        Calendar1.Visible = True
        Else
        Calendar1.Visible = False
        End If
End Sub

[edonist]

merci c'est genial!