Probleme avec une fonction vba excel Fermé

Question

Bonjour, 
 Somme des valeurs sur la diagonale (MaSommeDiag)
Entrée : Plage de cellules (range)
Sortie : Total (réel)
Calcul : (a) Assurez-vous que la plage de cellule est carrée (nombre de lignes identique au nombre de colonnes).
(b) Si ce n’est pas le cas, votre fonction doit renvoyer la valeur 0
(c) Si c’est le cas, votre fonction doit renvoyer la somme des valeurs situées sur la diagonale
Ex. Dans la plage suivante, on aurait Total = 2 + 4 + 7 = 13

2   5    6
3   4    9
8   2    7

pour ce faire j'ai entre le code suivant :

Public Function MaSommeDiag(plage As Range) As Double
Dim i As Long, j As Long
Dim s As Double
s = 0
For i = 1 To plage.Rows.Count Step 1
    For j = 1 To plage.Columns.Count Step 1

     If (i = j) Then
                s = s + plage.Cells(i, i).Value
                
                 Else: s = 0

End If
        Next j
    Next i
MaSommeDiagonaleScolaire = s
End Function

Et à la fin je trouve tjs 0 ca me calcule pas la somme 
Configuration: Windows / Internet Explorer 11.0

f894009 · Answer

Bonjour,

Je verrai plus ceci:

Public Function MaSommeDiag(plage As Range) As Double
    Dim i As Long, j As Long
    Dim s As Double
    
    If plage.Rows.Count = plage.Columns.Count Then  'carré
        For i = 1 To plage.Rows.Count Step 1
            s = s + plage.Cells(i, i).Value
        Next i
    Else
        s = 0
    End If
    MaSommeDiag = s
End Function

dans votre function, a la fin: MaSommeDiagonaleScolaire = s ne correspond pas la Function  MaSommeDiag et ceci change le resultat est 7 pas 13

micky · Answer

Re, merci pour votre réponse votre formule marche très bien et je la comprend toutafais.

Cependant je ne comprend pas pourquoi la mienne donne 7 car meme en changant à la fin :  MaSommeDiag = s cela donne toujours 7

PS: comment vous faites pour afficher le code ici sur le forum dans le format VBA excel ???

merci d'avance

Patrice33740 · Answer

Bonjour,


PS: comment vous faites pour afficher le code ici sur le forum dans le format VBA excel ???

micky · Answer

du coup si je met le code suivant :

Sub RemplissageCellulesStep()
    Dim Compteur As Integer
    For Compteur = 1 To 100 Step 2
        ActiveCell.Offset(Compteur - 1, 0) = Rnd
    Next Compteur
End Sub

Probleme avec une fonction vba excel

4 réponses

Discussions similaires