Voilà, j'ai un classeur qui subit une inflation mensuelle avec les feuilles
qu'il contient. J'ai créé un Sommaire sur une feuille, qui comporte le nom de
toutes les feuilles du classeur avec un lien hypertexte pour y accéder.
Ma question est la suivante:
Comment créer un code VBA qui inscrirait dans une cellule unique (A30) de
chaque feuille du classeur: "Sommaire", avec le lien hypertexte qui renvoi à
la feuille Sommaire ?
Je vous remercie à l'avance de vos réponses.
zOrg2net
7OuNet
Dicton du jour:
Les derrières des rois et ceux de leurs sujets, sont égaux par l'odeur,
l'orsqu'ils ne sont pas nets.
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
isabelle
bonjour,
For Each f In Worksheets If f.Name <> "Sommaire" Then With Sheets(f.Name) .Hyperlinks.Add Anchor:=.Range("A30"), Address:="", _ SubAddress:="Sommaire!A1", TextToDisplay:="Sommaire" End With End If Next
isabelle
Bonjour tou'l'monde!
Voilà, j'ai un classeur qui subit une inflation mensuelle avec les feuilles qu'il contient. J'ai créé un Sommaire sur une feuille, qui comporte le nom de toutes les feuilles du classeur avec un lien hypertexte pour y accéder. Ma question est la suivante: Comment créer un code VBA qui inscrirait dans une cellule unique (A30) de chaque feuille du classeur: "Sommaire", avec le lien hypertexte qui renvoi à la feuille Sommaire ?
Je vous remercie à l'avance de vos réponses.
zOrg2net 7OuNet Dicton du jour: Les derrières des rois et ceux de leurs sujets, sont égaux par l'odeur, l'orsqu'ils ne sont pas nets.
bonjour,
For Each f In Worksheets
If f.Name <> "Sommaire" Then
With Sheets(f.Name)
.Hyperlinks.Add Anchor:=.Range("A30"), Address:="", _
SubAddress:="Sommaire!A1", TextToDisplay:="Sommaire"
End With
End If
Next
isabelle
Bonjour tou'l'monde!
Voilà, j'ai un classeur qui subit une inflation mensuelle avec les feuilles
qu'il contient. J'ai créé un Sommaire sur une feuille, qui comporte le nom de
toutes les feuilles du classeur avec un lien hypertexte pour y accéder.
Ma question est la suivante:
Comment créer un code VBA qui inscrirait dans une cellule unique (A30) de
chaque feuille du classeur: "Sommaire", avec le lien hypertexte qui renvoi à
la feuille Sommaire ?
Je vous remercie à l'avance de vos réponses.
zOrg2net
7OuNet
Dicton du jour:
Les derrières des rois et ceux de leurs sujets, sont égaux par l'odeur,
l'orsqu'ils ne sont pas nets.
For Each f In Worksheets If f.Name <> "Sommaire" Then With Sheets(f.Name) .Hyperlinks.Add Anchor:=.Range("A30"), Address:="", _ SubAddress:="Sommaire!A1", TextToDisplay:="Sommaire" End With End If Next
isabelle
Bonjour tou'l'monde!
Voilà, j'ai un classeur qui subit une inflation mensuelle avec les feuilles qu'il contient. J'ai créé un Sommaire sur une feuille, qui comporte le nom de toutes les feuilles du classeur avec un lien hypertexte pour y accéder. Ma question est la suivante: Comment créer un code VBA qui inscrirait dans une cellule unique (A30) de chaque feuille du classeur: "Sommaire", avec le lien hypertexte qui renvoi à la feuille Sommaire ?
Je vous remercie à l'avance de vos réponses.
zOrg2net 7OuNet Dicton du jour: Les derrières des rois et ceux de leurs sujets, sont égaux par l'odeur, l'orsqu'ils ne sont pas nets.
Elliac
Bonjour,
En supposant que le sommaire est la 1ère feuille du classeur :
Sub Macro2() For cpt = 2 To Sheets.Count Sheets(cpt).Select Range("A1") = "Sommaire" ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _ "Sommaire!A1", TextToDisplay:="Sommaire" Next End Sub
Camille
"zOrg2net" wrote:
Bonjour tou'l'monde!
Voilà, j'ai un classeur qui subit une inflation mensuelle avec les feuilles qu'il contient. J'ai créé un Sommaire sur une feuille, qui comporte le nom de toutes les feuilles du classeur avec un lien hypertexte pour y accéder. Ma question est la suivante: Comment créer un code VBA qui inscrirait dans une cellule unique (A30) de chaque feuille du classeur: "Sommaire", avec le lien hypertexte qui renvoi à la feuille Sommaire ?
Je vous remercie à l'avance de vos réponses.
zOrg2net 7OuNet Dicton du jour: Les derrières des rois et ceux de leurs sujets, sont égaux par l'odeur, l'orsqu'ils ne sont pas nets.
Bonjour,
En supposant que le sommaire est la 1ère feuille du classeur :
Sub Macro2()
For cpt = 2 To Sheets.Count
Sheets(cpt).Select
Range("A1") = "Sommaire"
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Sommaire!A1", TextToDisplay:="Sommaire"
Next
End Sub
Camille
"zOrg2net" wrote:
Bonjour tou'l'monde!
Voilà, j'ai un classeur qui subit une inflation mensuelle avec les feuilles
qu'il contient. J'ai créé un Sommaire sur une feuille, qui comporte le nom de
toutes les feuilles du classeur avec un lien hypertexte pour y accéder.
Ma question est la suivante:
Comment créer un code VBA qui inscrirait dans une cellule unique (A30) de
chaque feuille du classeur: "Sommaire", avec le lien hypertexte qui renvoi à
la feuille Sommaire ?
Je vous remercie à l'avance de vos réponses.
zOrg2net
7OuNet
Dicton du jour:
Les derrières des rois et ceux de leurs sujets, sont égaux par l'odeur,
l'orsqu'ils ne sont pas nets.
En supposant que le sommaire est la 1ère feuille du classeur :
Sub Macro2() For cpt = 2 To Sheets.Count Sheets(cpt).Select Range("A1") = "Sommaire" ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _ "Sommaire!A1", TextToDisplay:="Sommaire" Next End Sub
Camille
"zOrg2net" wrote:
Bonjour tou'l'monde!
Voilà, j'ai un classeur qui subit une inflation mensuelle avec les feuilles qu'il contient. J'ai créé un Sommaire sur une feuille, qui comporte le nom de toutes les feuilles du classeur avec un lien hypertexte pour y accéder. Ma question est la suivante: Comment créer un code VBA qui inscrirait dans une cellule unique (A30) de chaque feuille du classeur: "Sommaire", avec le lien hypertexte qui renvoi à la feuille Sommaire ?
Je vous remercie à l'avance de vos réponses.
zOrg2net 7OuNet Dicton du jour: Les derrières des rois et ceux de leurs sujets, sont égaux par l'odeur, l'orsqu'ils ne sont pas nets.
zOrg2net
Bonjour @ tous,
Tested and approuved. Les deux solutions proposées marchent for bien. Grand merci à vous pour cette aide précieuse. ;o))
zOrg2net 7OuNet Dicton du jour: Si à la Saint Valentin elle te caresse la main, espère bien vite, la Sainte Marguerite
Bonjour tou'l'monde!
Voilà, j'ai un classeur qui subit une inflation mensuelle avec les feuilles qu'il contient. J'ai créé un Sommaire sur une feuille, qui comporte le nom de toutes les feuilles du classeur avec un lien hypertexte pour y accéder. Ma question est la suivante: Comment créer un code VBA qui inscrirait dans une cellule unique (A30) de chaque feuille du classeur: "Sommaire", avec le lien hypertexte qui renvoi à la feuille Sommaire ?
Je vous remercie à l'avance de vos réponses.
zOrg2net 7OuNet Dicton du jour: Les derrières des rois et ceux de leurs sujets, sont égaux par l'odeur, l'orsqu'ils ne sont pas nets.
Bonjour @ tous,
Tested and approuved. Les deux solutions proposées marchent for bien.
Grand merci à vous pour cette aide précieuse. ;o))
zOrg2net
7OuNet
Dicton du jour: Si à la Saint Valentin elle te caresse la main, espère bien
vite, la Sainte Marguerite
Bonjour tou'l'monde!
Voilà, j'ai un classeur qui subit une inflation mensuelle avec les feuilles
qu'il contient. J'ai créé un Sommaire sur une feuille, qui comporte le nom de
toutes les feuilles du classeur avec un lien hypertexte pour y accéder.
Ma question est la suivante:
Comment créer un code VBA qui inscrirait dans une cellule unique (A30) de
chaque feuille du classeur: "Sommaire", avec le lien hypertexte qui renvoi à
la feuille Sommaire ?
Je vous remercie à l'avance de vos réponses.
zOrg2net
7OuNet
Dicton du jour:
Les derrières des rois et ceux de leurs sujets, sont égaux par l'odeur,
l'orsqu'ils ne sont pas nets.
Tested and approuved. Les deux solutions proposées marchent for bien. Grand merci à vous pour cette aide précieuse. ;o))
zOrg2net 7OuNet Dicton du jour: Si à la Saint Valentin elle te caresse la main, espère bien vite, la Sainte Marguerite
Bonjour tou'l'monde!
Voilà, j'ai un classeur qui subit une inflation mensuelle avec les feuilles qu'il contient. J'ai créé un Sommaire sur une feuille, qui comporte le nom de toutes les feuilles du classeur avec un lien hypertexte pour y accéder. Ma question est la suivante: Comment créer un code VBA qui inscrirait dans une cellule unique (A30) de chaque feuille du classeur: "Sommaire", avec le lien hypertexte qui renvoi à la feuille Sommaire ?
Je vous remercie à l'avance de vos réponses.
zOrg2net 7OuNet Dicton du jour: Les derrières des rois et ceux de leurs sujets, sont égaux par l'odeur, l'orsqu'ils ne sont pas nets.
