Soustraction cellule droite gauche en VBA

Bonjour le forum!

J'ai un problème de calcul sur une soustraction. Le but est de prendre à partir de la 5 ième colonne et soustraire

la 4 ième et ainsi de suite. La 6 ième moins la 5 ième.

Je joins un fichier la façon dont je procède pour le calcul mais j'obtiens une erreur.

Aussi je voudrais améliorer la façon de calculer car j'ai plus de 800 colonnes et 2000 lignes

Une aide serait appréciée

Merci

19calc-dr-gauche.xlsm (19.24 Ko)

Bonjour,

à tester,

Sub test()
'Dim blabla....
Derlig = Sheets("Odd").Range("A" & Rows.Count - 1).End(xlUp).Row
addrD = Sheets("Odd").Range("A2").CurrentRegion.Address
rowD = Range(addrD).Rows(1).Row
rowF = Range(addrD).Rows.Count + (rowD - 1)
colD = Range(addrD).Columns(1).Column
colF = Range(addrD).Columns.Count + (colD - 1)
addrF = Range(Cells(rowD, colD + 10), Cells(rowF, colF + 10)).Address  '10 = colonne J
Sheets("Ecart").Range(addrF).Value = Sheets("Odd").Range(addrD).Value

For lig = 2 To Derlig
 Dercol = Sheets("Ecart").Cells(lig, Columns.Count).End(xlToLeft).Column
 For col = Dercol To 15 Step -1
    Sheets("Ecart").Cells(lig, col) = Sheets("Ecart").Cells(lig, col) - Sheets("Ecart").Cells(lig, col - 1)
 Next
Next
End Sub

Bonjour le Forum,

sabV,

Merci pour le code qui fonctionne très bien

Bonne journée !

Rechercher des sujets similaires à "soustraction droite gauche vba"