Soit un classeur de de 11 feuilles nommés de A à J et une feuille nommé
index.
Dans la feuille index, je voudrais créé 10 boutons nommé de A à J, de façon
que quand je clic sur un des boutons, je vais directement à la feuille
souhaité.
Pour la création des boutons, aucun problème, mais après comment faire ???
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour Wenlok,
As-tu essayé d'utiliser des liens hypertextes comme façon de sélectionner tes feuilles à partir du sommaire
Remplace Feuil1 par la propriété Name de la feuille où tu veux inscrire tes données. (accessible dans la fenêtre de l'éditeur de code.) '------------------------------- Sub Sommaire()
Dim Sh As Worksheet With Feuil1 For Each Sh In Worksheets If UCase(Sh.Name) <> "INDEX" Then A = A + 1 .Hyperlinks.Add Anchor:=.Range("A1")(A), Address:="", _ SubAddress:="'" & Sh.Name & "'" & "!A1", _ TextToDisplay:=Sh.Name End If Next End With End Sub '-------------------------------
Salutations!
"Wenlok" a écrit dans le message de news: 443be382$0$20141$ Bonjour,
Soit un classeur de de 11 feuilles nommés de A à J et une feuille nommé index.
Dans la feuille index, je voudrais créé 10 boutons nommé de A à J, de façon que quand je clic sur un des boutons, je vais directement à la feuille souhaité.
Pour la création des boutons, aucun problème, mais après comment faire ???
Merci pour votre aide.
Bonjour Wenlok,
As-tu essayé d'utiliser des liens hypertextes comme façon
de sélectionner tes feuilles à partir du sommaire
Remplace Feuil1 par la propriété Name de la feuille où tu veux
inscrire tes données. (accessible dans la fenêtre de l'éditeur de code.)
'-------------------------------
Sub Sommaire()
Dim Sh As Worksheet
With Feuil1
For Each Sh In Worksheets
If UCase(Sh.Name) <> "INDEX" Then
A = A + 1
.Hyperlinks.Add Anchor:=.Range("A1")(A), Address:="", _
SubAddress:="'" & Sh.Name & "'" & "!A1", _
TextToDisplay:=Sh.Name
End If
Next
End With
End Sub
'-------------------------------
Salutations!
"Wenlok" <laclewenlok@free.fr> a écrit dans le message de news: 443be382$0$20141$8fcfb975@news.wanadoo.fr...
Bonjour,
Soit un classeur de de 11 feuilles nommés de A à J et une feuille nommé
index.
Dans la feuille index, je voudrais créé 10 boutons nommé de A à J, de façon
que quand je clic sur un des boutons, je vais directement à la feuille
souhaité.
Pour la création des boutons, aucun problème, mais après comment faire ???
As-tu essayé d'utiliser des liens hypertextes comme façon de sélectionner tes feuilles à partir du sommaire
Remplace Feuil1 par la propriété Name de la feuille où tu veux inscrire tes données. (accessible dans la fenêtre de l'éditeur de code.) '------------------------------- Sub Sommaire()
Dim Sh As Worksheet With Feuil1 For Each Sh In Worksheets If UCase(Sh.Name) <> "INDEX" Then A = A + 1 .Hyperlinks.Add Anchor:=.Range("A1")(A), Address:="", _ SubAddress:="'" & Sh.Name & "'" & "!A1", _ TextToDisplay:=Sh.Name End If Next End With End Sub '-------------------------------
Salutations!
"Wenlok" a écrit dans le message de news: 443be382$0$20141$ Bonjour,
Soit un classeur de de 11 feuilles nommés de A à J et une feuille nommé index.
Dans la feuille index, je voudrais créé 10 boutons nommé de A à J, de façon que quand je clic sur un des boutons, je vais directement à la feuille souhaité.
Pour la création des boutons, aucun problème, mais après comment faire ???
Merci pour votre aide.
danielrv
Bonjour, Pourquoi ne pas insérer un lien hypertexte (Insertion/Lien hypertexte.. avec un signet ou une référence de cellule). Bonne soirée. Daniel
"Wenlok" a écrit dans le message de news: 443be382$0$20141$
Bonjour,
Soit un classeur de de 11 feuilles nommés de A à J et une feuille nommé index.
Dans la feuille index, je voudrais créé 10 boutons nommé de A à J, de façon que quand je clic sur un des boutons, je vais directement à la feuille souhaité.
Pour la création des boutons, aucun problème, mais après comment faire ???
Merci pour votre aide.
Bonjour,
Pourquoi ne pas insérer un lien hypertexte (Insertion/Lien hypertexte.. avec
un signet ou une référence de cellule).
Bonne soirée.
Daniel
"Wenlok" <laclewenlok@free.fr> a écrit dans le message de news:
443be382$0$20141$8fcfb975@news.wanadoo.fr...
Bonjour,
Soit un classeur de de 11 feuilles nommés de A à J et une feuille nommé
index.
Dans la feuille index, je voudrais créé 10 boutons nommé de A à J, de
façon que quand je clic sur un des boutons, je vais directement à la
feuille souhaité.
Pour la création des boutons, aucun problème, mais après comment faire ???
Bonjour, Pourquoi ne pas insérer un lien hypertexte (Insertion/Lien hypertexte.. avec un signet ou une référence de cellule). Bonne soirée. Daniel
"Wenlok" a écrit dans le message de news: 443be382$0$20141$
Bonjour,
Soit un classeur de de 11 feuilles nommés de A à J et une feuille nommé index.
Dans la feuille index, je voudrais créé 10 boutons nommé de A à J, de façon que quand je clic sur un des boutons, je vais directement à la feuille souhaité.
Pour la création des boutons, aucun problème, mais après comment faire ???
Merci pour votre aide.
danielrv
Re, Désolé, avec Outlook express, je ne reçois les messages qu'avec un grand décalage.... Enfin, vu la réponse du michdenis, vous avez deviné que je ne l'avais pas vu. Bonne soirée. oups
Re,
Désolé, avec Outlook express, je ne reçois les messages qu'avec un grand
décalage....
Enfin, vu la réponse du michdenis, vous avez deviné que je ne l'avais pas
vu.
Bonne soirée.
oups
Re, Désolé, avec Outlook express, je ne reçois les messages qu'avec un grand décalage.... Enfin, vu la réponse du michdenis, vous avez deviné que je ne l'avais pas vu. Bonne soirée. oups
