Discussion :

[pierre031]

Bonjour

Je souhaiterais savoir s'il existe sur Excel un formulaire de saisie de date sur une cellule.

Le lien excel ci-dessous semble le décrire mais n'explique pas clairement comment le faire :
https://support.office.com/fr-fr/art...a-c08f65928f84

J'ai mis en pj la photo de ce que je souhaite faire.

Idéalement sans macro...

Merci d'avance,

Pierre031

[Patrice740]

Bonjour,

Bonjour
Je souhaiterais savoir s'il existe sur Excel un formulaire de saisie de date sur une cellule.
Idéalement sans macro...

Pas sans macro, avec un formulaire VBA il y a celui de Patrick () :
https://www.developpez.net/forums/bl...rso-episode-6/

[pierre031]

Bonjour

Merci pour votre réponse,

En revanche lorsque je copie colle cette macro sur mon nouveau fichier Excel, cela ne semble pas fonctionner. Comment l'adapter à une cellule / colonne précise ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Dim dat
    If Target.Column = 1 And Target.Cells.Count = 1 Then
        Cancel = True
        With Calendrier
            Set .Destination = Target
            .Show
            If .DateResult <> False Then Target = .DateResult
            Unload Calendrier
        End With
    End If
End Sub

Merci d'avance

[pierre031]

De plus, pensez-vous que c'est possible d'éviter le clique droit et dès que je sélectionne la cellule le tableau apparait ?

[Patrice740]

En revanche lorsque je copie colle cette macro sur mon nouveau fichier Excel, cela ne semble pas fonctionner. Comment l'adapter à une cellule / colonne précise ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Dim dat
    If Target.Column = 1 And Target.Cells.Count = 1 Then
        Cancel = True
        With Calendrier
            Set .Destination = Target
            .Show
            If .DateResult <> False Then Target = .DateResult
            Unload Calendrier
        End With
    End If
End Sub

Cette macro fonctionne avec un clic droit dans la colonne 1 (A), il suffit de changer Target.Column = 1
Tu peux aussi utiliser Intersect() pour définir une plage précise.

De plus, pensez-vous que c'est possible d'éviter le clique droit et dès que je sélectionne la cellule le tableau apparait ?

On pourrait mais c'est une mauvaise idée, pour économiser un clic (d'autant plus qu'on peut sélectionner directement avec le clic droit) !

[pierre031]

quand je mets "If Target.Column = 4" cela ne marche pas .

Je vous ai mis le fichier en pj pour info.

Néanmoins je souhaite tout de même que cela apparaisse dès que je sélectionne la cellule

Merci beaucoup

[Patrice740]

quand je mets "If Target.Column = 4" cela ne marche pas .
Je vous ai mis le fichier en pj pour info.

Dans un fichier xlsx, il n'y a pas de macro
Il faut enregistrer le fichier en xlsm et autoriser l'exécution des macros !