Calcul auto sans connaitre le nombre lignes

Le
Dante Huapaya
Bonjour,
J'ai une macro (ci-bas) qui fais le calcul de 4 colonnes,
sauf que je ne sais pas comme l'adapter si le
nombre de lignes change.
Merci d'avance de votre aide

'Calculs impots
Range("AG7").Select
ActiveCell.FormulaR1C1 = ""
Range("AG8").Select
ActiveCell.FormulaR1C1 = "=RC[3]*0.5"
Range("AH8").Select
ActiveCell.FormulaR1C1 = "=RC[2]*0.25"
Range("AI8").Select
ActiveCell.FormulaR1C1 = "=-RC[-7]*RC[-31]"
Range("AJ8").Select
ActiveCell.FormulaR1C1 = "=-R[-1]C[-14]-RC[-1]"
Range("AJ8").Select
ActiveCell.FormulaR1C1 = "=-RC[-14]-RC[-1]"
Range("AG8").Select
Selection.AutoFill Destination:=Range("AG8:AG353")
Range("AG8:AG353").Select
Range("AH8").Select
Selection.AutoFill Destination:=Range("AH8:AH353")
Range("AH8:AH353").Select
Range("AI8").Select
Selection.AutoFill Destination:=Range("AI8:AI353")
Range("AI8:AI353").Select
Range("AJ8").Select
Selection.AutoFill Destination:=Range("AJ8:AJ353")
Range("AJ8:AJ353").Select
Range("AG8:AI353").Select

DANTE HUAPAYA
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JLuc
Le #3275761
*Bonjour Dante Huapaya*,
Avec ceci, tes formules seront copiée jusqu'a la derniere ligne en
colonne A :
Range("AG7").Select
ActiveCell.FormulaR1C1 = ""
Range("AG8").Select
ActiveCell.FormulaR1C1 = "=RC[3]*0.5"
Range("AH8").Select
ActiveCell.FormulaR1C1 = "=RC[2]*0.25"
Range("AI8").Select
ActiveCell.FormulaR1C1 = "=-RC[-7]*RC[-31]"
Range("AJ8").Select
ActiveCell.FormulaR1C1 = "=-R[-1]C[-14]-RC[-1]"
Range("AJ8").Select
ActiveCell.FormulaR1C1 = "=-RC[-14]-RC[-1]"
Set Source = Range("AG8:AJ8")
Set Plage = Range("AG8:AJ" & Range("A65536").End(xlUp).Row)
Source.AutoFill Destination:=Plage
Essaie et dis nous
Bonjour,
J'ai une macro (ci-bas) qui fais le calcul de 4 colonnes,
sauf que je ne sais pas comme l'adapter si le
nombre de lignes change.
Merci d'avance de votre aide

'Calculs impots
Range("AG7").Select
ActiveCell.FormulaR1C1 = ""
Range("AG8").Select
ActiveCell.FormulaR1C1 = "=RC[3]*0.5"
Range("AH8").Select
ActiveCell.FormulaR1C1 = "=RC[2]*0.25"
Range("AI8").Select
ActiveCell.FormulaR1C1 = "=-RC[-7]*RC[-31]"
Range("AJ8").Select
ActiveCell.FormulaR1C1 = "=-R[-1]C[-14]-RC[-1]"
Range("AJ8").Select
ActiveCell.FormulaR1C1 = "=-RC[-14]-RC[-1]"
Range("AG8").Select
Selection.AutoFill Destination:=Range("AG8:AG353")
Range("AG8:AG353").Select
Range("AH8").Select
Selection.AutoFill Destination:=Range("AH8:AH353")
Range("AH8:AH353").Select
Range("AI8").Select
Selection.AutoFill Destination:=Range("AI8:AI353")
Range("AI8:AI353").Select
Range("AJ8").Select
Selection.AutoFill Destination:=Range("AJ8:AJ353")
Range("AJ8:AJ353").Select
Range("AG8:AI353").Select

DANTE HUAPAYA



--
JLuc

Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS

Dante Huapaya
Le #3275511
MERCIII! c'est super...
Merci de votre temps, cela fut très appréciée

Dante Huapaya


*Bonjour Dante Huapaya*,
Avec ceci, tes formules seront copiée jusqu'a la derniere ligne en
colonne A :
Range("AG7").Select
ActiveCell.FormulaR1C1 = ""
Range("AG8").Select
ActiveCell.FormulaR1C1 = "=RC[3]*0.5"
Range("AH8").Select
ActiveCell.FormulaR1C1 = "=RC[2]*0.25"
Range("AI8").Select
ActiveCell.FormulaR1C1 = "=-RC[-7]*RC[-31]"
Range("AJ8").Select
ActiveCell.FormulaR1C1 = "=-R[-1]C[-14]-RC[-1]"
Range("AJ8").Select
ActiveCell.FormulaR1C1 = "=-RC[-14]-RC[-1]"
Set Source = Range("AG8:AJ8")
Set Plage = Range("AG8:AJ" & Range("A65536").End(xlUp).Row)
Source.AutoFill Destination:=Plage
Essaie et dis nous
Bonjour,
J'ai une macro (ci-bas) qui fais le calcul de 4 colonnes,
sauf que je ne sais pas comme l'adapter si le
nombre de lignes change.
Merci d'avance de votre aide

'Calculs impots
Range("AG7").Select
ActiveCell.FormulaR1C1 = ""
Range("AG8").Select
ActiveCell.FormulaR1C1 = "=RC[3]*0.5"
Range("AH8").Select
ActiveCell.FormulaR1C1 = "=RC[2]*0.25"
Range("AI8").Select
ActiveCell.FormulaR1C1 = "=-RC[-7]*RC[-31]"
Range("AJ8").Select
ActiveCell.FormulaR1C1 = "=-R[-1]C[-14]-RC[-1]"
Range("AJ8").Select
ActiveCell.FormulaR1C1 = "=-RC[-14]-RC[-1]"
Range("AG8").Select
Selection.AutoFill Destination:=Range("AG8:AG353")
Range("AG8:AG353").Select
Range("AH8").Select
Selection.AutoFill Destination:=Range("AH8:AH353")
Range("AH8:AH353").Select
Range("AI8").Select
Selection.AutoFill Destination:=Range("AI8:AI353")
Range("AI8:AI353").Select
Range("AJ8").Select
Selection.AutoFill Destination:=Range("AJ8:AJ353")
Range("AJ8:AJ353").Select
Range("AG8:AI353").Select

DANTE HUAPAYA



--
JLuc

Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS






Publicité
Poster une réponse
Anonyme