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
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
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é