Sujet Précédent Sujet Suivant

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

Signaler
Messages postés
12
Date d'inscription
samedi 29 mai 2021
Statut
Membre
Dernière intervention
9 juin 2021
 -
Messages postés
12
Date d'inscription
samedi 29 mai 2021
Statut
Membre
Dernière intervention
9 juin 2021
 -
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

2 réponses

Réponse 1 / 2
Messages postés
10048
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
9 juin 2021
 1 148
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
Réponse 2 / 2
Messages postés
12
Date d'inscription
samedi 29 mai 2021
Statut
Membre
Dernière intervention
9 juin 2021
Merci beaucoup Le Pingou.

Cela fonctionne
Répondre Posez votre question