création lien Hypertexe a partir d'une liste

[TEMAGOULTFARID]

Bonjour a vous tous,
Ma demande est: est ce possible lors de la création des identifications des onglets cellules A20:A30 et soient en lien vers les onglets concernés et non les cellules B1:M1,je met le fichier en PJ pour me faire comprendre.Par avance, merci

 

[sylvanu]

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 ?

 

[TEMAGOULTFARID]

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

 

[sylvanu]

Voici un exemple qui marche dont vous pouvez vous inspirer :

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.

 

[TEMAGOULTFARID]

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

 

[sylvanu]

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.

 

[TEMAGOULTFARID]

Merci beaucoup