vba Résolu/Fermé

Question

Bonjour,  
je suis un débutant en vba et j'ai crie un hyperlink  dans une feuille d'un fichier excel 2010. J'ai pu faire apparaitre ce hyperlink seulement dans une ligne et je veux le faire apparaitre dans plusieurs lignes déférentes de cette feuille. comment faire?   

voila ce que j'ai pu faire 

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 

Sheets("Ma").Range("T49") = "Maths-Projet : Abdelkader H " 

lien_hyp = "HYPERLINK" 

If Application.International(xlCountryCode) = 33 Then lien_hyp = "LIEN_HYPERTEXTE" 'Si FR 

Sheets("Ma").Range("F49").FormulaLocal = "=" & lien_hyp & "(" & Chr(34) &  
"https://www.commentcamarche.net/" & Chr(34) & ")" 

Sheets("Ma").Range("T49:A49").Font.Size = 9 

Sheets("Ma").Range("T49:A49").Font.Name = "Arial" 

Sheets("Ma").Range("F49").Font.ColorIndex = 41 

    If ActiveSheet.Name <> "Ma" Then 

        ActiveSheet.Name = "Ma" 

    End If 

End Sub 


Merci pour votre aide  
Cordialement

pijaku · Answer

Bonjour,

Dans ton code, la ligne :
Sheets("Ma").Range("F49").FormulaLocal = "=" & lien_hyp & "(" & Chr(34) & "https://www.commentcamarche.net/" & Chr(34) & ")" créée un lien hypertexte dans la cellule F49.

Il te suffit donc de faire de même pour les autres lignes :
Ajouter un lien en F49, F100 et F10000 :
Sheets("Ma").Range("F49").FormulaLocal = "=" & lien_hyp & "(" & Chr(34) & "https://www.commentcamarche.net/" & Chr(34) & ")" 
Sheets("Ma").Range("F100").FormulaLocal = "=" & lien_hyp & "(" & Chr(34) & "https://www.commentcamarche.net/" & Chr(34) & ")" 
Sheets("Ma").Range("F10000").FormulaLocal = "=" & lien_hyp & "(" & Chr(34) & "https://www.commentcamarche.net/" & Chr(34) & ")"

Vba

1 réponse

Discussions similaires