Discussion :

[ALM72]

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 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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".

Voila, merci a ceux qui essayeront de m'aider.

[jfontaine]

Bonjour,

A tout hasard, tu ne serais pas en symbole décimal "," ?

Si c'est le cas, convertit la valeur de la cellule lors de la mise à jour de la variable

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DébitB = Cdbl(Sheets("ecr").Range("h" & Rang).Value)

[CodeFacile]

Bonjour,

il y a quelques erreurs sur le nom du fichier , il manque l'extension : "00- Sommaire Général" à transformer en "00- Sommaire Général.xls" ou .xlsm suivant la version .

Ensuite sur le nom de l'onglet , à mon avis il faut respecter la casse ( majuscule ou minuscule ) -> Sheets("ecr") remplacé par Sheets("ECR") ou l'inverse suivant ton fichier.

A mon avis , il faut revoir l'algorithme car la condition est vraie à chaque fois :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
If Not IsNull(DébitB) Or (CréditB) Then

remplacer par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
DébitB = val(Sheets("ECR").Range("h" & Rang))
CréditB = val(Sheets("ECR").Range("I" & Rang))
If DébitB <> 0 And CréditB <> 0 Then

ensuite , je n'ai pas bien compris le traitement : pour chaque ligne non vide de l'onglet "BAL" , on ajoute les valeurs de l'onglet ECR ?
Si il s'agit d'un report sur la première ligne vide , il faudrait revoir la condition ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
If Not IsEmpty(CelluleA) Then   ' remplacer par If  IsEmpty(CelluleA)

Après ces conseils , je te laisse finaliser

[Didier Gonard]

Bonjour,

sinon, dès le départ :

voir : http://club.developpez.com/aidenouve...es/Balises.gif

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Avec cette façon de déclarer tes variables, seules les dernières de chaque ligne sont dans le type écrit, les autres sont en variant, voir ta fenêtre variables locales pour le constater.
voir : http://silkyroad.developpez.com/VBA/LesVariables/#LII

cordialement,

Didier

[ALM72]

Merci à tous pour vos conseils

Je vais revoir ma macro car il y a plusieurs choses qui ne vont pas.
Je voudrait que la boucle ne tourne que pour les cellules non vides, et la, ce n'est pas le cas, elle tourne pour TOUTES les cellules ... bref, une usine à gaz!!!