Un challenge pour une date fixe

Chris401

XLDnaute Accro

• 12 Janvier 2016

• #2

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

 

Vote positif 0 Vote négatif

F

fabricebaudot

Guest

• 12 Janvier 2016

• #3

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.

 

Vote positif 0 Vote négatif

Chris401

XLDnaute Accro

• 12 Janvier 2016

• #4

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

 

Vote positif 0 Vote négatif

F

fabricebaudot

Guest

• 12 Janvier 2016

• #5

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

 

Vote positif 0 Vote négatif

Chris401

XLDnaute Accro

• 12 Janvier 2016

• #6

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

 

Vote positif 0 Vote négatif

F

fabricebaudot

Guest

• 12 Janvier 2016

• #7

Re : Un challenge pour une date fixe

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

 

Vote positif 0 Vote négatif