Discussion :

[mederik]

Bonjour,

dans mon fichier exemple en pj je voudrais faire une somme conditionnelle sur l'année.

• En B1 une date au format "aaaa" exemple : 2012
• en An:Bn une date au format "dd/mm/aaaa" et des chiffres
• le but : n'additionner que les lignes dont la date = celle en B1

J'ai essayé avec une fonction SOMME.SI mais vu les arguments je ne crois pas que ce soit la bonne méthode puisque je dois pouvoir evaluer chaque ligne avec B1.

Avez vous une piste pour faire cela ?

Merci d'avance pour votre aide

[Kimy_Ire]

Bonjour,

Je te propose la solution suivante :

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
Sub Total()
Dim test As Range
Dim Year As Integer
Dim Total As Integer
 
 
With Worksheets("Feuil1")
    Set test = .Range("B1")
    Total = 0
 
    k = 1
    Do While test.Offset(k, 0) <> ""
        Year = CInt(Right(test.Offset(k, -1).Value, 4))
        If Year = 2012 Then
            Total = Total + test.Offset(k, 0)
        End If
 
        k = k + 1
    Loop
 
    test.Offset(k + 2, 0) = Total
 
End With
 
End Sub

Le total s'affichera 2 cases en dessous de ta dernière valeur.
Dis moi, si cela te convient. =)

[mederik]

Salut,

merci pour ta réponse. Cela me semble un peu compliqué pour une simple somme conditionnelle, non ? Je veux dire y'a pas moyen de faire ça avec les fonctions embarquées plutôt que de faire une macro ?

Car il s'agit bien de cela non ? tu proposes une macro à lancer sur un clik bouton ?
Je suis pas très à l'aise avec ça. Comment tu l'implémentes ?

[Kimy_Ire]

Tu as posté ton message dans le forum VBA... Je me suis donc dis que tu voulais une macro...

Perso, depuis que j'ai appris ce language, je n'utilise plus que ça. Tu cliques sur "Developpeur" puis "Macro", tu sélectionnes le nom de ta macro et ça t'envoies le résultat.

Pour ce qu'il s'agit de l'excel pur, je te propose de poster ta question sur un forum excel et non VBA. =)

Sinon pour lancer la macro, tu fais "alt" + F11. Tu cliques droit sur le classeur que tu utilises puis "Insertion" puis "Module". Tu copies/colles ce qui est au dessus puis tu enregistre le tout dans un classeur qui utilise les macros.
Après le tour est joué !

Bonne continuation à toi !

[gbbtt]

Salut,

tu es dans le forum macros et VBA excel il est donc normal qu'on te propose une macro!

Sinon pour le faire plus simplement il faudrait ajouter une colonne contenant les années uniquement (tu peux la masquer si elle te gêne)

Et utiliser la formule suivante, avec par exemple les années en colonne B et les chiffres à sommer colonne C

=SOMME.SI(B2:Bn;B1;C2)

[mederik]

Tu as posté ton message dans le forum VBA

Oups, ma foi je dirai que vous avez raison !!!!

Bon je resous et je post ailleurs, en effet, m'a suis planté.

Bon merci pour vos input quand même

[Kimy_Ire]

Je terminerai par ceci :

Si tu veux un truc encore plus simple, tu créer toi-même ta fonction comme ceci :

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
Function Total(Range)
Dim Year As Integer
Dim Tot As Integer
 
 
Set test = Range
Tot = 0
 
k = 1
Do While test.Offset(k, 0) <> ""
    Year = CInt(Right(test.Offset(k, -1).Value, 4))
    If Year = 2012 Then
        Tot = Tot + test.Offset(k, 0)
    End If
 
    k = k + 1
Loop
 
Total = Tot
 
End Function

Tu n'as plus qu'a faire comme toute fonction : tu écris "=" puis le nom de la fonction (ici "Total"). En argument tu places la première ligne de la colonne sur laquelle tu veux faire ton total et le tour est joué ! =)

Je ne sais pas si tu liras ceci mais c'est peut-être la meilleure solution ! =)