Appliquer une formule jusqu'à la fin d'une colonne sauf lignes vide

Résolu
Druddy Messages postés 34 Statut Membre -  
Druddy Messages postés 34 Statut Membre -
Bonjour,

Je mets en place une automatisation via des macros de mise en forme de fichier Datas pour traitements.
Dans la macro manuelle, je cale si je dois appliquer la formule sur un nombre d'enregistrements différent de M697 (dans mon exemple).
J'aimerais que cela s'applique sur les lignes contenant des enregistrements et non vide

'********************************
' CalculDépassementChange Macro
'**********************************

Sub CalculDépassementChange()

Range("M2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RC[-1]-RC[-2]"
Range("M2").Select
Selection.AutoFill Destination:=Range("M2:M697")
Range("M2:M697").Select
End Sub

Merci d'avance pour votre soutient

Configuration: Windows / Edge 91.0.864.37
A voir également:

2 réponses

Réponse 1 / 2
Le Pingou Messages postés 12638 Statut Contributeur 1 461
 
Bonjour,
Essayer comme suit: 
Sub CalculDépassementChange()
deli = Range("K" & Rows.Count).End(xlUp).Row
Range("M2").FormulaR1C1 = "=RC[-1]-RC[-2]"
Range("M2").AutoFill Destination:=Range("M2:M" & deli)
Range("M2:M" & deli).Select
End Sub
0
Réponse 2 / 2
Druddy Messages postés 34 Statut Membre
 
Merci beaucoup Le Pingou.

Cela fonctionne
0