Bonjour à tous. Voici un bout de programme que j'ai écris pour enregistrer des données dans 2 tableaux différents. Au moment d'exécuter, une erreur me dit que k'indice n'appartient pas à la sélection sur la ligne 8 (tab1(n)= Cells(i,1)). Je ne comprends pas. Est ce vous pourriez m'aider SVP.
Sub categories()
Dim i As Integer
Dim tab1() As String 'tableau dynamique récapitulatif des messages
Dim tab2() As Integer 'tableau de stockage des numéros de lignes
n = 0 'taille du tableau dynamique
For i = 2 To 10000 'Enregistrement des messages dans un tableau dynamique
If Cells(i, 1) <> "" And Cells(i, 1) <> "(vide)" And Cells(i, 1) <> "Total général" Then
tab1(n) = Cells(i, 1)
tab2(n) = i
n = n + 1
End If
Next
Sub categories()
Dim i As Integer
Dim tab1() As String 'tableau dynamique récapitulatif des messages
Dim tab2() As Integer 'tableau de stockage des numéros de lignes
n = 0 'taille du tableau dynamique
For i = 2 To 10000 'Enregistrement des messages dans un tableau dynamique
If Cells(i, 1) <> "" And Cells(i, 1) <> "(vide)" And Cells(i, 1) <> "Total général" Then
tab1(n) = Cells(i, 1)
tab2(n) = i
n = n + 1
End If
Next