Souci XlDown

Bonjour à tous,

Voilà un problème très simple à corriger, mais moi je n'y arrive pas

J'ai une formule dans la cellule L2, celle-ci doit être appliquée jusqu'à la dernière cellule utilisée dans n'importe quel fichier que j'aurai dans le futur.

Quand je tente d'utiliser la formule "Range(Selection, Selection.End(xlDown)).Select" , il me séléctionne toute les cellules du fichier (+1400000 lignes) au lieu des quelques centaines.

J'ai tenté de prendre la colonne M2 comme repère, ca me fait le même problème, mais pas quand je tente de le faire à partir de la cellule K2, mais du coup ca fausse tout mon calcul.

Pouvez-vous corriger ma formule qui se trouve dans la macro ci-jointe s'il vous plait ?

Merci d'avance !

Brut'

Bonjour,

Teste avec ceci

Sub SelectionBasse()
Dim f$
Dim Dl%
  Range("M2").Value = 1
  Dl = Range("K" & Rows.Count).End(xlUp).Row
  Range("M2").AutoFill Destination:=Range("M2:M" & Dl), Type:=xlFillDefault
  f = "=RC[-1]/1440"
  Range("L2").Formula = f
  Range("L2").AutoFill Destination:=Range("L2:L" & Dl), Type:=xlFillDefault
End Sub

et bien parfait !

Je savais que je pouvais compter sur la communauté !

Merci beaucoup M12

Belle journée