AMélioration de code

Bonjour à tous,

J'essaye d'améliorer le code ci-dessous pour ne plus à avoir à saisir le nombre de ligne pour lequel la formule doit s'appliquer.

J'aimerais qu'elle le fasse jusqu'à la dernière ligne trouvée du tableau.

Voici mon code actuel

Merci de votre aide:

Sub SoustractionXU()
 Dim endRow As Long
 endRow = Cells(Rows.Count, 25).End(xlUp).Row
 With Range(Cells(3101, 25), Cells(endRow, 25))
 .FormulaR1C1 = "=RC[-1]-RC[-3]" 'Égale à  X-U
 .Copy
 .PasteSpecial Paste:=xlPasteValues
 End With
 Application.CutCopyMode = False
 End Sub

Bonjour,

Dans ton fichier, est-ce qu'il existe un lien entre ta variable endrow .... et la valeur 3101 ... ???

Bonjours James007.

Négatif, c'est un bout de code que j'ai bidouillé. le seul lien c'est que 3101 (que j'ai saisie manuellement ) est le nombre de ligne total du tableau aujourd'hui.

Row25 est la colonne dans laquelle je fais afficher le résultat de la soustraction

Si tu veux nettoyer ce code, fais-toi plaisir

Merci

Bonsoir,

Si tu mettais le fichier on pourrait faire le lien qui convient... !

Cordialement.

Re,

En supposant que ta destination débute à la ligne 2 ...

Sub SoustractionXU()
Dim lrow As Long
lrow = ActiveSheet.Cells(Application.Rows.Count, "X").End(xlUp).Row
  With Range(Cells(2, 25), Cells(lrow, 25))
    .FormulaR1C1 = "=RC[-1]-RC[-4]"
    .Copy
    .PasteSpecial Paste:=xlPasteValues
  End With
 Application.CutCopyMode = False
 Range("Y2").Select
End Sub

En espèrant que cela t'aide ...

Merci James007

Ça me sauve beaucoup de temps

Merci à vous et bonne journée,

Content que cela puisse t'aider ..

Merci pour tes remerciements ...