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)
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.
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.
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.
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 ?