Bonjour à tous. j'ai rédigé un petit bout de code. Mais lorsque je l'exécute, j'obtient une erreur à la ligne en rouge: "erreur1004: erreur définie par l'application ou par l'objet". SVP aidez moi.
Code:
Sub traitement()
Dim i, n, j 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 j = 2 To 10000 'Enregistrement des messages dans un tableau dynamique
ReDim Preserve tab1(n)
ReDim Preserve tab2(n)
If Cells(j, 1) <> "" And Cells(j, 1) <> "(vide)" And Cells(j, 1) <> "Total général" Then
tab1(n) = Cells(j, 1) 'remplissage des tableaux
tab2(n) = j
n = n + 1
End If
Next
For j = 0 To UBound(tab1())
If tab1(j) Like ("*2L*") Or tab1(j) Like ("*3L*") Or tab1(j) Like ("*4L*") Or tab1(j) Like ("*5L*") Or tab1(j) Like ("*6L*") Or tab1(j) Like ("*7L*") Then
Cells(tab2(j), 3) = "0.5"
Else
Cells(tab2(j), 3) = "1"
End If
Next
End Sub
Code:
Sub traitement()
Dim i, n, j 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 j = 2 To 10000 'Enregistrement des messages dans un tableau dynamique
ReDim Preserve tab1(n)
ReDim Preserve tab2(n)
If Cells(j, 1) <> "" And Cells(j, 1) <> "(vide)" And Cells(j, 1) <> "Total général" Then
tab1(n) = Cells(j, 1) 'remplissage des tableaux
tab2(n) = j
n = n + 1
End If
Next
For j = 0 To UBound(tab1())
If tab1(j) Like ("*2L*") Or tab1(j) Like ("*3L*") Or tab1(j) Like ("*4L*") Or tab1(j) Like ("*5L*") Or tab1(j) Like ("*6L*") Or tab1(j) Like ("*7L*") Then
Cells(tab2(j), 3) = "0.5"
Else
Cells(tab2(j), 3) = "1"
End If
Next
End Sub