Aide pour formule

[simrobert21]

Bonjour

Voici ci-dessous la formule que j'utilise présentement pour insèrer la date et l'heure dans une cellule en faisant un double-clic. Par contre avec cette formule, il est impossible de faire plus d'une cellule à la fois. Un expert serait-il capable de modifier ma formule pour que je puisse effectuer plusieurs cellules.

Merci de votre aide

Formule:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row >= 2 And Target.Row <= 500 And Target.Column = 2 Then ActiveCell.Value = Time + Date
End Sub

 

[tototiti2008]

Re : Aide pour formule

Bonjour simRobert21,

Comment veux-tu double-cliquer sur plusieurs cellules en même temps ?

 

[Guest]

Re : Aide pour formule

Bonjour Robert,

Pour changer la valeur de toute une plage de cellule (ici A1:A50)
range("A1:A50").Value = Time + Date
A toi d'adapter

A+

 

[tototiti2008]

Re : Aide pour formule

Re,

Bonjour Hasco,

une proposition avec le clic droit :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Row >= 2 And Target.Row <= 500 And Target.Column = 2 Then
    'Cancel = True
    Selection.Value = Now
    End If
End Sub

Si tu ne veux plus voir le menu contextuel, énlève l'apostrophe devant Cancel = True

 

[simrobert21]

Re : Aide pour formule

Merci de votre aide, je vais finalement rester comme avant.