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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichD
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
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
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
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é
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é
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é
