insertion date

[Roll]

Bonsoir,

je voudrais insérer une date dans une cellule en ckiquant sur celle-ci.
Ci-joint le fichier.
Merci pour votre aide.

 

[Roland_M]

Re : insertion date

bonsoir

voir ton classeur avec mon calendrier sur cellule !
si tu veux plus de précisions, ou imposer une saisie dans un champ précis, tu reviens ou tu vas voir le code dans thisworkbook

EDIT: j'ai fais en sorte que la saisie se limite à la colonne A et D !

 

[grisan29]

Re : insertion date

bonsoir Rolland_M
j'ai regarder comment tu as mis ton calendrier qui est parfait, mais le double clic dans n'imprte qu'elle cellule le déclenche et ce n'est peu pas ce que cherches Roll

pascal

 

[Victor21]

Re : insertion date

Bonsoir.

Dans le module de Feuil1 :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("a6:a31,d6:d31")) Is Nothing And Target.Count = 1 Then
Target.Value = Date
End If
End Sub

Enregistrez sous XLSM, et acceptez les macros.

Alternative sans macro :
Positionnez-vous sur la cellule concernée et appuyez sur "Ctrl" + ";"

 

[Roll]

Re : insertion date

Bonjour Roland_M,
la macro fonctionne parfaitement bien.

Merci beaucoup