Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Calcul auto sans connaitre le nombre lignes

Calcul auto sans connaitre le nombre lignes

2 réponses
Avatar
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
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
JLuc
*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

Avatar
Dante Huapaya
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