Microsoft 365 VBA : somme par colonne

VBA_dev_Anne_Marie

XLDnaute Occasionnel
Bonjour,

J'ai un code simple, mais quelque chose m'échappe : je n'obtiens pas le bon résultat.
Je souhaite sommer la division par 3 de chaque variable par ligne en variant les colonnes, mais mon code ne donne pas un bon résultat :
VB:
Sub Calcul_index()

Dim i, j, ecart, ecart_total As Integer


    For i = 1 To 5
    ecart_total = 0
    
    For j = 1 To 4
  
        ecart = Sheets("Données").Cells(i, j).Value / 3
        
        ecart_total = ecart_total + ecart
        
    Next j
       Sheets("Données").Cells(7 + i, 1).Value = ecart_total
    Next i
End Sub

Voici mes données ( les données en vert c'est le résultat attendu)
1704140159893.png


Merci pour votre aide !
 

job75

XLDnaute Barbatruc
Bonsoir à tous,

Quelques éclaircissements, quand on écrit :
VB:
Dim i, j, ecart, ecart_total As Double
les variables i, j, ecart sont déclarées implicitement As Variant.

Il vaut mieux tout déclarer explicitement :
VB:
Dim i As Long, j As Integer, ecart As Double, ecart_total As Double
qu'on peut abréger en :
VB:
Dim i&, j%, ecart#, ecart_total#
A+
 

VBA_dev_Anne_Marie

XLDnaute Occasionnel
Bonsoir à tous,

Quelques éclaircissements, quand on écrit :
VB:
Dim i, j, ecart, ecart_total As Double
les variables i, j, ecart sont déclarées implicitement As Variant.

Il vaut mieux tout déclarer explicitement :
VB:
Dim i As Long, j As Integer, ecart As Double, ecart_total As Double
qu'on peut abréger en :
VB:
Dim i&, j%, ecart#, ecart_total#
A+
Merci beaucoup !
 

Discussions similaires

Réponses
11
Affichages
456

Statistiques des forums

Discussions
313 322
Messages
2 097 141
Membres
106 850
dernier inscrit
benbeckman