Cellule concaténée mettre la date du jour après double clic ...[RESOLU]

[anthoYS]

Bonjour,


Voyez la capture d'écran :


qu'est-ce qui cloche ?

code :

Option ExplicitPrivate Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$D$1" Then Target.Value = Date: Cancel = True
End Sub

Merci
à+

 

[Pierrot93]

Re : Cellule concaténée mettre la date du jour après double clic, ce code ne marche p

Bonjour,

met un point d'arrêt (touche de fonction F9) sur la première ligne de la sub afin de vérifier qu'elle se déclenche bien ...
Cette procédure est bien placée dans le bon module de feuille ?? Les macros sont bien autorisées dans le classeur ? "Option ExplicitPrivate Sub" sur 2 lignes ? sans plus de détails....

bon après midi
@+

 

[tototiti2008]

Re : Cellule concaténée mettre la date du jour après double clic, ce code ne marche p

Bonjour anthoYs, Bonjour Pierrot 🙂,

@AnthoYs : combien de fois devra-t-on te préciser qu'on travaille très très très mal sur des copies d'écran ?
combien de temps cela t'aurait-il pris de :
créer un classeur vide
fusionner de D1 à F1
copier/coller le code évènementiel dans la Feuil1 du classeur vide ?

bon, à force de me tuer les yeux sur ta copie d'écran je crois que j'ai compris, mais je crois que je ne répondrais plus à tes question sans fichier exemple :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$D$1:$F$1" Then Target.Value = Date: Cancel = True
End Sub