Appliquer une formule jusqu'à la fin d'une colonne sauf lignes vide Résolu/Fermé

Question

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

Le Pingou · Answer

Bonjour,
Essayer  comme suit:
  Sub CalculDépassementChange()deli = Range("K" & Rows.Count).End(xlUp).RowRange("M2").FormulaR1C1 = "=RC[-1]-RC[-2]"Range("M2").AutoFill Destination:=Range("M2:M" & deli)Range("M2:M" & deli).SelectEnd Sub

Druddy · Answer

Merci beaucoup Le Pingou.

Cela fonctionne

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

2 réponses

Discussions similaires