code

F

franckxjr

Guest
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

XLDnaute Barbatruc
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
 

Staple1600

XLDnaute Barbatruc
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)
 

Discussions similaires

Réponses
2
Affichages
298

Statistiques des forums

Discussions
312 842
Messages
2 092 714
Membres
105 517
dernier inscrit
Freddy93