OVH Cloud OVH Cloud

Définir un champ à géométrie variable dans le but de l’inclure d an

2 réponses
Avatar
Jean-Paul V
Bonjour
Pourquoi le champ « MyRange » créé par la macros n’est pas reconnu par la
fonction qui est censée calculer l’escompte en appliquant le taux « ChoixTaux
» à la somme des montants figurant dans le champ créé MyRange en partant de
la cellule que j’ai nommée Montant c’est-à dire la première cellule de la
colonne et en faisant fin bas.
ChoixTaux est le nom du champ où figure mon taux

ThisWorkbook.Names.Add "MyRange", Range(Range("Montant"), _
Range("Montant").End(xlDown).Address).Address
Application.Goto Reference:="N__Fact"
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "escompte"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=SUM(MyRange)*-ChoixTaux"
Merci encore pour votre aide

2 réponses

Avatar
Clément Marcotte
Ça presse-tu tant que ça ?
"Jean-Paul V" a écrit dans le
message de news:
Bonjour
Pourquoi le champ « MyRange » créé par la macros n’est pas reconnu
par la

fonction qui est censée calculer l’escompte en appliquant le taux
« ChoixTaux

» à la somme des montants figurant dans le champ créé MyRange en
partant de

la cellule que j’ai nommée Montant c’est-à dire la première cellule
de la

colonne et en faisant fin bas.
ChoixTaux est le nom du champ où figure mon taux

ThisWorkbook.Names.Add "MyRange", Range(Range("Montant"), _
Range("Montant").End(xlDown).Address).Address
Application.Goto Reference:="N__Fact"
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "escompte"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=SUM(MyRange)*-ChoixTaux"
Merci encore pour votre aide


Avatar
AV
Si ta plage "Montant" est bien définie :

ActiveWorkbook.Names.Add Name:="MyRange", RefersTo:="þuil1!" &
[Montant].Address & ":" & [Montant].End(xlDown).Address

AV