Bonsoir lesdentsduweb,
Comme excel incrémente la date que vous introiduisez dans une cellule: exemple "1.1.2004" en utilisant la poignée de recopie il va incrémenté la date en tenant compte du calendrier interne, donc dès qu'il arrive au "31.1.2004" la suivante devient "1.2.2004" et ainsi de suite,
Je pense que cela devrait vous aidez.
Bonne semaine.

Salutations
Jean-Pierre

Bonjour,

Le calendrier comme tu l'entends n'existe pas , i lfaut le développer, mais tu peux en trouver déjà développés en cherchant sur le net.
J'en ai moi même récupérer un mais je ne sais plus sur quel site
Bonne recherche,

Bonjour
en effet, il existe un calendrier sur Excel pour afficher la fenetre en cliquant sur cellule...
il faut aller dans affichage/barre d'outils/boite à outils controles

la fenetre de controles s'affiche puis il faut aller tout en bas de cette fenetre et appuyer sur autres controles (dessin : marteau et clé) puis appuyer sur : controle calendrier

une fenetre VBA s'affiche, vous revenez sur le fichier excel et vous modifiez les dimentions, couleur...

puis clic droit sur la fenetre du calendrier et puis sur visualiser code

ensuite, dans la fenetre VBA vous avez ça qui s'affiche :

Private Sub Calendar1_Click()

End Sub

au lieu de click il faut se mettre sur lostfocus en le choisissant dans la liste
et on obtient :

Private Sub Calendar1_LostFocus()

End Sub

après il faut taper le code suivante entre les deux lignes :

Calendar1.Visible = True

donc ceci permet de faire disparaitre la fenetre
puis c là ke je viens le problème car j'arrive à faire disparaitre la fenetre calendrier quand je clic à l'extérieur mais pas à l'afficher en clicant sur la cellule...

je m'y suis mis il y a 30min puis en cherchant l'aide sur le net j'ai vu ce forum alors je vous avance un peu et puis si vous avez fait plus, merci de me le signaler

bon courage

Hichamzone

Bonjour,

En utilisant le contrôle proposé par hichamzone.

En posant que l'appel du calendrier se fait sur un clic en [A1] et qu'il copie la date sélectionné en [A3].

Option Explicit

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
'

Bonjour G-T,

Tu peux reprendre le code proposé par Lupin.A en le modifiant comme suit :

Option Explicit

Private Sub Calendar1_Click()
    ActiveCell.Offset(0, 1).Value = Calendar1.Value
    Calendar1.Visible = False
    
End Sub

End Sub

Private Sub Worksheet_SelectionChange(ByVal target As Range)
    Dim Intersection As Range, Plage As Range

    Set Plage = Range("A1:A100")

    Set Intersection = Application.Intersect(target, Plage)
    If Not (Intersection Is Nothing) Then
        Calendar1.Visible = True
    End If

End Sub

Merci Papou93,
je vois ce que tu veux dire.
Je clique sur une case de A1 à A...,
Ensuite avec

ActiveCell.Offset(0, 1).Value

ActiveCell.Offset(0, 0).Value

C'est bon j'ai trouvé il fallait mettre :

Private Sub Calendar1_Click()
' Met la date sélectionnée dans la cellule active
ActiveCell.Value = Calendar1.Value
' Masque le calendrier
Calendar1.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 And Target.Row >= 8 And Target.Row <= 107 Then
' Si la cellule sélectionnée est dans la plage qu'on veut lier au calendrier,
' on affiche le calendrier
Calendar1.Visible = True
' Place le calendrier à côté de la cellule
Calendar1.Top = ActiveCell.Top
Calendar1.Left = ActiveCell.Left + ActiveCell.Width
Else
' Sinon, on masque le calendrier
Calendar1.Visible = False
End If
End Sub

J'ai mis les commentaires pour que chacun puisse voir les étapes.

Voilà ca peut toujours servir.