Discussion :

[frisou65]

Bonjour,

Voici mon programme:

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
    nomfeuille = "COMPONENTS_SES"
        
    For Each mycell In ThisWorkbook.Worksheets("tender SES").Range("AL:AL").Cells
    
        On Error Resume Next ' skip the cells with no links
        linktext = mycell.Hyperlinks.Item(1).SubAddress
        
        On Error GoTo 0

        If linktext <> "" Then
            If Left(linktext, Len(nomfeuille + "!")) = nomfeuille + "!" Then
               ' all is Ok
            Else
                ' need to add the nomfeuille to the link
                
                newlinktext = nomfeuille + "!" + linktext
                mycell.Hyperlinks.Item(1).SubAddress = newlinktext
                
            End If
        End If
   Next mycell

j'ai une erreur 9: "l'indice n'appartient pas a la sélection" pr la ligne de prog en rouge. Je ne comprends pas. Comment je peux éviter cette erreur?
Merci d'avance pr vos réponses

[frisou65]

j'ai utilisé le mème programme pr faire la mème démarche sur un autre onglet et ça marche très bien.
Pourquoi là ça bugue?
est ce que pr la ligne en rouge il y a une autre formulation que je peux utiliser qui n'utilise pas

Code :

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

Item(1)

car apparemment il bugue sur le (1)...
au secours