Macro double click sur cellule

Bonjour à toutes et à tous,

Dans mon fichier, je souhaite, en double cliquant sur une cellule, m'amener directement dans un autre onglet. Ce que je pense avoir réussi à faire :

[size=85]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

End Sub[/size]

Cependant, j'aimerais pour cette même action, que la cellule "B7" soit copiée, et qu'elle aille se coller en valeur en cellule O7 sur l'onglet "top rentabilité à l'EAN". Mais je n'y arrive pas donc je fais appel à vous.

Je vous joins mon fichier afin que vous compreniez plus facilement la démarche.

Un grand merci par avance pour votre aide.

Ne perdez pas votre temps.

J'ai trouvé la solution.

Merci

Bonjour,

Remplace ton code par celui-ci :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Application.Intersect(Target, Range("B7")) Is Nothing Then
        Sheets("Top rentabilité à l'EAN").Range("CAT") = Target
    End If
    Cancel = True
End Sub

Bonjour Raja,

Si vous regardez bien, j'ai bien ajouté un fichier après mon premier message

Un grand merci pour la macro en tout cas.

Bonne journée.