Bonjour tout le monde,

Lors de la compilation de mon code, il se produit une erreur d’exécution 1004 : erreur définie par l'application ou par l'objet.

Voici le code en question :
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
Sub test()
 
Dim k As Integer
Dim l As Long
Dim u As Integer
 
For k = 0 To number_of_column_in_the_database - 1    'number_of_column_in_the_database est une variable déclarée en début de module valant ici de manière certaine 56
    If tabledate(k) = "good" Then                     'tabledate est un table créé juste au dessus (dans la même procédure, j'ai omis son code pour clarifier) prenant 2 types de valeurs
                                                    'soit le string good soit un nombre (compris entre 0 et 55)
        With ThisWorkbook.Worksheets("BASEBALL")
            For l = 3 To number_of_line_in_the_database    'number_of_line_in_the_database est une variable déclarée en début de module valant ici de manière certaine 656
                .Range(.Cells(l, u + 1)).Value = ThisWorkbook.Sheets("BASE TOTAL").Range(ThisWorkbook.Sheets("BASE TOTAL").Cells(l, k + 1)).Value
            Next l
        End With
        u = u + 1
    Else
    End If
Next k
 
End Sub
Je ne comprends pas pk cette erreur, tout devrait pourtant marcher normalement. Excel me souligne en jaune la phrase suivante :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
  .Range(.Cells(l, u + 1)).Value = ThisWorkbook.Sheets("BASE TOTAL").Range(ThisWorkbook.Sheets("BASE TOTAL").Cells(l, k + 1)).Value
Probablement un pb entre les objets Range et l'utilisation des feuilles et classeur actifs ou non... Mais quelle est la solution ? A voir ^^