code

[franckxjr]

bonjour, je viens de noter cette phrase dans "visualiser le code"

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
If .Column = 3 Or .Column = 18 Then .Value = Date
End With
Cancel = True
End Sub

ça a marché au début !puis quand je fermais le classeur il fallait tout recommencer !!
après deux ou trois tentatives qui ne fonctionnent toujours pas !
le code reste inscrit! mais la date n’apparaît pas sur mon "double clic "
avez-vous une solution?

 

[Staple1600]

Bonjour à tous

franckxjr (bienvenue sur le forum)
Tu désires que la macro fasse quoi au juste?

 

[franckxjr]

quand je double clic sur ma cellule je voudrais la date du jour !automatiquement

 

[pierrejean]

bonjour franckxjr
Salut Staple

Le code fonctionne parfaitement
Le souci ne peut venir que d'ailleurs (et cet ailleurs on ne le connait pas !!!)

 

[franckxjr]

ok merci

 

[Staple1600]

Bonjour pierrejean

franckxjr
Tel que ton code est écrit, la date est inscrite si la cellule active est en colonne 3 ou en colonne 18.
C'est vraiment ce que tu souhaites faire?

 

[franckxjr]

A3 la date se met en automatique quand je renseigne ma cellule C3 .
et je voudrai que la date apparaisse en I3quand je double clic dessus

 

[franckxjr]

A1 jour de facturation
c3 jour encaissement

 

[Staple1600]

Re à tous

Tel que je comprends ta question, j’utiliserai plutôt ces deux procédures à la place de la tienne.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
Cells(Target.Row, 1) = Date
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 9 And IsEmpty(Target) Then
Target = Date
End If
End Sub

 

[franckxjr]

Ton code fonctionne très bien sauf que :
je ferme et j'enregistre mon fichier
et quand j'ouvre à nouveau mon double clic "I3 "ne fonctionne plus

 

[Staple1600]

Re

Il faut enregistrer ton fichier avec l'extension .xlsm
Si tu enregistres avec *.xlsx les macros ne sont pas conservées.

 

[franckxjr]

voici le fichier il me semble que j'ai tout bien rempli mais le double clic fonctionne pas

 

[Staple1600]

Re à tous

Comme je l'ai précisé

Tel que je comprends ta question, j’utiliserai plutôt ces deux procédures à la place de la tienne.

Ce qui implique de ne pas utiliser le double-clic mais simplement la sélection d'un cellule vide en colonne I, qui si elle est vide reçoit alors la date du jour.

 

[franckxjr]

j'ai suivi à la lettre mais il enregistre pas

 

[Staple1600]

Re à tous


Je viens de voir qu'il y avait une formule en colonne A.
Donc seul ce code peut suffire dans ce cas

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 9 And IsEmpty(Target) Then
Target = Date
End If
End Sub

Sur mon PC, dès que je sélectionne une cellule vide en colonne I, la date s'y inscrit.
Si j’enregistre puis ferme le classeur puis le ré-ouvre les modifications sont bien préservées.
Je ne vois pas de quel problème tu parles
(et j'ai testé avec ton fichier)