Discussion :

[EddyBertey]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[halaster08]

Bonjour,

Quels sont les valeurs de tes variables au moment de l'erreur ?

Ton tableau est limité à 40 lignes:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim tab_cat(40, 2) As Variant

Il est possible que tu dépasse cette limite

[EddyBertey]

Alors,

En effet j'ai mis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim tab_cat(4000, 2) As Variant

Pour tester et ça marche... je ne comprend pas du tout pourquoi

[halaster08]

Pour tester et ça marche... je ne comprend pas du tout pourquoi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For i = 12 To DerniereColonne

suivant la valeur de dernièrecolonne, tu peux avoir plus de 40 itération dans ta boucle et donc tab_ligne qui dépasse la valeur 40 ce qui lui est interdit

[Igloobel]

...

J'obtient l'erreur : l'indice n'appartient pas à la sélection

J'imagine que c'est une erreur toute simple :s

tes valeurs de la ligne 2 de tableau dépassait les 40