Vba excel Erreur 13 : Incompatibilité de type
Fermé
Usgpa
Messages postés
14
Date d'inscription
vendredi 8 janvier 2010
Statut
Membre
Dernière intervention
25 mars 2010
-
25 mars 2010 à 17:33
Usgpa Messages postés 14 Date d'inscription vendredi 8 janvier 2010 Statut Membre Dernière intervention 25 mars 2010 - 25 mars 2010 à 17:59
Usgpa Messages postés 14 Date d'inscription vendredi 8 janvier 2010 Statut Membre Dernière intervention 25 mars 2010 - 25 mars 2010 à 17:59
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
- Erreur 0x80070643 - Accueil - Windows
- Word et excel gratuit - Guide
- Si et excel - Guide
- Test redmi note 13 5g - Accueil - Téléphones
1 réponse
Usgpa
Messages postés
14
Date d'inscription
vendredi 8 janvier 2010
Statut
Membre
Dernière intervention
25 mars 2010
1
25 mars 2010 à 17:59
25 mars 2010 à 17:59
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.