Discussion :

[Goutlett]

Bonjour, je suis novice en VBA et on m'a demandé de coder une macro qui à mon gout est vraiment trop compliquée. Je m'explique :

J'ai un tableau avec
dans la première colonne un mot plus une date (exemple : "ajustement part fixe 05/07" ou "ajustement terme à échoir 12/08) le premier chiffre étant un mois et le deuxième l'année.
Dans la deuxième colonne un chiffre (positif ou négatif)

Le but de ma macro est de faire la somme de chaque nombre de la deuxieme colonne pour chaque paire de conditions "année + premier terme de la 1ere colonne"

C'est pas tres clair mais je vais vous faire un exemple :


ajustement part fixe 05/08 40
ajustement part fixe 10/07 50
ajustement terme à échoir 12/08 45
ajustement part fixe 6/07 40
ajustement terme à échoir 11/08 20
ajustement part fixe 10/08 32
ajustement part fixe 01/05 35
ajustement part fixe 05/07 40

Et je dois afficher ensuite automatiquement :
Total ajustement part fixe 2008 = 72
Total ajustement part fixe 2007 = 130
Total ajustement part fixe 2006 = 0
Total ajustement part fixe 2005 = 35
Total ajustemen terme à échoir 2008 = 65
etc...

Je précise aussi que le tableau est un reporting automatique qui a une longueur variable à chaque fois....

Si quelqu'un peut au moins me donner une piste pour commencer ça serait vraiment sympa.

[Gorfael]

Salut Goutlett et le forum
Comme il me manque des infos, j'ai décidé :
Entrées : A intitulé, B nombre à additionner
Sorties : E Titre, F Totaux

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
24
25
26
27
28
29
30
31
32
Sub test()
Dim X As Long
Dim Y As Integer
Dim Tab_V()
Dim Cel As Range
Dim Flg As Boolean
 
ReDim Tab_V(1 To 2, 0 To 0)
For Each Cel In Range([A1], [A65536].End(xlUp))
    Tab_V(1, 0) = Cel
    Y = InStr(Tab_V(1, 0), "/")
    Tab_V(1, 0) = Trim(Left(Tab_V(1, 0), Y - 3))
    Tab_V(2, 0) = Right(Trim(Cel), 2)
    Flg = True
    For X = 0 To UBound(Tab_V, 2)
        If Tab_V(1, X) = Tab_V(1, 0) & " 20" & Tab_V(2, 0) Then
            Tab_V(2, X) = Tab_V(2, X) + Cel.Offset(0, 1)
            Flg = False
            Exit For
        End If
    Next X
    If Flg Then
        ReDim Preserve Tab_V(1 To 2, 0 To UBound(Tab_V, 2) + 1)
        Tab_V(1, UBound(Tab_V, 2)) = Tab_V(1, 0) & " 20" & Tab_V(2, 0)
        Tab_V(2, UBound(Tab_V, 2)) = Cel.Offset(0, 1)
    End If
Next Cel
For X = 1 To UBound(Tab_V, 2)
    Range("E" & X) = Tab_V(1, X)
    Range("F" & X) = Tab_V(2, X)
Next X
End Sub

Par rapport à ta demande : J'ai pas les années non marquées, et ce n'est pas trié. Mais c'est facile à faire manuellement ou par macro, à condition d'avoir les infos.
Pour réduire, j'ai pas commenté le code, mais s'il y en a besoin, ça peut se faire
A+