XL 2016 Macro "Double-clic + Entrée"

[Bubble18]

Bonjour,
J'ai créé une macro sous Excel pour copier/coller les données d'un tableau d'un premier onglet dans les cellules d'un second onglet.

Une des données copiées est un lien hypertexte. Celui-ci se colle correctement dans la cellule que je lui ai attribuée dans le second onglet mais il n'est pas actif, ce qui m'oblige à double-cliquer sur cette cellule puis appuyer sur "Entrée" pour activer le lien.

Y aurait-il moyen d'intégrer cette manipulation (Double-clic + Entrée) dans une macro ?

Merci pour votre aide !

PS : Je n'ai aucune connaissance en VBA, je bidouille avec l'enregistreur de macros et quelques modèles trouvés sur des sites ou des forums...

 

[job75]

Bonjour Bubble18, Dan, sylvanu,

Il faut procéder en 2 temps, la macro du bouton :

Sub Macro1()
With Sheets("Fiche")
    .[B1:B2] = Application.Transpose([Tableau1])
    .Hyperlinks.Add .[B2], .[B2]
End With
End Sub

A+

 

[job75]

Pour le fun cette macro simule le Double-clic + Entrée :

Sub Macro1()
With Sheets("Fiche")
    .[B1:B2] = Application.Transpose([Tableau1])
    .Visible = xlSheetVisible 'au cas où...
    Application.Goto .[B2]
    CreateObject("WScript.Shell").SendKeys "{F2}~"
End With
End Sub