Discussion :

[jbal57]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[unparia]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Hyperlinks(n).Range.Address

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

[Menhir]

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

Quelle est la particularité de la ligne 111 ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[Menhir]

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é.

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.