Tableau - Erreur: L'indice n'appartient pas à la selection

Bonjour,

Comme dans le titre, il y a ce message d'erreur qui apparaît sur la ligne de code indiquée et je ne vois pas du tout d'où viens le problème, pourriez-vous m'éclairer ?

Sub Bouton_Lancement_Click()

Application.ScreenUpdating = False

    Barre_de_Progress_MAJ_totale.Height = 125

    'variable contrôles et pour barre d'avancement
    Dim Ma_Forme As Shape
    Dim Presence_Image As Boolean
    Dim Num_feuille As Integer
    Dim Num_total_feuille As Integer
    Dim progression As Double

    'variable tableau tempo A et B
    Dim TabTemp_A As Variant, TabTemp_B As Variant
    Dim Arow As Long, Brow As Long
    Dim Acol As Long, Bcol As Long
    Dim c As Variant, d As Variant

    'boucle de vérif des feuilles + init des variables pour la barre de progression
    For i = 1 To Worksheets.Count()
    Num_total_feuille = Worksheets.Count()
    Num_feuille = i

    'initialisation de tab A de dimension 1  (une seule colonne)
    TabTemp_A = Worksheets("Liste Interfaces").Range("$I3:$I1000" & Range("I" & Rows.Count).End(xlUp).Row).Value

    'contrôle de nom
        If Worksheets(i).Name <> "Liste Interfaces" Then
    'contrôle d'image
            For Each Ma_Forme In Worksheets(i).Shapes
                If Ma_Forme.Type = msoPicture Then Presence_Image = True
                If Presence_Image = True Then
                Exit For
                End If
            Next Ma_Forme

        If Presence_Image = True Then
    'initialisation de tab B
            TabTemp_B = Worksheets(i).Range("A1:AO200").Value
                For Brow = 1 To 200
                    For Bcol = 1 To 41
                        d = TabTemp_B(Brow, Bcol)
                        If IsEmpty(d) = False Then
                            For Arow = 1 To 1000
                            c = TabTemp_A(Arow, 9)
                                If c <> "" And d <> "" And c = d Then
                                    ActiveSheet.Hyperlinks.Add Anchor:=d, Address:="", SubAddress:="'Liste Interfaces'!" & c.Address
                                    ActiveSheet.Hyperlinks.Add Anchor:=c, Address:="", SubAddress:="'" & Worksheets(i).Name & "'!" & d.Address
                                End If
                            Next Arow
                        End If
                    Next Bcol
                Next Brow
        End If
        End If

    'transmission de données de tab B à la feuille contrôlée
        Worksheets(i).Range("A1:AO200").Value = TabTemp_B
    'vider le contenu du tab B pour accueillir les nouvelles données de la prochaine feuille
        Erase TabTemp_B

    'mise à jour barre de progression
        progression = WorksheetFunction.RoundUp((Num_feuille / Num_total_feuille) * 100, 0)
        Image_barre_progression.Width = progression * 2
        Label_barre.Caption = progression & "%"
        DoEvents

    Next

    'transmission de données de tab A à Liste interface
    Worksheets("Liste Interface").Range("$I3:$I300" & Range("I" & Rows.Count).End(xlUp).Row).Value = TabTemp_A

    'affichage de l'indication que la mise à jour a été effectué
    Application.ScreenUpdating = True
    Barre_de_Progress_MAJ_totale.Height = 153
    Exit Sub

End Sub

Bonjour

Dans la défintion de TabTemp_A, je vois un souci. Essaie ceci :

TabTemp_A = Worksheets("Liste Interfaces").Range("$I3:$I" & Worksheets("Liste Interfaces").Range("I" & Rows.Count).End(xlUp).Row)

Crdlt

Hello,

Merci pour la réponse. Alors ça ne change rien à l'erreur qui s'affiche toujours pour la même chose.

Re

Possible de voir le fichier pour analyser ?

Crdlt

Bonjour,

TabTemp_A() est défini pour une seule colonne donc tu ne peux pas écrire :

c = TabTemp_A(Arow, 9)

C'est forcément :

c = TabTemp_A(Arow, 1)

A+

Bonjour,

galopin01 a écrit :

Bonjour,

TabTemp_A() est défini pour une seule colonne donc tu ne peux pas écrire :

c = TabTemp_A(Arow, 9)

C'est forcément :

c = TabTemp_A(Arow, 1)

A+

Effectivement, c'était bien cela le problème et c'est résolu. Merci !

Par contre maintenant j'ai une autre question concernant ce code. Est-ce qu'un modérateur pourrait m'indiquer si je dois créer un autre sujet ou est-ce je peux continuer sur celui ci.

Bonjour,

Il est préférable d'ouvrir un autre sujet si ça concerne un domaine particulier (Hyperlinks/Shapes) si ça concerne le VBA en général tu peux continuer.

A+