OBJ :Me faire passer une bonne journée!!valeur de cellule dans un lien!!

[Tatiana29]

Bonjour,
J'ai un fichier avec des milliers d'onglet Ong1,Ong2,Ong3 et je dois ramener la cellule A1 de chaque onglet dans un autre onlget,est ce que je peux me faire un onglet avec la liste des noms d'onglet et les utiliser dans une formule au lieu de faire tous les liens et y passer ma journée!!
j'ai un exemple en PJ!

Tatiana

 

[camarchepas]

Re : OBJ :Me faire passer une bonne journée!!valeur de cellule dans un lien!!

Bonjour ,

Peut être avec ce petit code

Sub Tourne()
Dim Onglet As Worksheet
Dim Ligne As Long
Ligne = 0
For Each Onglet In ThisWorkbook.Worksheets
If Onglet.Name <> "synthèse" Then
 Ligne = Ligne + 1
 Sheets("Synthèse").Range("A" & Ligne) = Onglet.Name
 Sheets("Synthèse").Range("C" & Ligne) = Onglet.Range("A1")
End If
Next
End Sub

 

[Tatiana29]

Re : OBJ :Me faire passer une bonne journée!!valeur de cellule dans un lien!!

Merci de ta réponse.
mais est ce que je peux utiliser la valeur d'une cellule dans une liaison excel?

 

[Staple1600]

Re : OBJ :Me faire passer une bonne journée!!valeur de cellule dans un lien!!

Bonsoir à tous

[aparté]

J'ai un fichier avec des milliers d'onglet Ong1,Ong2,Ong3

Mon pauvre Excel, pas toujours facile la vie de tableur
[/aparté]

Tatiana29
Et tu n'as pas de problème de lenteur avec ce fichier

 

[camarchepas]

Re : OBJ :Me faire passer une bonne journée!!valeur de cellule dans un lien!!

Bonjour ,

@ : Staple : Et oui , y'a surement un zéro de trop , (lol)

sinon , c'est surement pas la bonne solution, mais ne connaissant le besoin que super superficiellement .....

Attention de pas trop t'attacher aux liens

Sub Tourne()
Dim Onglet As Worksheet
Dim Ligne As Long
Ligne = 0
 With Sheets("Synthèse")
 .Cells.Clear
  For Each Onglet In ThisWorkbook.Worksheets
   If Onglet.Name <> "synthèse" Then
    Ligne = Ligne + 1
    .Range("A" & Ligne) = Onglet.Name
    .Range("C" & Ligne) = Onglet.Range("A1")
    .Hyperlinks.Add Anchor:=.Range("B" & Ligne), Address:="", SubAddress:= _
        Onglet.Name & "!A1", TextToDisplay:=Range(Onglet.Name & "!A1").Text
   End If
  Next
 End With
End Sub