Problème Erreur d'exécution '13 : Incompatibilité de type

  • Initiateur de la discussion Initiateur de la discussion ALM
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

ALM

XLDnaute Nouveau
bonjour a ceux qui voudront bien m'aider.

Voila j'ai un niveau moyen - en VBA, et j'essaye de coder une macro, mais j'ai cette erreur Incompatibilité de type qui me fait ... j'sais bien quoi, et que je n'arrive pas à résoudre.

Je vous joint ma macro :

Sub report()

Dim Rang, RangA As Long
Dim Cellule, CelluleA As Range
Dim DébitB, DébitA, CréditB, CréditA As Double

For Each Cellule In Sheets("ECR").Range("e13:e999")
Rang = Cellule.Row
DébitB = Sheets("ecr").Range("h" & Rang)
CréditB = Sheets("ecr").Range("I" & Rang)
If Not IsNull(DébitB) Or (CréditB) Then
For Each CelluleA In Workbooks("00- Sommaire Général").Sheets("BAL").Range("b14:b1000")
If Not IsEmpty(CelluleA) Then
RangA = CelluleA.Row
DébitA = Workbooks("00- Sommaire Général").Sheets("BAL").Range("I" & RangA) + DébitB
Workbooks("00- Sommaire Général").Sheets("BAL").Range("I" & RangA) = DébitA
CréditA = Workbooks("00- Sommaire Général").Sheets("BAL").Range("j" & RangA) + CréditB
Workbooks("00- Sommaire Général").Sheets("BAL").Range("j" & RangA) = CréditA
End If
Next CelluleA
End If
Next Cellule
End Sub


Le but de cette macro est de reporter les valeurs d'une feuille "ECR", dans la feuille "BAL" du workbook "00- Sommaire général".

Je travaille sur excel 2010.

Voila, merci a ceux qui essayeront de m'aider.
 
Re : Problème Erreur d'exécution '13 : Incompatibilité de type

Bonjour ALM,

Bon une première piste car sans un jeu de données de test difficile de valider , donc

lors de la déclaration des variables il faut écrire :

Dim Rang As Long, RangA As Long

et non pas

Dim Rang , RangA As Long

car le type de Rang est alors variant et pas long

Bien sur la meme chose pour toutes les déclarations a remettre en ordre
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
461
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
479
Réponses
1
Affichages
348
Réponses
2
Affichages
153
Retour