Discussion :

[forum2015]

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 ^^

[mercatog]

Code :

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

.Cells(l, u + 1).Value = ThisWorkbook.Worksheets("BASE TOTAL").Cells(l, k + 1).Value

[forum2015]

Parfait ! Mercatog, ta correction marche niquel ! Merci bc, je ne pensais pas qu'une redondance de précision sur la feuille active pouvait poser problème (à moins que l'erreur ne soit lié à l'utilisation d'un Thiw WorkBook.WorkSheets sur un mauvais objet, en l'occurance Range...) !

[mercatog]

Non, fais ce test

Écris en A1 de Feuil1 toto et teste les codes suivants:

Code :

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

msgbox worksheets("Feuil1").range(worksheets("Feuil1").cells(1,1)).value

Code :

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

msgbox worksheets("Feuil1").cells(1,1).value

Code :

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

msgbox worksheets("Feuil1").range("A1").value

En 1 ton erreur

[forum2015]

Effectivement, merci pour ces précisions