Erreur N°9 vba excel

Version imprimable

Bonjour à tous,

Voici mon petit problème que je rencontre dans ma macro, il me met "Erreur N°9 , l'indice n'appartient pas à la selection"
La macro doit simplement prendre le texte mit en dur dans la celleule H2 et y rajouter le texte trouvé en colonne H pour y faire un lien hypetext, ça fonctionne jusqu'a la ligne 111 et d'un coup j'ai ce message, je suis un peu pommé :/

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Public Sub MAJ()
DossierDesFichiers = "H2"
 
On Error GoTo FinErreur
 
For n = 1 To ActiveSheet.Hyperlinks.Count
    Range(ActiveSheet.Hyperlinks(n).Range.Address).Activate
    If ActiveCell.Column = 1 Then ' Test de colonne A sinon on ne fait rien
        For i = 1 To 7  ' pour ce placer sur colonne H
            ActiveCell.Next.Select
        Next
 
 
        If ActiveCell.Value <> "" Then
        ActiveSheet.Hyperlinks(n).Address = ActiveSheet.Range(DossierDesFichiers) & ActiveCell.Value
        End If
    End If ' Fin du If ActiveCell.Column = 1 Then
Next n
 
GoTo Fin
 
FinErreur:
   MsgBox "Erreur N°" & Err & Chr(10) & Error & Chr(10) & "Veuillez contacter le créateur de cette macro"
   MsgBox "Merci de fermer le fichier sans enregistrer"
Exit Sub
 
Fin:
End Sub

16/11/2017, 15h51
unparia

Bonjour
Je veux croire que tu as eu le réflexe élémentaire de vérifier ce que contient

Code:

ActiveSheet.Hyperlinks(n).Range.Address

lors de l'apparition du message d'erreur.
Que contient-il ?

Citation:

Envoyé par jbal57

ça fonctionne jusqu'a la ligne 111 et d'un coup j'ai ce message

Quelle est la particularité de la ligne 111 ?

Citation:

Code:

On Error GoTo FinErreur

Ce n'est vraiment pas une bonne idée d'avoir mis ça en phase de débugage.
Ca masque les problèmes et ça empêche de connaitre leur source.

Essaye ce code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Public Sub MAJ() Dim Hyp As Hyperlink Dim RCur As Range For Each Hyp In ActiveSheet.Hyperlinks Set RCur = Hyp.Range If RCur.Column = 1 Then Set RCur = Cells(RCur.Row, 8) If RCur.Value <> "" Then Hyp.Address = ActiveSheet.Range("H2") & RCur.Value End If Next Hyp End Sub

17/11/2017, 08h49
jbal57

@Unparia, oui effectivement j'ai eu le bon réflexe d'afficher dans un msgbox ce que contient ActiveSheet.Hyperlinks(n).Range.Address :)
et ça affiche bien le lien hypertext que je veux mettre !

@Menhier, la ligne 111 est identique en tout point à ceux précédentes c'est pour ça que je ne comprends pas, j'ai essayé avec ton code mais ça ne fonctionne pas non plus, s'il ne détecte pas de lien hypertext déjà présent ou un lien hypertext identique au précèdent (car à la base en colonne 1 il n'y a aucun lien hypertext le but est de les construire et pour tester j'ai mis le même sur chaque ligne (plus de 600, donc pas envie d'en mettre un différent manuellement sinon la macro n'aurai plus d'intérêt :) )) la macro recommence au début à chaque fois
17/11/2017, 09h05
Menhir

Citation:

Envoyé par jbal57

la ligne 111 est identique en tout point à ceux précédentes

A moins qu'il y ait une limite à 110 des liens hypertextes pour un traitement VBA (ce qui me parait improbable vu que j'ai des cas de traitement de plusieurs centaines de liens), le lien de la ligne 111 doit avoir une particularité.

Citation:

c'est pour ça que je ne comprends pas, j'ai essayé avec ton code mais ça ne fonctionne pas non plus

Excuse-moi mais "ça ne fonctionne pas", c'est un peu léger comme description pour comprendre un problème.