La question a d=E9j=E0 =E9t=E9 pos=E9e , mais la r=E9ponse ne m'a pas=20
permis de r=E9soudre le probl=E8me.
J'ai une macro qui cr=E9e la liste des onglets sur une=20
feuille du classeur (90 feuilles dans le classeur) et=20
pour ins=E9rer un lien hypertexte sur chaque cellule=20
contenant le nom des onglets.
La voici :
Sub NouvelIndex()
Dim NomFeuil As String
Dim LienFeuil As String
Set NewSheet =3D Sheets.Add(Type:=3DxlWorksheet)
For I =3D 1 To Sheets.Count
NewSheet.Cells(I, 1).Value =3D Sheets(I).Name
NomFeuil =3D Sheets(I).Name
LienFeuil =3D "'" & NomFeuil & "' !A1"
Cells(I, 1).Select
ActiveSheet.Hyperlinks.Add Anchor:=3DSelection, =20
Address:=3D"", SubAddress:=3DLienFeuil,=20
TextToDisplay:=3DNomFeuil
Next I
End Sub
La question est : pourquoi j'obtiens le=20
message "r=E9f=E9rence non valide" lorsque je clique sur la=20
cellule qui contient le lien ?
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
FxM
Bonsoir,
La question est : pourquoi j'obtiens le message "référence non valide" lorsque je clique sur la cellule qui contient le lien ?
Je dirais ... parce que le lien n'est pas valide ;o))
Venant de créer un lien hypertexte dans une cellule vide, j'obtiens ce qui suit : Feuil2!A1 (sans aucun ')
Teste avec LienFeuil = NomFeuil & "!A1"
@+ FxM
Sub NouvelIndex() Dim NomFeuil As String Dim LienFeuil As String Set NewSheet = Sheets.Add(Type:=xlWorksheet) For I = 1 To Sheets.Count NewSheet.Cells(I, 1).Value = Sheets(I).Name NomFeuil = Sheets(I).Name LienFeuil = "'" & NomFeuil & "' !A1" Cells(I, 1).Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=LienFeuil, TextToDisplay:=NomFeuil Next I End Sub
Bonsoir,
La question est : pourquoi j'obtiens le
message "référence non valide" lorsque je clique sur la
cellule qui contient le lien ?
Je dirais ... parce que le lien n'est pas valide ;o))
Venant de créer un lien hypertexte dans une cellule vide, j'obtiens ce
qui suit : Feuil2!A1 (sans aucun ')
Teste avec LienFeuil = NomFeuil & "!A1"
@+
FxM
Sub NouvelIndex()
Dim NomFeuil As String
Dim LienFeuil As String
Set NewSheet = Sheets.Add(Type:=xlWorksheet)
For I = 1 To Sheets.Count
NewSheet.Cells(I, 1).Value = Sheets(I).Name
NomFeuil = Sheets(I).Name
LienFeuil = "'" & NomFeuil & "' !A1"
Cells(I, 1).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection,
Address:="", SubAddress:=LienFeuil,
TextToDisplay:=NomFeuil
Next I
End Sub
La question est : pourquoi j'obtiens le message "référence non valide" lorsque je clique sur la cellule qui contient le lien ?
Je dirais ... parce que le lien n'est pas valide ;o))
Venant de créer un lien hypertexte dans une cellule vide, j'obtiens ce qui suit : Feuil2!A1 (sans aucun ')
Teste avec LienFeuil = NomFeuil & "!A1"
@+ FxM
Sub NouvelIndex() Dim NomFeuil As String Dim LienFeuil As String Set NewSheet = Sheets.Add(Type:=xlWorksheet) For I = 1 To Sheets.Count NewSheet.Cells(I, 1).Value = Sheets(I).Name NomFeuil = Sheets(I).Name LienFeuil = "'" & NomFeuil & "' !A1" Cells(I, 1).Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=LienFeuil, TextToDisplay:=NomFeuil Next I End Sub
Les ' de chaque coté servent au cas ou le nom des feuilles comportent des espaces genre "Ma Premiere Feuille"
Alain CROS.
-----Message d'origine----- Bonsoir,
La question est : pourquoi j'obtiens le message "référence non valide" lorsque je clique sur la cellule qui contient le lien ?
Je dirais ... parce que le lien n'est pas valide ;o))
Venant de créer un lien hypertexte dans une cellule vide, j'obtiens ce
qui suit : Feuil2!A1 (sans aucun ')
Teste avec LienFeuil = NomFeuil & "!A1"
@+ FxM
Sub NouvelIndex() Dim NomFeuil As String Dim LienFeuil As String Set NewSheet = Sheets.Add(Type:=xlWorksheet) For I = 1 To Sheets.Count NewSheet.Cells(I, 1).Value = Sheets(I).Name NomFeuil = Sheets(I).Name LienFeuil = "'" & NomFeuil & "' !A1" Cells(I, 1).Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=LienFeuil, TextToDisplay:=NomFeuil Next I End Sub
.
Bonjour.
Les ' de chaque coté servent au cas ou le nom des feuilles
comportent des espaces genre "Ma Premiere Feuille"
Alain CROS.
-----Message d'origine-----
Bonsoir,
La question est : pourquoi j'obtiens le
message "référence non valide" lorsque je clique sur la
cellule qui contient le lien ?
Je dirais ... parce que le lien n'est pas valide ;o))
Venant de créer un lien hypertexte dans une cellule vide,
j'obtiens ce
qui suit : Feuil2!A1 (sans aucun ')
Teste avec LienFeuil = NomFeuil & "!A1"
@+
FxM
Sub NouvelIndex()
Dim NomFeuil As String
Dim LienFeuil As String
Set NewSheet = Sheets.Add(Type:=xlWorksheet)
For I = 1 To Sheets.Count
NewSheet.Cells(I, 1).Value = Sheets(I).Name
NomFeuil = Sheets(I).Name
LienFeuil = "'" & NomFeuil & "' !A1"
Cells(I, 1).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection,
Address:="", SubAddress:=LienFeuil,
TextToDisplay:=NomFeuil
Next I
End Sub
Les ' de chaque coté servent au cas ou le nom des feuilles comportent des espaces genre "Ma Premiere Feuille"
Alain CROS.
-----Message d'origine----- Bonsoir,
La question est : pourquoi j'obtiens le message "référence non valide" lorsque je clique sur la cellule qui contient le lien ?
Je dirais ... parce que le lien n'est pas valide ;o))
Venant de créer un lien hypertexte dans une cellule vide, j'obtiens ce
qui suit : Feuil2!A1 (sans aucun ')
Teste avec LienFeuil = NomFeuil & "!A1"
@+ FxM
Sub NouvelIndex() Dim NomFeuil As String Dim LienFeuil As String Set NewSheet = Sheets.Add(Type:=xlWorksheet) For I = 1 To Sheets.Count NewSheet.Cells(I, 1).Value = Sheets(I).Name NomFeuil = Sheets(I).Name LienFeuil = "'" & NomFeuil & "' !A1" Cells(I, 1).Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=LienFeuil, TextToDisplay:=NomFeuil Next I End Sub
.
Chris
Merci à tous pour vos bons conseils, comme d'hab !!!
-----Message d'origine----- La question a déjà été posée , mais la réponse ne m'a pas
permis de résoudre le problème. J'ai une macro qui crée la liste des onglets sur une feuille du classeur (90 feuilles dans le classeur) et pour insérer un lien hypertexte sur chaque cellule contenant le nom des onglets.
La voici :
Sub NouvelIndex() Dim NomFeuil As String Dim LienFeuil As String Set NewSheet = Sheets.Add(Type:=xlWorksheet) For I = 1 To Sheets.Count NewSheet.Cells(I, 1).Value = Sheets(I).Name NomFeuil = Sheets(I).Name LienFeuil = "'" & NomFeuil & "' !A1" Cells(I, 1).Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=LienFeuil, TextToDisplay:=NomFeuil Next I End Sub
La question est : pourquoi j'obtiens le message "référence non valide" lorsque je clique sur la cellule qui contient le lien ?
Qu'ai je donc bien pu faire comme erreur ???
Merci d'avance....
.
Merci à tous pour vos bons conseils, comme d'hab !!!
-----Message d'origine-----
La question a déjà été posée , mais la réponse ne m'a
pas
permis de résoudre le problème.
J'ai une macro qui crée la liste des onglets sur une
feuille du classeur (90 feuilles dans le classeur) et
pour insérer un lien hypertexte sur chaque cellule
contenant le nom des onglets.
La voici :
Sub NouvelIndex()
Dim NomFeuil As String
Dim LienFeuil As String
Set NewSheet = Sheets.Add(Type:=xlWorksheet)
For I = 1 To Sheets.Count
NewSheet.Cells(I, 1).Value = Sheets(I).Name
NomFeuil = Sheets(I).Name
LienFeuil = "'" & NomFeuil & "' !A1"
Cells(I, 1).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection,
Address:="", SubAddress:=LienFeuil,
TextToDisplay:=NomFeuil
Next I
End Sub
La question est : pourquoi j'obtiens le
message "référence non valide" lorsque je clique sur la
cellule qui contient le lien ?
Merci à tous pour vos bons conseils, comme d'hab !!!
-----Message d'origine----- La question a déjà été posée , mais la réponse ne m'a pas
permis de résoudre le problème. J'ai une macro qui crée la liste des onglets sur une feuille du classeur (90 feuilles dans le classeur) et pour insérer un lien hypertexte sur chaque cellule contenant le nom des onglets.
La voici :
Sub NouvelIndex() Dim NomFeuil As String Dim LienFeuil As String Set NewSheet = Sheets.Add(Type:=xlWorksheet) For I = 1 To Sheets.Count NewSheet.Cells(I, 1).Value = Sheets(I).Name NomFeuil = Sheets(I).Name LienFeuil = "'" & NomFeuil & "' !A1" Cells(I, 1).Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=LienFeuil, TextToDisplay:=NomFeuil Next I End Sub
La question est : pourquoi j'obtiens le message "référence non valide" lorsque je clique sur la cellule qui contient le lien ?
