Lien Hypertexte glissant
Résolu/Fermé
nathan01983
Messages postés
343
Date d'inscription
lundi 12 octobre 2009
Statut
Membre
Dernière intervention
15 février 2024
-
22 mars 2021 à 12:41
nathan01983 Messages postés 343 Date d'inscription lundi 12 octobre 2009 Statut Membre Dernière intervention 15 février 2024 - 1 avril 2021 à 18:22
nathan01983 Messages postés 343 Date d'inscription lundi 12 octobre 2009 Statut Membre Dernière intervention 15 février 2024 - 1 avril 2021 à 18:22
A voir également:
- Lien Hypertexte glissant
- Lien url - Guide
- Verifier un lien - Guide
- Créer un lien pour partager des photos - Guide
- Lien hypertexte linkedin - Forum Réseaux sociaux
- Cliquez sur ce lien. en n'utilisant que le clavier, quel mot obtenez-vous ? ✓ - Forum souris / Touchpad
2 réponses
via55
Messages postés
14402
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 avril 2024
2 702
22 mars 2021 à 13:56
22 mars 2021 à 13:56
Bonjour Nathan
Modifie ainsi ta macro pour créer un lien hypertexte pour chaque onglet
Cdlmnt
Via
Modifie ainsi ta macro pour créer un lien hypertexte pour chaque onglet
Sub Snamelist() Dim i As Integer Range("B5").Select For i = 2 To Sheets.Count ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _ Sheets(i).Name & "!A1", TextToDisplay:=Sheets(i).Name ActiveCell.Offset(1, 0).Select Next i End Sub
Cdlmnt
Via
nathan01983
Messages postés
343
Date d'inscription
lundi 12 octobre 2009
Statut
Membre
Dernière intervention
15 février 2024
11
22 mars 2021 à 14:06
22 mars 2021 à 14:06
MERCI BEAUCOUP !!!!!! C'est encore mieux que ce que j'espérais
1 avril 2021 à 11:56
Encore merci pour ton aide, j'aimerai savoir s'il est possible de faire la meme chose non pas en ligne mais en colonne ?
Cordialement
1 avril 2021 à 15:56
Il suffit dans la macro de décaler chaque fois d'une colonne au lieu d'une ligne, donc remplacer
ActiveCell.Offset(1, 0).Select
par ActiveCell.Offset(0,1).Select
Cdlmnt
Via
1 avril 2021 à 18:22