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