Plusieurs liens hypertextes sous Excel
Résolu/Fermé
KLRFF
-
2 sept. 2008 à 10:22
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 3 sept. 2008 à 10:53
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 3 sept. 2008 à 10:53
A voir également:
- Plusieurs liens hypertextes sous Excel
- Liste déroulante excel - Guide
- Formule excel - Guide
- Formule excel pour additionner plusieurs cellules - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
3 réponses
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 684
2 sept. 2008 à 12:33
2 sept. 2008 à 12:33
bonjour
Avec cette macro événementielle à placer dans ta feuille concernée (mode d'emploi)
Tu remplaces C par ton lecteur, "xyx" par ton chemin de répertoire complet et A:A par ta colonne de noms où tu n'as pas à saisir le suffixe.
Avec cette macro événementielle à placer dans ta feuille concernée (mode d'emploi)
Private Sub Worksheet_SelectionChange(ByVal sel As Range) If sel.Count > 1 Then Exit Sub If Not Intersect(sel, [A:A]) Is Nothing And sel.Value <> "" Then Dim chemin As String chemin = "C:\xyx\n_id.svgz" chemin = Replace(chemin , "n_id", sel.Value) ActiveWorkbook.FollowHyperlink Address:=chemin, NewWindow:=True End If End Sub
Tu remplaces C par ton lecteur, "xyx" par ton chemin de répertoire complet et A:A par ta colonne de noms où tu n'as pas à saisir le suffixe.
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
2 sept. 2008 à 13:04
2 sept. 2008 à 13:04
Bonjour tous,
Beuh.. Vais probablement encore me faire insulter :D mais moi je n'ai pas compris de cette façon...
A+
Beuh.. Vais probablement encore me faire insulter :D mais moi je n'ai pas compris de cette façon...
Sub ChangeEnHyper() 'Si dans colonne A sinon mettre le N° de la colonne Dim i As Integer, s For i = 1 To 500 If Left(Cells(i, 1), 4) = "http" Then s = Cells(i, 1) Cells(i, 1) = "" Cells(i, 1).Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=s, TextToDisplay:=s End If Next i End Sub
A+
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 684
2 sept. 2008 à 22:04
2 sept. 2008 à 22:04
bonjour lermite222,
Vais probablement encore me faire insulter :D
Je me sens visé mais avec humour !
Tu génères les liens alors que j'avais donné une formule pour les activer dynamiquement : notre questionneur a eu ainsi 2 méthodes et il a pu choisir selon ses goûts comme les lecteurs éventuels.
Tu peux même simplifier ton code ainsi pour activer le lien saisi :
Le test "http" est peut-être à revoir s'il s'agit de fichiers comme il était précisé.
à bientôt peut-être sur un autre sujet.
Vais probablement encore me faire insulter :D
Je me sens visé mais avec humour !
Tu génères les liens alors que j'avais donné une formule pour les activer dynamiquement : notre questionneur a eu ainsi 2 méthodes et il a pu choisir selon ses goûts comme les lecteurs éventuels.
Tu peux même simplifier ton code ainsi pour activer le lien saisi :
For i = 1 To 500 If Left(Cells(i, 1), 4) = "http" Then ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:=Cells(i, 1) End If Next i
Le test "http" est peut-être à revoir s'il s'agit de fichiers comme il était précisé.
à bientôt peut-être sur un autre sujet.
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
>
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
3 sept. 2008 à 02:32
3 sept. 2008 à 02:32
Bonjour à toi également, Tu à essayé avec les cellules ? parceque c'est ce que j'avais fais en 1er mais ça plantait ?
Cordialement SR :D
Cordialement SR :D
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 684
>
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
3 sept. 2008 à 08:42
3 sept. 2008 à 08:42
bonjour
Tu à essayé avec les cellules ?
Je ne comprends pas ta question ?
Sinon, les macros de ce sujet fonctionnent sur mon poste.
Tu à essayé avec les cellules ?
Je ne comprends pas ta question ?
Sinon, les macros de ce sujet fonctionnent sur mon poste.
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
>
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
3 sept. 2008 à 10:53
3 sept. 2008 à 10:53
Bonjour,
Je voulais dire en mettant directement les cellules comme dans ta modif, mais j'ai repris la macro et effectivement ça fonctionne, je sais pas ce que j'ai fait la 1ère fois.
A+
Je voulais dire en mettant directement les cellules comme dans ta modif, mais j'ai repris la macro et effectivement ça fonctionne, je sais pas ce que j'ai fait la 1ère fois.
A+