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.
A voir également:
- Excel la référence n'est pas valide
- Ethernet n'a pas de configuration ip valide - Guide
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Comment calculer la moyenne sur excel - Guide
- Aller à la ligne excel - Guide
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
' 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
