Contenu de cellule dans une formule VBA

Bonjour

Sujet:

Par double-click dans la Plage E4:E20, je veux reporter une formule en incluant dans celle-ci la valeur correspondante en colonne A

Dans le Code de Feuille actuel,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("$E$4:$E$20"), Target) Is Nothing Then
Target.Formula = "=""Jeux1/Passe2/""&A4&""Finale"""
    Cancel = True
    End If
End Sub

comment dans la ligne

Target.Formula = "=""Jeux1/Passe2/""&A4&""Finale"""

remplacer &A4 pour obtenir la formule correcte ?

Fichier exemple joint

Merci

Bonsoir Amadéus,

2 solutions

la 1ère comme demandée, je pencherai plutôt pour la ligne neutralisée

        'Target = "=""Jeux1/Passe2/" & Cells(Lg, "a") & "Finale"""

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Lg%
    Lg = Target.Row
    If Not Intersect(Range("$E$4:$E$20"), Target) Is Nothing Then
        Target = "=""Jeux1/Passe2/Question" & Lg & "Finale"""
        'Target = "=""Jeux1/Passe2/" & Cells(Lg, "a") & "Finale"""
        Cancel = True
    End If
End Sub

Amicalement

Claude

Bonjour

Merci beaucoup Claude

La 2éme option répond parfaitement à la question.

Amicalement