création lien Hypertexe a partir d'une liste

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 5 Février 2020

• #2

Bonjour [SIZE=4]TEMAGOULTFARID[/SIZE]
Pouvez vous précisez votre demande ?
Dans votre fichier si je mets des X en lignes 20,21,22 j'ai bien mes trois onglets créés, les liens en ligne 1 fonctionnent correctement et les valeurs du tableau sont bien recalculées.
Où se situe votre problème ?

 

Vote positif 0 Vote négatif

T

TEMAGOULTFARID

XLDnaute Occasionnel

• 5 Février 2020

• #3

bonjour Sylvanu, avant tout, je te remercie de te pencher sur ma demande, le fonctionne bien , il n'y a pas de soucie.Je souhaite une modification a savoir, au lieu que lien se fassent sur la ligne 1 , mais puisse se faire sur la colonne A20:A31 au moment de la création des onglets, j’espère avoir été clair et merci

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 5 Février 2020

• #4

Voici un exemple qui marche dont vous pouvez vous inspirer :

VB:

Sub LiensHypertextes()
Sheets("Résultat").Activate
For i = 20 To 31
    If Range("D" & i) = "X" Then
       Range("A" & i).Select
       AddrLink = "'" & Range("A" & i).Value & "'" & "!A1"
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        AddrLink, TextToDisplay:=Range("A" & i).Value
        With Selection.Font
            .Size = 14
            .Bold = True
        End With
    End If
Next i
End Sub

Il ne mets des liens que sur les feuilles qui existent ( X en colonne D )
J'ai mis une mise en forme modifiable ( font 14 gras )
A mettre à la fin du traitement Copier_Nommer_Feuilles.

 

Vote positif 0 Vote négatif

T

TEMAGOULTFARID

XLDnaute Occasionnel

• 7 Février 2020

• #5

bonjour,
merci beaucoup pour votre implication, comme je suis encore un nourrisson en vba , pouvez m’éclaircir sur "A mettre à la fin du traitement Copier_Nommer_Feuilles. ", cela fait 2 jours que j'essaie de me débrouiller seul, mais en vain , par avance , merci

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 8 Février 2020

• #6

Bonjour,
Désolé, comme j'ai vu plein de VBA partout, j'ai fait un raccourci.
Dans votre feuille Résultat il y a une macro : Private Sub Copier_Nommer_Feuilles()
A la fin des macros vous copiez ma macro.
Puis à la fin de Copier_Nommer_Feuilles() vous rajoutez un call à ce module.
Comme dans la PJ.

 

Pièces jointes

• Poste 1 (6).xlsm

  716.3 KB · Affichages: 7

Vote positif 0 Vote négatif

T

TEMAGOULTFARID

XLDnaute Occasionnel

• 8 Février 2020

• #7

Merci beaucoup

 

Vote positif 0 Vote négatif