Propager une formule jusqu'à la dernière ligne du tableau

[Olum]

Bonjour,

J'utilise Excell depuis plusieurs années mais je me met au VBA depuis peu.

J'essaie de créer une macro pour traiter des gros volumes de données plus rapidement.

J'essaie de propager une formule jusqu'à la dernière ligne utilisée dans mon tableau.

Je voudrai avoir quelque chose de la forme :

Selection.AutoFill Destination:=Range("I2:INbLignes"), Type:=xlFillDefault

Je ne sais pas si je m'y prend de la bonne manière...

 

[Pierrot93]

Re : Propager une formule jusqu'à la dernière ligne du tableau

Bonsoir Olum

essaye peut être avec le code ci-dessous, ou la lettre en gras et rouge représente la colonne à partir de laquelle est déterminée la dernière ligne, à adapter :

Selection.AutoFill Destination:=Range("I2:I" & Range("[COLOR="Red"]A[/COLOR]65536").End(xlUp).roww), Type:=xlFillDefault

bonne soirée
@+

 

[Robert]

Re : Propager une formule jusqu'à la dernière ligne du tableau

Bonjour Olum, bonjour le forum,

Tout d'abord bienvenu dans le forum.

Si ton tableau a une colonne qui est forcément éditée tu peux t'en servir pour obtenir la dernière ligne avec (par exemple la colonne A) :

Dim dl As Long 'déclare la variable dl (Dernière Ligne)
dl = Range("A65536").End(xlUp).Row 'définit la variable dl

puis

Selection.AutoFill Destination:=Range("I2:I" & dl), Type:=xlFillDefault

Édition :

Arf !!! Grillé par Pierrot mais comme il a mis deux ww à Row... Bonjour Pierrot.

 

[Olum]

Re : Propager une formule jusqu'à la dernière ligne du tableau

Merci Pierrot !

Ca marche 🙂

 

[Olum]

Re : Propager une formule jusqu'à la dernière ligne du tableau

Encore plus propre avec la soluce de Robert !

Je regrète pas mon inscription sur ce forum ! Belle réactivité 🙂

 

[Pierrot93]

Re : Propager une formule jusqu'à la dernière ligne du tableau

Re, Bonjour Robert

Aarf, bien vu Robert les 2 w... Merci pour la rectif.

 

[Bebere]

Re : Propager une formule jusqu'à la dernière ligne du tableau

bonjour le fil
sans autofill
Range("I2:I" & Range("A65536").End(xlUp).Row).Formula = Range("I2").Formula
à bientôt

 

[Olum]

Re : Propager une formule jusqu'à la dernière ligne du tableau

Merci pour votre aide à tous. J'avance plus vite 🙂

Maintenant mon problème est de récupérer la valeur de ma fameuse dernière ligne et de l'incérer dans ma formule...

Je voudrais arriver à quelque chose de la forme :

ActiveCell.FormulaR1C1 = "=SUM(Base!RC[6]:R[dl]C[6])"

Où dl est ma dernière ligne

 

[Robert]

Re : Propager une formule jusqu'à la dernière ligne du tableau

Bonjour le fil, bonjour le forum,

essaie comme ça :

ActiveCell.FormulaR1C1 = "=SUM(Base!RC[6]:R[" & dl & "]C[6])"