Discussion :

[HERBINE]

bonjour
j'ai un souci pour trouver le chiffre d'affaires saisonnalisé en vba, sous excel on applique la formule suivante :
#DIV/0!
#DIV/0!
#DIV/0!
#DIV/0!
ensuite on sélectionne les cellules et on fait une recopie vers le bas: ça marche les résultats sont justes
par contre en langage vba j'ai la formule suivante :
' calcul du chiffre d'affaires saisonalisés

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
' calcul du chiffre d'affaires saisonalisés
For i = 2 To DerLig
   Select Case (i - 1) Mod 4
        Case 1
            Cells(i, 8).Value = CInt(Cells(i, 2).Value) / Trim1
        Case 2
            Cells(i, 8).Value = CInt(Cells(i, 2).Value) / Trim2
        Case 3
            Cells(i, 8).Value = CInt(Cells(i, 2).Value) / Trim3
        Case 0
            Cells(i, 8).Value = CInt(Cells(i, 2).Value) / Trim4
    End Select
Next i

on trouve pas le meme résultat , je ne trouve pas mon erreur:
merci pour votre aide
bien cordialement
herbin

[gFZT82]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
'3eme boucle de traitement
For i = 4 To DerLig
    Cells(i, 6).Value = Range("j4").Value * Cells(i, 5).Value + Range("k4").Value
'****************************************************************************************************
    If Cells(i, 4).Value <> 0 Then
        Cells(i, 7).Value = Cells(i, 2).Value / Cells(i, 4).Value
'****************************************************************************************************
    End If

Cordialement.

[HERBINE]

j'ai essayé de l'appliquer, ça ne marche tjs pas

[ZebreLoup]

En fait tu divises par Trim1 au lieu de 4 * Trim1 / somTrim

[gFZT82]

Ben alors !
Chez moi ça marche. J'obtiens bien le même chiffre d'affaires saisonalisés dans les 2 feuilles.
Le problème est sûrement géographique.

Cordialement.

[HERBINE]

oui effectivement ça marche
merci beaucoup
cordialement