Vba excel Erreur 13 : Incompatibilité de type
Usgpa
Messages postés
14
Statut
Membre
-
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)
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)
A voir également:
- Vba excel Erreur 13 : Incompatibilité de type
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Fifa 13 - Télécharger - Jeux vidéo
- Si ou excel - Guide
- Excel compter cellule couleur sans vba - Guide
1 réponse
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.
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.
