Vba excel Erreur 13 : Incompatibilité de type Fermé

Question

Bonjour

VBA me signale une erreur d'incompatibilité de type... Les pages sont les mêmes mais sur des classeurs différents. Cette fonction en l'état a déjà fonctionné... quelle peut en être la raison ?

Tableau(i, j) = Sheets("Statistiques Clients").Cells(i, j) + Workbooks("Classeur Commun X.xls").Sheets("Statistiques Clients").Cells(i, j)

Configuration: Windows XP / Internet Explorer 6.0

Usgpa · Answer

Je vous communique la totalité de la procédure : 

Dim Tableau() As Integer
Dim x As Integer, y As Integer
Dim i As Integer, j As Integer
 
    x = 800
    y = 8
 
    ReDim Tableau(2 To x, 5 To y)
 
    For i = 2 To x
    For j = 5 To y
    Tableau(i, j) = Sheets("Statistiques Clients").Cells(i, j) + Workbooks("Classeur Commun X.xls").Sheets("Statistiques Clients").Cells(i, j)
    Next j
    Next i
 
    With Workbooks("Classeur Commun X.xls").Sheets("Statistiques Clients")
.Range("E2:H800") = Tableau
    End With
Range("E2:H800").ClearContents

Merci d'avance.

Vba excel Erreur 13 : Incompatibilité de type

1 réponse

Discussions similaires