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