XL 2010 Lier les onglets

[bobafric]

Bonjour
J'ai un fichier alphabétique que je veux installer sur excel.
Feuil1 colonne A1-A26 alphabet de A à Z
comment créer les onglets de A à Z automatiquement en une macro pour ouvrir le lien de chacun de ces onglets a la cellule correspondante de la feuill.
Ci-joint mon fichier sans le code.
Merci d'avance

 

[fanch55]

Bonsoir,
Je ne suis pas sûr d'avoir tout compris, mais vous pouvez tester le code ci-dessous (Set_HLink)

Sub Set_HLink()
Dim Cell As Range, Ws As Worksheet
    Set Ws = Worksheets("NOM")
        For Each Cell In Ws.Columns("A").Cells
            If Cell = "" Then Exit For
            If Not IsFeuille(Cell.Text) Then Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = Cell.Text
            Ws.Hyperlinks.Add Anchor:=Cell, Address:="", _
                SubAddress:=Cell & "!A1", TextToDisplay:=Cell.Text
        Next
        Ws.Activate
    Set Ws = Nothing
End Sub
Function IsFeuille(ByVal Cible As String, Optional FType As XlSheetType = xlWorksheet) As Boolean
Dim Obj    As Object
IsFeuille = False

  For Each Obj In ThisWorkbook.Worksheets
    Select Case True
        Case Obj.Name Like Cible:          IsFeuille = True
        Case Obj.CodeName Like Cible:      IsFeuille = True
    End Select
    If IsFeuille Then Exit For
  Next
 
End Function

 

[soan]

Bonjour bobafric, le fil,

tu es inspecteur des impôts ?

soan

 

[bobafric]

Bonsoir,
Je ne suis pas sûr d'avoir tout compris, mais vous pouvez tester le code ci-dessous (Set_HLink)

Sub Set_HLink()
Dim Cell As Range, Ws As Worksheet
    Set Ws = Worksheets("NOM")
        For Each Cell In Ws.Columns("A").Cells
            If Cell = "" Then Exit For
            If Not IsFeuille(Cell.Text) Then Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = Cell.Text
            Ws.Hyperlinks.Add Anchor:=Cell, Address:="", _
                SubAddress:=Cell & "!A1", TextToDisplay:=Cell.Text
        Next
        Ws.Activate
    Set Ws = Nothing
End Sub
Function IsFeuille(ByVal Cible As String, Optional FType As XlSheetType = xlWorksheet) As Boolean
Dim Obj    As Object
IsFeuille = False

  For Each Obj In ThisWorkbook.Worksheets
    Select Case True
        Case Obj.Name Like Cible:          IsFeuille = True
        Case Obj.CodeName Like Cible:      IsFeuille = True
    End Select
    If IsFeuille Then Exit For
  Next
 
End Function

Merci fanch c'est nickel
Et non je ne suis pas inspecteur des impots c'est un fichier pour le pok
Salut

 

[soan]

@bobafric

Eh non je ne suis pas inspecteur des impôts c'est un fichier pour le pok

ah bon, j'avais cru que le « bob » de ton pseudo était un synonyme de « pompe » ! 😜

si t'avais été un inspecteur des impôts, donc une « pompe à fric » : désolé, j'suis fauché ! 😭

bon, ça doit plutôt être Bob d'Afrique ! 🌍 🐘 🦓🦒🦏 🦛 🦁 🐒
​

---

pour ton abréviation « pok », c'est quoi ? « poker » ? « pokémon » ? autre ?

je ne vois pas bien le rapport entre l'alphabet et le poker ! c'est peut-être des joueurs illettrés à qui tu veux apprendre à lire et à écrire ? et si c'est entre l'alphabet et pokémon ? tu veux apprendre à lire et à écrire à Pikachu ? 😉​

ou alors, c'est une souris qui a attrapé la jaunisse ! 😭

soan