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

Résolu
Druddy Messages postés 34 Date d'inscription   Statut Membre Dernière intervention   -  
Druddy Messages postés 34 Date d'inscription   Statut Membre Dernière intervention   -
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

Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
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
Druddy Messages postés 34 Date d'inscription   Statut Membre Dernière intervention  
 
Merci beaucoup Le Pingou.

Cela fonctionne
0