Un challenge pour une date fixe

[fabricebaudot]

bonsoir à tous,

J'implore votre aide car là je sèche. sur mon document actuel je rentre manuellement la date du jour en F3, F9 etc par une formule dont j'ai le secret s'affiche en G une date avec 7 jours de plus.
Comme je deviens fainéant je voudrais savoir si il existe une macro qui ferai que quand je double clique dans une cellule de F8 à F23 la date du jour s'affiche et ne ce modifie pas le lendemain donc une date fixe. Pour info c'est un document de suivie de circuit de respirateur en F date de mise en place et affichage auto en G la date de changement (ça j'ai réussis).
En fait je voudrais automatiser la manip ctrl;+ par un double clic.

Merci pour votre aide

 

[Chris401]

Re : Un challenge pour une date fixe

Bonsoir

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("F8:F23")) Is Nothing Then
Target = Date
End If
End Sub

Cordialement
Chris

 

[fabricebaudot]

Re : Un challenge pour une date fixe

Heu je suis novice très novice cette formule je la copie dans developpeur-visual basic-thisworkbook parceque c'est ce que j'ai fais et ça ne fonctionne pas.

 

[Chris401]

Re : Un challenge pour une date fixe

Re

Non tu places ce code dans la feuille concernée (click droit sur le nom de l'onglet ==> Visualiser le code)

Chris

 

[fabricebaudot]

Re : Un challenge pour une date fixe

Merci je viens de le faire et ça fonctionne nickel.Si je veux également le faire dans une colonne I8 à I23 je le rajoute comment ?
Merci beaucoup c'est terrible

 

[Chris401]

Re : Un challenge pour une date fixe

Re

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("F8:F23,I8:I23")) Is Nothing Then
Target = Date
End If
Cancel = True
End Sub

J'ai également ajouté CANCEL=True afin de sortir de la sélection de la cellule

Chris

 

[fabricebaudot]

Re : Un challenge pour une date fixe

cool merci c'est nickel merci pour ta réactivité c'est sympa. Bonne soirée