code

franckxjr · 1 Octobre 2016

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 · 1 Octobre 2016

Bonjour à tous

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

franckxjr · 1 Octobre 2016

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

pierrejean · 1 Octobre 2016

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 · 1 Octobre 2016

ok merci

Staple1600 · 1 Octobre 2016

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 · 1 Octobre 2016

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 · 1 Octobre 2016

A1 jour de facturation
c3 jour encaissement

Staple1600 · 1 Octobre 2016

Re à tous

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

VB:

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 · 1 Octobre 2016

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 · 1 Octobre 2016

Re

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

franckxjr · 1 Octobre 2016

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

Staple1600 · 1 Octobre 2016

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 · 1 Octobre 2016

j'ai suivi à la lettre mais il enregistre pas

Staple1600 · 1 Octobre 2016

Re à tous

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

VB:

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)

code

franckxjr

Guest

Staple1600

XLDnaute Barbatruc

franckxjr

Guest

pierrejean

XLDnaute Barbatruc

franckxjr

Guest

Staple1600

XLDnaute Barbatruc

franckxjr

Guest

Pièces jointes

franckxjr

Guest

Staple1600

XLDnaute Barbatruc

franckxjr

Guest

Staple1600

XLDnaute Barbatruc

franckxjr

Guest

Pièces jointes

Staple1600

XLDnaute Barbatruc

franckxjr

Guest

Pièces jointes

Staple1600

XLDnaute Barbatruc

Discussions similaires