Discussion :

[vitalii]

Bonjour,
je suis bloqué pour calculer la somme de diagonal du triangle. J'ai essayé de resoudre avec couleur mais ça fonctionne pas à cause de mise en forme.

Est-ce que vous pourriez m'aider avec ça? j'ai besoin de la calculer plusieurs fois. Alors je veux créér la fonction où on peut indiquer le plage et voilà. Vouz pouvez regarder le fichier et mise en forme.
Je veux calculer par couleur mais pour jaune il faut calculer la plage au-dessus du couleur rouge et jusqu'à la ligne 2013 7 pour cette date. Pour date 30-07-2013 jusqu'à la ligne 2013 8 diag.xlsx

[EngueEngue]

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
Function sommediag(x As Integer, y As Integer) As Double
Dim i As Double, debut As Double, somme As Double
Dim dernlig As Double, derncol As Double
 
dernlig = Feuil1.Range("A" & Rows.Count).End(xlUp).Row
For i = 6 To dernlig
If Feuil1.Range("A" & i) = x And Feuil1.Range("B" & i) = y Then
debut = i
Exit For
End If
Next i
 
 
derncol = Feuil1.Cells(6, Columns.Count).End(xlToLeft).Column
For i = 3 To derncol
somme = somme + Feuil1.Cells(debut, i)
debut = debut - 1
Next i
 
sommediag = somme
 
End Function

[vitalii]

Merci EngueEngue. Juste une question. ça va fonctionner si je vais avoir le triangle dans le plage par exemple $DA$9:$EV$80?

[EngueEngue]

non..

Si ton triangle ne commence pas à la première ligne de ton tableau ( 3eme colonne ) alors il faut donner en argument à la fonction les coordonnées de la pointe du triangle

[vitalii]

Daniel, il y a le fichier joint diag.xlsx

J'ai ça mais c'est pour couleur. Je veux le même mais pour condition de mise en forme

Code :

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

1
2
3
4
5
6
7
Function SommeCouleur(Plage As Range, Couleur As String)
Application.Volatile True
For Each Cellule In Plage
If Cellule.Interior.ColorIndex = Couleur Then TotalSomme = TotalSomme + Cellule.Value
Next
SommeCouleur = TotalSomme
End Function

non..

Si ton triangle ne commence pas à la première ligne de ton tableau ( 3eme colonne ) alors il faut donner en argument à la fonction les coordonnées de la pointe du triangle

Tu peux m'aider avec ça? Et calculer la somme pour rouge et jaune(juste pour que jai decrit)

[EngueEngue]

Ah j'avais pas compris... oui c'est facile attends je te trouve tes couleurs

[Daniel.C]

Bonjour,

Donne un exemple de bornes et résultat. C'est tout sauf clair, pour moi, en tout cas.