Microsoft 365 VBA : somme par colonne

[VBA_dev_Anne_Marie]

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 :

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)

Merci pour votre aide !

 

[Phil69970]

Bonjour @VBA_dev_Anne_Marie

Modifie ceci :

Dim i, j, ecart, ecart_total As Integer

par ceci

Dim i, j, ecart, ecart_total As Double

Voir ==> https://learn.microsoft.com/fr-fr/o...ference/user-interface-help/data-type-summary

Merci de ton retour

 

[VBA_dev_Anne_Marie]

Bonjour @VBA_dev_Anne_Marie

Modifie ceci :


par ceci



Voir ==> https://learn.microsoft.com/fr-fr/o...ference/user-interface-help/data-type-summary

Merci de ton retour

Merci et bonne année !
Malheureusement, le code ne marche pas avec cette correction.
C'est la somme qui ne marche pas, c'est toujours la division de la dernière colonne qui s'affiche.

 

[patty58]

Bonjour à tous deux
En faisant ce que Phil69970 te dit, cela marche chez moi !!
Bonne soirée

 

[Phil69970]

@VBA_dev_Anne_Marie

Malheureusement, le code ne marche pas avec cette correction.
C'est la somme qui ne marche pas, c'est toujours la division de la dernière colonne qui s'affiche.

Tu es sur de toi ?
En principe je teste mes solutions avant de les mettre sur le forum sinon je mets "non testé"

 

[VBA_dev_Anne_Marie]

Bonjour à tous deux
En faisant ce que Phil69970 te dit, cela marche chez moi !!
Bonne soirée

Merci ! Le code marche !

 

[VBA_dev_Anne_Marie]

@VBA_dev_Anne_Marie


Tu es sur de toi ?
En principe je teste mes solutions avant de les mettre sur le forum sinon je mets "non testé"

Regarde la pièce jointe 1187504

Merci, ça marche bien ! Désolée, j'ai mal regardé. Quand on ne met pas "Double" le code ne marche pas du tout ?
Quelle solution tu utilise pour enregistrer l'écran ?

Merci !

 

[Phil69970]

@VBA_dev_Anne_Marie

Quelle solution tu utilise pour enregistrer l'écran ?

==> https://www.apowersoft.fr/record-all-screen

 

[job75]

Bonsoir à tous,

Quelques éclaircissements, quand on écrit :

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 :

Dim i As Long, j As Integer, ecart As Double, ecart_total As Double

qu'on peut abréger en :

Dim i&, j%, ecart#, ecart_total#

A+

 

[VBA_dev_Anne_Marie]

Bonsoir à tous,

Quelques éclaircissements, quand on écrit :

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 :

Dim i As Long, j As Integer, ecart As Double, ecart_total As Double

qu'on peut abréger en :

Dim i&, j%, ecart#, ecart_total#

A+

Merci beaucoup !