Macro de calcul d'escompte sur champ à géométrie variable
1 réponse
JEAN-PAUL V
Bonjour
J'ai essayé d'écrire une macro en utilisant l'enregistrement mais je bloque
sur la fin.
Le début est:
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
Puis l'enregistrement a écrit :
ActiveCell.FormulaR1C1 = "=-ChoixTaux*SUM(R[-3]C:R[-1]C)"
Ce n'est pas ce que je veux:
Je veux après avoir écrit escompte obtenir dans la cellule de droite une
fonction qui additionne ce qui est au dessus multiplié par ce qui est dans
ChoixTaux.
J'ai essayé :
ActiveCell.value = "=-ChoixTaux*SUM(Range(Range("Montant"), _
Range("Montant").End(xlDown).Address).Address )"
"Montant" étant le nom de la première cellule que je veux additionner et en
faisant fin bas additionner tous les montants
Cela ne marche il y a quelque part une erreur de syntaxe
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
Clément Marcotte
Ça presse-tu tant que ça ?
"JEAN-PAUL V" <JEAN-PAUL a écrit dans le message de news:
Bonjour J'ai essayé d'écrire une macro en utilisant l'enregistrement mais je bloque
sur la fin. Le début est: 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 = "=-ChoixTaux*SUM(R[-3]C:R[-1]C)"
Ce n'est pas ce que je veux: Je veux après avoir écrit escompte obtenir dans la cellule de droite une
fonction qui additionne ce qui est au dessus multiplié par ce qui est dans
ChoixTaux. J'ai essayé : ActiveCell.value = "=-ChoixTaux*SUM(Range(Range("Montant"), _ Range("Montant").End(xlDown).Address).Address )" "Montant" étant le nom de la première cellule que je veux additionner et en
faisant fin bas additionner tous les montants Cela ne marche il y a quelque part une erreur de syntaxe
Ça presse-tu tant que ça ?
"JEAN-PAUL V" <JEAN-PAUL V@discussions.microsoft.com> a écrit dans le
message de news:616EAFF8-26FE-43ED-A1AD-7252F9ACD5E7@microsoft.com...
Bonjour
J'ai essayé d'écrire une macro en utilisant l'enregistrement mais je
bloque
sur la fin.
Le début est:
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 = "=-ChoixTaux*SUM(R[-3]C:R[-1]C)"
Ce n'est pas ce que je veux:
Je veux après avoir écrit escompte obtenir dans la cellule de droite
une
fonction qui additionne ce qui est au dessus multiplié par ce qui
est dans
ChoixTaux.
J'ai essayé :
ActiveCell.value = "=-ChoixTaux*SUM(Range(Range("Montant"), _
Range("Montant").End(xlDown).Address).Address )"
"Montant" étant le nom de la première cellule que je veux
additionner et en
faisant fin bas additionner tous les montants
Cela ne marche il y a quelque part une erreur de syntaxe
"JEAN-PAUL V" <JEAN-PAUL a écrit dans le message de news:
Bonjour J'ai essayé d'écrire une macro en utilisant l'enregistrement mais je bloque
sur la fin. Le début est: 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 = "=-ChoixTaux*SUM(R[-3]C:R[-1]C)"
Ce n'est pas ce que je veux: Je veux après avoir écrit escompte obtenir dans la cellule de droite une
fonction qui additionne ce qui est au dessus multiplié par ce qui est dans
ChoixTaux. J'ai essayé : ActiveCell.value = "=-ChoixTaux*SUM(Range(Range("Montant"), _ Range("Montant").End(xlDown).Address).Address )" "Montant" étant le nom de la première cellule que je veux additionner et en
faisant fin bas additionner tous les montants Cela ne marche il y a quelque part une erreur de syntaxe
