Discussion :

[Kestion100]

Ta solution qui fonctionne est de faire tourner ma boucle sans les DIFFn pour avoir Kn et Ln et ensuite ta boucle fait les soustractions Kn - Ln

[halaster08]

Ta solution qui fonctionne est de faire tourner ma boucle sans les DIFFn pour avoir Kn et Ln et ensuite ta boucle fait les soustractions Kn - Ln

Non tu peux renseigner directement DIFFn dans ta première boucle

Code :

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

1
2
3
4
5
6
7
8
9
Dim diff(29) As double
For i = 1 to 30
diff(i-1) = range("K"& i).value - range("L"& i).value 
next i
 
for i = 0 to ubound(diff)
dif_tot = dif_tot + diff(i)
next i
debug.print dif_tot

Je voudrais donc calculer la différence entre L1 et K1; L2 et K2; L3 et K3... à chaque boucle puis faire la somme de ces différences, égale à 0 cela veut dire que toute les lignes sont égales

Attention ici c'est pas forcément vrai avec K1=1, L1=0, K2=0, L2=1 la somme des différences vaut 0, mais les lignes ne sont pas égales

[Kestion100]

Parfait, MERCI!!!
En effet, je n'avais pas pensé à la précision que tu apportes....