Double clic : copie de cellule + heureu du dble clic

Bonjour à tous,

Je reviens vers vous pour un petit coup de main.

Voici ce que je voudrais pouvoir faire.

J'ai des données de F6 à F138.

En double cliquant sur ces données, je voudrais qu'elles soient copiées dans la cellule correspondante en colonne G en rajoutant l'heure à côté du nom copié.

Exemple : En F12, j'ai : Jean-Claude Dus.

en double cliquant sur son nom à 08h40, j'obtiens en G12 Jean-Claude Dus (08h40).

Voilà, c'est pas très compliqué je pense.

Grand merci pour votre aide précieuse.

Bonne journée.

Bonjour Pasqi,

Utilise la procédure évènementielle BeforeDoubleClick.

Clique droit sur le nom de la feuille / Visualiser le code et colle le code suivant :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Application.Intersect(Target, [f6:f138]) Is Nothing And Target.Count = 1 Then
        Cancel = True 'désactive l'édition de la cellule
        Target.Offset(, 1) = Target & " " & Time
    End If
End Sub

Si tu veux avoir la date et l'heure, utilise la fonction Now :

Target.Offset(, 1) = Target & " " & Now

Bonjour vba-new,

C'est parfait, ça fonctionne nickel.

Grand merci à toi.

Bonne journée.