Un challenge pour une date fixe

fabricebaudot · 12 Janvier 2016

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 · 12 Janvier 2016

Re : Un challenge pour une date fixe

Bonsoir

Code:

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 · 12 Janvier 2016

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 · 12 Janvier 2016

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 · 12 Janvier 2016

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 · 12 Janvier 2016

Re : Un challenge pour une date fixe

Re

Code:

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 · 12 Janvier 2016

Re : Un challenge pour une date fixe

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

Un challenge pour une date fixe

fabricebaudot

XLDnaute Junior

Chris401

XLDnaute Accro

fabricebaudot

XLDnaute Junior

Chris401

XLDnaute Accro

fabricebaudot

XLDnaute Junior

Chris401

XLDnaute Accro

fabricebaudot

XLDnaute Junior

Discussions similaires