Problème "l'indice n'appartient pas à la sélection" dans un tableau
Bonjour à tous,
Je me met à la programmation VBA, mais j'ai quelques soucis avec les tableaux, après avoir fait pas mal de recherche, je ne trouve pas la cause du problème :(, du coup je me tourne vers vous :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
| Private Sub UserForm_Activate()
Dim tab_cat(40, 2) As Variant
'Création du tableau :
'première colonne: numéro de la catégorie;
'deuxième : numéro de la colonne gauche;
'troisième : numéro de la colonne droite ;
Dim tab_ligne As Integer 'numéro de la ligne du tableau
Dim DerniereColonne As Integer 'Largeur max du tableau
DerniereColonne = ActiveSheet.UsedRange.Columns.Count
tab_ligne = -1
For i = 12 To DerniereColonne
If Cells(2, i) <> " " Then
tab_ligne = tab_ligne + 1
tab_cat(tab_ligne, 0) = Cells(2, i).Value <== C'est cette ligne qui bug :roll:
tab_cat(tab_ligne, 1) = i
tab_cat(tab_ligne, 2) = i
Else
tab_cat(tab_ligne, 3) = i
End If
Next
End Sub |
J'obtient l'erreur : l'indice n'appartient pas à la sélection
J'imagine que c'est une erreur toute simple :s
