[VBA-E]Calcul d'une cellule

Version imprimable

12/07/2007, 18h52
Yolak

[VBA-E]Calcul d'une cellule

Bonjour à tous!

Je me trouve dans un gros problème de reflexion... J'ai passé 4h de temps sur ce problème et sans résultat, c'est pourquoi je viens vous demander de l'aide!

Voici le problème:
J'ai un fichier excel de ce type :

http://img413.imageshack.us/img413/2...nstitreli4.png

Voici ce que je veux faire :
Dans la cellule E2:
Faire un calcul en vba qui est le suivant : colonne C * colonne D sur toutes les lignes de la date 12/07/07

Et faire ainsi pour toutes les dates sachant que le nombre de ligne par date est variable.

Si vous voulez plus de précision, n'hésitez pas a me demander!!

En tout cas, merci d'avance!

J'espère que j'ai bien compris ce que tu voulais

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
Dim i As Long
Dim l As Long
Dim j As Long
Dim str As String
 
i = 2
l = 2
 
Do While Not Range("B" & i).Value = ""
 
    If Range("A" & i).Value <> vide Then
 
        If Range("A" & i).Value <> str Then
            'Boucle sur la colonne E
            For j = l To i - 1
 
                Range("E" & j).FormulaLocal = "=somme(C" & l & ":C" & i - 1 & ") * somme(D" & l & ":D" & i - 1 & ")"
 
            Next j
 
            l = i
            str = Range("A" & i).Value
 
 
        End If
 
    End If
 
    i = i + 1
 
Loop
 
'insere les formules sur la dernière série
For j = l To i - 1
 
    Range("E" & j).FormulaLocal = "=somme(C" & l & ":C" & i - 1 & ") * somme(D" & l & ":D" & i - 1 & ")"
 
Next j

12/07/2007, 22h34
Yolak

Merci beaucoup pour ton aide.
Ton code est performant mais n'est pas utilisable pour mon programme.

En fait la formule a mettre dans la colonne E, c'est :

=SOMME(C3*D3+C4*D4+C5*D5) /!\ Ceci est valable pour l'exemple que j'ai donné dans le premier post!
Ca commence a C3 parceque les deux premières lignes sont occuppées

En fait, a chaque fois que j'ajoute une ligne, je lance la macro.Il faudrait que le calcul se fasse a chaque fois que j'execute la macro.

Pour être le plus clair possible, voici réélement a quoi ressemble mon tableau :

(Sauf que les valeurs changent, là c'est juste des essais)

http://img101.imageshack.us/img101/8...nstitredu8.png

La colonne H est la colonne qui devra recevoir le calcul.
Le Calcul (pour le 12/07/07) est le suivant:
=SOMME(G3*E3+G4*E4+G5*E5)

Ce calcul doit pouvoir s'adapter si je rajoute une ligne le 12/07/07
(En considèrant la dernière ligne (13/07/07) inexistante ^^)

Et lorsque j'ajoute une ligne le 13/07/07, le calcul repart de cette ligne.

Je sais c'est à s'arracher les cheveux, d'ailleurs, moi j'en ai plus !!!

Merci beaucoup en tout cas!
12/07/2007, 23h32
Yolak

Heu bon ben j'ai réussi (je crois) !!!

En fait, j'ai calculé ligne par ligne (Ex*Gx) et j'ai stocké ce produit dans une colonne, j'ai ensuite fait une bête somme de tout mes produits!
Comment n'y avais-je pas pensé plus tôt?

En tout cas, merci beaucoup jfontaine, ton code m'a vraiment beaucoup aidé!!

Bon.... J'ai crié victoire trop tôt lol!!!

En fait, le calcul s'effectue normalement sauf que lorsque la date change, le calcul continue

Voici mon code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
            Dim i As Long
            Dim l As Long
            Dim j As Long
            Dim str As String
 
            i = 3
            l = 3
 
            Do While Not Range("B" & i).Value = ""
                If Range("A" & i).Value <> "" Then
                    If Range("A" & i).Value <> DateDuJour Then
                        'Boucle sur la colonne E
                        For j = l To i - 1
                            Range("H" & j).FormulaLocal = "=somme(Q" & l & ":Q" & i - 1 & ") "
                        Next j
                        l = i
 
                    End If
                End If
                i = i + 1
            Loop
            'insere les formules sur la dernière série
            For j = l To i - 1
                Range("H" & j).FormulaLocal = "=somme(Q" & l & ":Q" & i - 1 & ")"
            Next j

DateDuJour c'est simplement la Date (DateDuJour=Date)

13/07/2007, 09h47
jfontaine

Dans le code tu utilises datedujour. cette variable n'est pas instantié et ne change pas de valeur.
A quoi correspond datedujour?
15/07/2007, 07h09
alsimbad
et si au lieu du VBA tu utilisais une formule?
en H2, tu pose cette formule, et tu la tire vers le bas
Code:

1 2 =SOMMEPROD(($A$2:$A$1000=A2)*($E$2:$E$1000)*($G$2:$G$1000))
cela t'impose d'écrire la date dans toutes les cases de la colonne A, mais fonctionne quelque soit le nombre de ligne, et le calcul se fait en permanence