Tableau

Le
Brat'ac
Bonjour,
J'essaie de faire un tableau visible public comme ceci

En haut du module
Public Tab_Ligne()

La fonction pour dimensionner le tableau

Sub Dimension_Tab_Ligne(Col As Long)
i = Cells(Col, Columns.count).End(xlToLeft).Column
ReDim Tab_Ligne(2 To i)
End Sub


Sub Essai()
Dim Cpt as long
Dimension_Tab_Ligne (5)
'MsgBox UBound(Tab_Ligne) 'Juste pour vérifier si le tableau est bien
dimensioné
Set F = Sheets("Arborescence")
For Cpt = 1 To UBound(Tab_Ligne)
Tab_Ligne(Cpt) = F.Range("A" & Cpt).Value
Next Cpt
End Sub


J'ai l'erreur "L'indice n'appartient pas Í  la sélection"
Et moi je fais quoi comme erreur ?
Merci
  • Partager ce contenu :
Vos réponses
Trier par : date / pertinence
MichD
Le #26566016
Le 22/01/21 Í  11:43, Brat'ac a écrit :
Dimension_Tab_Ligne (5)


Bonjour,
Tu essaies d'ajouter un élément Í  un tableau en dehors des bornes que tu
as définies au tableau.
Exemple :
Sub Test()
Dimension_Tab_Ligne 1
End Sub
Le tableau Tab_ligne n'est pas dimensionné pour recevoir
cette valeur, elle est en dehors Tab_Ligne(2 To i)
Comme tu as plus d'un tableau et que je n'ai pas vu l'application,
vérifie les bornes de tes tableaux et ce que tu veux insérer dans ces
tableaux.
Sub Dimension_Tab_Ligne(Col As Long)
i = Cells(Col, Columns.Count).End(xlToLeft).Column
ReDim Tab_Ligne(2 To i)
End Sub
MichD
Brat'ac
Le #26566017
MichD a émis l'idée suivante :
Le 22/01/21 Í  11:43, Brat'ac a écrit :
Dimension_Tab_Ligne (5)

Bonjour,
Tu essaies d'ajouter un élément Í  un tableau en dehors des bornes que tu as
définies au tableau.
Exemple :
Sub Test()
Dimension_Tab_Ligne 1
End Sub
Le tableau Tab_ligne n'est pas dimensionné pour recevoir
cette valeur, elle est en dehors Tab_Ligne(2 To i)
Comme tu as plus d'un tableau et que je n'ai pas vu l'application, vérifie
les bornes de tes tableaux et ce que tu veux insérer dans ces tableaux.
Sub Dimension_Tab_Ligne(Col As Long)
i = Cells(Col, Columns.Count).End(xlToLeft).Column
ReDim Tab_Ligne(2 To i)
End Sub
MichD

Merci, effectivement c'est bien mon tableau qui est mal dimensionné
Poster une réponse
Anonyme