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

[Daniel.C]

Bonjour,

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

[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

[vitalii]

diag1.xlsx

[mercatog]

Une fonction qui calcule la diagonale par rapport à la date de référence en B1

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
33
34
35
36
Option Explicit
 
Function DIAG(ByVal Rng As Range) As Double
Dim n As Integer, i As Integer, D As Integer
Dim S As Double
Dim Tb
 
D = Deb(Rng)
If D > 0 Then
    Tb = Rng.Value
    n = UBound(Tb, 2)
 
    For i = 1 To n - 2
        If i < D - 4 Then S = S + Tb(D - i + 1, i + 2)
    Next i
    DIAG = S
End If
End Function
 
'Fonction qui recherche le mois de référence par rapport à la date en B1
Private Function Deb(ByVal Rng As Range) As Integer
Dim n As Integer, i As Integer
Dim Dte As Long
Dim Tb
 
Tb = Rng.Resize(, 2)
 
Dte = Tb(1, 2)
n = UBound(Tb, 1)
For i = 1 To n
    If Tb(i, 1) = Year(Dte) And Tb(i, 2) = Month(Dte) + 1 Then
        Deb = i
        Exit For
    End If
Next i
End Function

La fonction DIAG peut être utilisée directement dans la feuille si elle est écrite dans un module standard par =DIAG(A1:AX77).

Ou utilisé dans une autre procédure. Exemple

Code :

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

1
2
3
4
Sub Test()
 
MsgBox DIAG(Feuil1.Range("A1:AX77"))
End Sub

[Daniel.C]

Tu veux faire la somme des cellules de C72 à AX25 (paramétrable) ? je t'avais demandé un exemple. Et du calme, même en aoüt, tu n'es pas tout seul...

[vitalii]

Une fonction qui calcule la diagonale par rapport à la date de référence en B1

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
33
34
35
36
Option Explicit
 
Function DIAG(ByVal Rng As Range) As Double
Dim n As Integer, i As Integer, D As Integer
Dim S As Double
Dim Tb
 
D = Deb(Rng)
If D > 0 Then
    Tb = Rng.Value
    n = UBound(Tb, 2)
 
    For i = 1 To n - 2
        If i < D - 4 Then S = S + Tb(D - i + 1, i + 2)
    Next i
    DIAG = S
End If
End Function
 
'Fonction qui recherche le mois de référence par rapport à la date en B1
Private Function Deb(ByVal Rng As Range) As Integer
Dim n As Integer, i As Integer
Dim Dte As Long
Dim Tb
 
Tb = Rng.Resize(, 2)
 
Dte = Tb(1, 2)
n = UBound(Tb, 1)
For i = 1 To n
    If Tb(i, 1) = Year(Dte) And Tb(i, 2) = Month(Dte) + 1 Then
        Deb = i
        Exit For
    End If
Next i
End Function

La fonction DIAG peut être utilisée directement dans la feuille si elle est écrite dans un module standard par =DIAG(A1:AX77).

Ou utilisé dans une autre procédure. Exemple

Code :

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

1
2
3
4
Sub Test()
 
MsgBox DIAG(Feuil1.Range("A1:AX77"))
End Sub

Merci. Mais je dois indiquer que la plage de matrice car je vais avoir 100 matrice comme ça sur onglet
Mais quand je fait =diag(A1:AX77) je obtiens 0... Je sais pas pourquoi.


Voci le fichier ou je calcule la somme manuellement
Somme2 j'ai pas tout calculé j'ai que montré le principe

diag2.xlsx

[mercatog]

Les lignes de 1 à 5 sont prises en compte par la fonction (tu as une référence circulaire)

Tu dois écrire la formule au delà de la dernière ligne (pour ce cas au delà de la ligne 77)

[EngueEngue]

Je t'ai fait une fonction qui te calcule ta diagonale rouge en fonction de la pointe de ton triangle.
Une fonction qui te calcule toutes tes cases colorées.

Somme 1 c'est la première,
Somme 2 la deuxième moins la première.

Je viens de vérifier et elles marchent parfaitement.


T'es quand même gonflé de ne même pas chercher à comprendre alors qu'il n'y a rien de plus simple comme code.

[vitalii]

J ai resoulu sans macro. Merci à tous

=SUM(IF((YEAR(B1)-A6:A77)*12+MONTH(B1)-B6:B77+2=C5:AX5;1;0)*C6:AX77)