Copier valeur cellule

[tactic6]

Bonjour le forum
je bloque sur un bout de code qui me permettrait de copier la valeur d'une cellule sur la cellule suivante
Exemple si je double clic sur la cellule F6 je voudrais que la valeur soit recopier à l'identique dans la cellule G6
idem pour F7 vers G7 f8 vers G8 etc
et ceci pour n'importe quelle cellule de la colonne F

Actuellement je rentre les valeurs manuellement mais vu le nombre je fais souvent des erreurs

Merci à vous tous

 

[Paf]

Re : Copier valeur cellule

Bonjour

si j'ai tout compris, dans le code de la feuille concernée, dans Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) coller ce code

If Not Intersect(Target, Range("F:F")) Is Nothing Then
    Target.Offset(0, 1) = Target
End If

A+

 

[tactic6]

Re : Copier valeur cellule

Merci c'est exactement ça
Et moi qui trifouillais les CellS et Activecell
aie aie aie