Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Création et suppression automatique de liens hypertextes pour nouvelles feuilles

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion caseras
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
C

caseras

XLDnaute Nouveau
Bonjour le forum,

Je cherche à obtenir une macro qui permettrait de lister sur ma feuille 1 (appelé Do, un document type) des liens hypertextes pour environ 100 feuilles.

J'ai une macro qui permet de créer des copies de feuille, j'ai une cellule qui reprend le nom de la feuille (en A1), j'ai une pseudo macro qui crée des liens hypertextes, malheureusement, cette macro présente trois problèmes :

1. Les liens hypertextes ne se créent pas automatiquement sur ma feuille 1 avec la création d'une nouvelle feuille , je suis obligé d’exécuter la macro, ce qui ne m'arrange pas des masses !

2. Lorsque j'efface mes feuilles (appelées archives dans mon document) les liens hypertextes sont conservés sur ma feuille de listing, ce qui ne me sert plus à rien.

3. Enfin, tous les liens se listent les uns en dessous des autres sous une seule colonne ==> alors que dans l'idéal il faudrait pour des raisons de visibilité pouvoir les lister sur deux colonnes A et G à partir de la ligne 40....

J'ai fait un bouton appelé "archiver" qui renvoie à la macro du même nom , je pense qu'il doit être possible de compléter cette macro pour qu'elle crée dans le même temps ces liens hypertextes ???

Idem pour la suppression des liens hypertextes je pense que ça doit être possible de les supprimer en regroupant la suppression des autres feuilles (bon j'ai essayé... le résultat est minablissime ça bug tout le temps, du coup j'ai supprimé et laissé ce qui fonctionnait ! 😀 )

Etant donné que cette macro n'est pas du tout, mais alors pas du tout à ma portée je me tourne vers vous !

Merci pour votre aide.

🙂
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
Re : Création et suppression automatique de liens hypertextes pour nouvelles feuilles

Re,

Etant donné que je vois que mon fichier a été affiché 8 fois, je le remonte, histoire de savoir si des gens s'intéressent à mon problème et puis s'il y a de nouveaux amateurs... sait-on jamais ! 🙂
 
Vote positif 0 Vote négatif
Re : Création et suppression automatique de liens hypertextes pour nouvelles feuilles

Bonjour caseras,

Vous n'avez pas de réponse car votre fichier ne représente pas bien le problème.

Si j'ai bien compris, mettez dans le ThisWorkbook :

Code: 
Private Sub Workbook_Open()
Workbook_SheetActivate ActiveSheet
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name <> "Do" Then Exit Sub
Dim ligdeb&, lig&, col As Byte, w As Worksheet, a$
ligdeb = 42 '1ère ligne de liens, à adapter
col = 1 'colonne A, à adapter
Application.ScreenUpdating = False
Sh.Unprotect "hello"
Sh.Rows(ligdeb & ":" & Sh.Rows.Count).Delete
lig = ligdeb
For Each w In Worksheets
  If w.Name <> Sh.Name Then
    a = "#'" & w.Name & "'!A1"
    Sh.Hyperlinks.Add Sh.Cells(lig, col), "", a, a, w.Name
    lig = lig + 1
    If lig = ligdeb + 50 Then lig = ligdeb: col = col + 6 'colonne G
  End If
Next
Sh.Rows(ligdeb & ":" & ligdeb + 50).Font.Size = 18
Sh.Rows(ligdeb & ":" & ligdeb + 50).AutoFit
Sh.Protect "hello"
Sh.EnableSelection = xlNoRestrictions
End Sub
Les liens hypertextes sont mis à jour chaque fois que la feuille "Do" est activée.

Nota : il vaut mieux le ThisWorkbook car ainsi on peut créer une liste dans les feuilles qu'on veut.

Fichier joint.

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Création et suppression automatique de liens hypertextes pour nouvelles feuilles

Re,

Si l'on veut remplir les colonnes A et G un coup à gauche un coup à droite, remplacer :

Code: 
lig = lig + 1
If lig = ligdeb + 50 Then lig = ligdeb: col = col + 6 'colonne G
par :

Code: 
If col = 1 Then col = 7 Else lig = lig + 1: col = 1
Fichier (2).

Bonne nuit.
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Création et suppression automatique de liens hypertextes pour nouvelles feuilles

Eh ben... J'en ai pour un bon moment à comprendre ce que dit votre code.. mais ce qui est sur c'est que ça marche !

Merci c'est top ! ! ! 🙂

Bonne nuit à vous aussi !
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

C
  • Question Question
Microsoft 365 Liens hypertexte
Réponses
4
Affichages
280
clyn
C
B
  • Question Question
XL 2016 Validation des données en gardant les liens hypertextes
Réponses
8
Affichages
568
Ben92290
B
J
  • Résolu(e)
Autres Créer des liens hypertexte automatiques et dans plusieurs colonnes dans un tableau excel
Réponses
8
Affichages
383
JMC
J
  • Question Question
Microsoft 365 Création automatique de feuille et le remplissage correspondant
Réponses
8
Affichages
235
gbinforme
G
D
  • Résolu(e)
XL 2019 Boucle sur plusieurs feuilles
Réponses
6
Affichages
197
dadaze
D
M
  • Question Question
XL 2021 Fichier de suivi avec liens et formules
Réponses
4
Affichages
250
Mily74
M
J
  • Question Question
XL 2021 Créer liens hypertexte automatiquement
2
Réponses
21
Affichages
784
JMC
J
M
  • Question Question
XL 2016 pb création de tableau par macro
Réponses
10
Affichages
126
ChTi160
S
  • Résolu(e)
Microsoft 365 Conserver lien hypertexte avec une fonction RechercheV
2
Réponses
19
Affichages
1 K
job75
Y
  • Question Question
XL 2021 Lien Hypertexte et feuilles masquées
Réponses
4
Affichages
846
Yacine
Y
  • Question Question
XL 2016 Boucler sur les feuilles d'un classeur
Réponses
7
Affichages
213
KTM
P
  • Résolu(e)
Microsoft 365 Utiliser la même macro dans des feuilles différentes
2 3
Réponses
35
Affichages
787
cathodique
C
  • Question Question
XL 2021 Suppression de cellules
Réponses
9
Affichages
223
clausen
C
C
  • Question Question
Microsoft 365 macro copie de feuilles (avec formules à adapter)
Réponses
9
Affichages
230
caseras
C
A
  • Question Question
Microsoft 365 créer un lien vers une cellule dont la ligne est fluctuante
Réponses
3
Affichages
143
AtTheOne
B
  • Question Question
XL 2021 Créer liste déroulante contenant des liens hypertextes
Réponses
9
Affichages
893
job75
  • Résolu(e)
XL 2016 masquer/afficher des feuilles
Réponses
6
Affichages
167
eastwick
  • Résolu(e)
Microsoft 365 rendre visible automatiquement l'onglet de la feuille active sur la barre de navigation inférieure
Réponses
11
Affichages
697
Eric 888
J
  • Question Question
XL 2021 Excel CSV vers XSL et ne pas écraser les données
Réponses
9
Affichages
276
sylvanu
M
  • Question Question
Microsoft 365 Comptabilité : Création d'un fichier automatique d'analyse de comptes
Réponses
2
Affichages
682
Max
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…