Discussion :

[Ozer45]

Bonjour à tous,

J'ai un fichier excel contenant plus de 65000 lignes.

Dans la colonne A de mon fichier on retrouve
en ligne 1 (A1): le budget
en ligne 2 (A2) : la depense
en ligne 3 (A3): l'ecart (qui est la difference entre le budget et la depense)

Dans la colonne B on retrouve

en ligne1 (B1): le nom d'une piece (en reference au budget de la piece)
en ligne2 (B2): le nom d'une piece (en reference à la depense en colonne A)
en ligne3 (B3): erreur ou ok en reference à l'ecart de la ligne A3

Dans les colonnes C à U
les valeurs du buget, de la depense et de l'ecart

ces trois lignes sont repetés ensuite pour chaque type de piece (piece 1 => 3 lignes, piece2 => 3 lignes ainsi de suite jusqu'à la derniere piece

Je souhaite ecrire une macro qui detecte lorque la ligne 3 l'ecart est negative. Et si l'ecart est negatif alors il calcule la somme de tous les ecarts negatifs pour chaque colonne.

Cette somme de tous les ecarts sera mis en derniere ligne du tableau.

Je bloque toujours sur des choses simples (enfin si ca l'est).

Merci pour votre aide.

[mapeh]

Bonjour,

Si j'ai bien tout compris....

Pour info, 0.6 seconde pour 49152 Lignes * 19 colonnes

Le résultat est inscrit par colonne dans la 1ère cellule vide

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
Sub ecart()
Dim Derlig As Long, I As Long
Dim J As Byte
Dim Total As Object
Dim Tblo
Set Total = CreateObject("Scripting.Dictionary")
Derlig = Cells(Rows.Count, 1).End(xlUp).Row
For J = 3 To 21
    Tblo = Range(Cells(3, J), Cells(Derlig, J)).Value
    For I = LBound(Tblo) To UBound(Tblo) Step 3
        If Tblo(I, 1) < 0 Then Total(0) = Total(0) + Tblo(I, 1)
    Next I
    Cells(Derlig + 1, J).Value = Application.Transpose(Total.Items)
    Total.RemoveAll
Next J
End Sub

Bonne soirée, et Bon W-E

[Ozer45]

Salut,

Merci pour ton aide.

cependant quand je lance ta macro, j'ai une erreur d'execution: erreur de compatibilité sur la ligne

Code :

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

Cells(Derlig + 1, J).Value = Application.Transpose(Total.Items)

C'est du à quoi?

Aussi tu peux m'expliquer la ligne

Code :

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

Set Total = CreateObject("Scripting.Dictionary")

[mapeh]

Bonsoir,

Effectivement, si tu n'as pas d'écart négatif dans une colonne, tu auras ce message d'erreur....

Modifies le code ainsi :

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
Sub ecart()
Dim Derlig As Long, I As Long
Dim J As Byte
Dim Total As Object
Dim Tblo
Set Total = CreateObject("Scripting.Dictionary")
Derlig = Cells(Rows.Count, 1).End(xlUp).Row
For J = 3 To 21
    Tblo = Range(Cells(3, J), Cells(Derlig, J)).Value
    For I = LBound(Tblo) To UBound(Tblo) Step 3
        If Tblo(I, 1) < 0 Then Total(0) = Total(0) + Tblo(I, 1)
    Next I
    If Total.Count > 0 Then
        Cells(Derlig + 1, J).Value = Application.Transpose(Total.Items)
        Total.RemoveAll
    End If
Next J
End Sub

Pour ta 2ème question, j'utilise un objet "Dictionary", qui est beaucoup plus rapide qu'un objet "Collection", et qui est un tableau à 1 dimension.
On peut obtenir une valeur par une clé.
Cet objet est très utile notamment pour générer des listes sans doublons.

Bon courage

[Ozer45]

Salut Mapeh,

Merci pour ton aide!

J'ai juste enlever le step 3 pour eviter qu'il saute à chaque fois trois colonnes.

Un grand merci!!!!!