Calendar 2010

Bonjour le forum

Je passe rapidement se fil pour un petit souci de calendrier en vba, voilà j'ai un fichier avec un calendar office 2007 mais je dois transmettre ce dernier sur office 2010 et voilà que ...... le calendrier n'est plus adapté, donc perdu .

Après recherche j'ai trouvé un modèle en PJ mais j'aimerai juste que le calendrier s'ouvre sur la cell A4.

Est il possible d'avoir un peu d'aide ?

Merci par avance

Cdlt

Bonjour

Remplaces la macro par celle-ci

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Address = "$A$4" Then
  'If Target.Column = 2 And Target.Row > 1 And Target.Count = 1 Then
    With UserForm1
      If IsDate(Target) Then .MonthView1 = Target Else .MonthView1 = Date
      .StartUpPosition = 0
      .Move Target.Offset(1, 1).Left + 40, Target.Offset(1, 1).Top + 200
      .Show vbModeless
    End With
  Else
    UserForm1.Hide
  End If
End Sub

Bonjour,

A tester.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, [A4]) Is Nothing Then
    If Target.Count > 1 Then Exit Sub
        With UserForm1
            .MonthView1 = Date
            .StartUpPosition = 0
            .Move Target.Offset(1, 1).Left + 40, Target.Offset(1, 1).Top + 200
            .Show vbModeless
        End With
    Else
        UserForm1.Hide
    End If
End Sub

Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
    ActiveCell = UserForm1.MonthView1
    Unload UserForm1
    ActiveCell.Offset(1, 0).Select
End Sub

edit : bonjour Banzai64, pas vu ta réponse.

Bonjour Banzai64 et Jean-Eric

Quelle rapidité, c'est de votre part.

Je viens de tester les 2 solutions et ça marche super bien, je vais garder les deux solution sous le coude.

Merci à vous , je mets résolu.

Cordialement