Vba excel Erreur 13 : Incompatibilité de type

Usgpa Messages postés 14 Statut Membre -  
Usgpa Messages postés 14 Statut Membre -
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)

1 réponse

  1.
    Usgpa Messages postés 14 Statut Membre 1
     
    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.
    1