Vba

Résolu/Fermé

Utilisateur anonyme - Modifié par delta70 le 22/01/2013 à 15:03
Utilisateur anonyme - 24 janv. 2013 à 13:37

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

A voir également:

Vba
Incompatibilité de type vba ✓ - Forum Programmation
Vba attendre 1 seconde ✓ - Forum VB / VBA
Vba dernière colonne non vide ✓ - Forum VB / VBA
Vba récupérer valeur cellule ✓ - Forum VB / VBA
Mkdir vba ✓ - Forum VB / VBA

1 réponse

Réponse 1 / 1

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
24 janv. 2013 à 11:07

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) & ")"

Utilisateur anonyme
24 janv. 2013 à 13:37

Merci pijaku

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

VBA : Range avec références variables..

VBA erreur 1004

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel

Discussions similaires

Newsletters