Reference non Valide
LeMort
-
LeMort -
LeMort -
Bonjour,
je suis novis en VBA. Dans Excel 2007, j'ai un fichier de 136
feuilles donc une, la première nommé 'Menu' avec en A 130 nom qui doivent avoir chacun un lien hypertexte vers une feuille du même nom. J'ai écrit le code ci dessous et après l'exécution ok du code, si je cliques sur un nom, j'ai : 'Référence non valide' dans une fenêtre de message
Merci de m'aidé,
LeMort
le code:
fl = "MenuRappGrand totalviergeAide" ' Nom des autres feuilles a sauter
For Boucle = 1 To w
' Verifie page valide
If Worksheets(Boucle).Visible = True And 0 = InStr(1, fl, Worksheets(Boucle).Name) Then
k = k + 1 ' incremente la ligne des noms dans Feuille Menu
L = Mid(Str(k), 2) 'Change chaine
nom = Worksheets(Boucle).Name
Worksheets("Menu").Range("A" & L).Select
Selection.Hyperlinks(1).SubAddress = nom & "A2"
End If
Next Boucle
Les noms son des noms de personne avec '_' a la place des espaces.
je suis novis en VBA. Dans Excel 2007, j'ai un fichier de 136
feuilles donc une, la première nommé 'Menu' avec en A 130 nom qui doivent avoir chacun un lien hypertexte vers une feuille du même nom. J'ai écrit le code ci dessous et après l'exécution ok du code, si je cliques sur un nom, j'ai : 'Référence non valide' dans une fenêtre de message
Merci de m'aidé,
LeMort
le code:
fl = "MenuRappGrand totalviergeAide" ' Nom des autres feuilles a sauter
For Boucle = 1 To w
' Verifie page valide
If Worksheets(Boucle).Visible = True And 0 = InStr(1, fl, Worksheets(Boucle).Name) Then
k = k + 1 ' incremente la ligne des noms dans Feuille Menu
L = Mid(Str(k), 2) 'Change chaine
nom = Worksheets(Boucle).Name
Worksheets("Menu").Range("A" & L).Select
Selection.Hyperlinks(1).SubAddress = nom & "A2"
End If
Next Boucle
Les noms son des noms de personne avec '_' a la place des espaces.
4 réponses
-
Bonjour,
' Verifie page valide
If Worksheets(Boucle).Visible = True And 0 = InStr(1, fl, Worksheets(Boucle).Name) Then
A remplacer par
If Worksheets(boucle).Visible = True And InStr(1, Worksheets(boucle).Name, fl) = 0 Then
pas utile L = Mid(Str(k), 2) 'Change chaine a enlever
remplacez L par k
Worksheets("Menu").Range("A" & k).Select
a voir
Bonne suite
