Vba
Résolu
Utilisateur anonyme
-
Utilisateur anonyme -
Utilisateur anonyme -
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
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
1 réponse
Bonjour,
Dans ton code, la ligne :
Il te suffit donc de faire de même pour les autres lignes :
Ajouter un lien en F49, F100 et F10000 :
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) & ")"
Utilisateur anonyme
Merci pijaku
