Réaliser une boucle pour réaliser une soustraction par ligne

Bonjour à Tous

J'aurais besoin de votre aide pour réaliser une boucle qui ferait des soustraction en ligne

Le but est de faire une boucle qui puisse faire une soustraction de la cellule Dernier par 1er, que le résultat soit en colonne E, Qu'on passe à la ligne suivante et faire la même soustraction et ainsi de suite jusqu'à la dernière ligne

Faire des soustractions par colonne j'y arrive mais pas par ligne

56excel-pratique.xlsx (16.88 Ko)

Bonjour

En E2 à tirer vers le bas

=SI(D2="1er"; C3-C2;"")

Salut 78chris,

tu me tires les touches du clavier...


A+

Bonsoir à vous,

merci pour ta réponse je l'ai essayé, elle fonctionne très bien mais j'aurais aimé que ce soit en vba.

Car j'incorpore cette soustraction dans une macro, et il me faudrait pour cela une boucle

Pour une fois que je fais une formule... 🤣

Avec la formule j'ai fait cette macro. Elle fonctionne mais je suis sûr qu'on peut l'améliorer.

Sub Macro1()
'
' Macro1 Macro
'

'
F2_Derlign_Col_D = Feuil2.Range("D" & Rows.Count).End(xlUp).Row


Range("E2").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-1]=""1er"",R[1]C[-2]-RC[-2],"""")"
Range("E2").Select
Selection.AutoFill Destination:=Range("E2:E100000"), Type:=xlFillDefault
Range("E2:E100000").Select

Columns("E:E").Select
Selection.Copy
Range("F1").Select

ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Columns("D:E").Select
Selection.Delete Shift:=xlToLeft

For i = F2_Derlign_Col_D To 2 Step -1
If Feuil2.Cells(i, 1).Value = "DROP" Then Feuil2.Rows(i).EntireRow.Delete
Next i

End Sub

Pour une fois que je fais une formule... 🤣

Je compatis

RE

merci pour ta réponse je l'ai essayé, elle fonctionne très bien mais j'aurais aimé que ce soit en vba.

Car j'incorpore cette soustraction dans une macro, et il me faudrait pour cela une boucle

pas besoin de boucle : de même qu'à la main on peut mettre une même formule sur une plage

Range(...).FormulaR1C1 = "=IF(RC[-1]=""1er"",R[1]C[-2]-RC[-2],"""")"

et j'ai du mal à comprendre qu'en 2020 on en soit à programmer une plage pifométrique de 1000 lignes quand les tableaux structurés existent depuis 17 ans ...

Rechercher des sujets similaires à "realiser boucle soustraction ligne"