Formule

Bonsoir Fabienne,
As tu regardé du côté du solveur ?
(Qui viens avec la macro complémentaire utilitaires d'analyse, me semble t il)
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002

"Fabienne" <f.herviou@wanadoo.fr> a écrit dans le message de
news:052c01c3d62c$d9d70b80$a101280a@phx.gbl...
Bonsoir à tous et meilleurs voeux !

Je cherche une solution au problème suivant :

Je calcule une marge sur prix de vente soit : (prix de
vente - prix de revient ) / prix de vente.

J'ai le calcul suivant :
A1 = prix de revient = 5
A2 = prix de vente = 10
A3 = Marge = (A1-A2)/A2*100 soit 50% de marge

Dans le cas ci-dessus, mes données saisies sont donc A1 et
A2.
Or je souhaiterais pouvoir également saisir A1 et A3 pour
définir A2. La formule dans ce cas est :
A1 = prix de revient = 5
A3 = Marge = 50
A2 = Prix de vente = (A1/(1+A3)*100 = 9.80

Je souhaiterais avoir sur une feuille excel ces 3 cellules
A1,A2 et A3 et pouvoir calculer soit mon prix de vente
soit ma marge. En résumé soit je saisis A1 et A2 pour
obtenir A3 OU je saisis A1 et A3 et j'obtiens A2.

Est-ce possible ?

Merci pour vos idées

Bonsoir

Entre ceci dans le module attaché à la feuille.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.EnableEvents = False
Select Case Target.Address(False, False)
Case "A2"
Target.Offset(1).Formula = "=(R[-1]C - R[-2]C) / R[-1]C"
Target.Offset(1).NumberFormat = "0.00%"
Case "A3"
Target.Offset(-1).FormulaR1C1 = "=R[-1]C / R[1]C"
End Select
Application.EnableEvents = True
End Sub

La saisie du taux de marge est à faire en pourcentage : 50 % (par exemple)
et non 50.

Bonsoir à tous et meilleurs voeux !

Je cherche une solution au problème suivant :

Je calcule une marge sur prix de vente soit : (prix de
vente - prix de revient ) / prix de vente.

J'ai le calcul suivant :
A1 = prix de revient = 5
A2 = prix de vente = 10
A3 = Marge = (A1-A2)/A2*100 soit 50% de marge

Dans le cas ci-dessus, mes données saisies sont donc A1 et
A2.
Or je souhaiterais pouvoir également saisir A1 et A3 pour
définir A2. La formule dans ce cas est :
A1 = prix de revient = 5
A3 = Marge = 50
A2 = Prix de vente = (A1/(1+A3)*100 = 9.80

Je souhaiterais avoir sur une feuille excel ces 3 cellules
A1,A2 et A3 et pouvoir calculer soit mon prix de vente
soit ma marge. En résumé soit je saisis A1 et A2 pour
obtenir A3 OU je saisis A1 et A3 et j'obtiens A2.

Est-ce possible ?

Merci pour vos idées

--
Cordialement,

Michel Gaboly
http://www.gaboly.com

-----Message d'origine-----
Bonsoir et merci beaucoup. J'ai modifié le code comme
suit :

Private Sub WORKSHEET_Change(ByVal Target As Excel.Range)
Application.EnableEvents = False
Select Case Target.Address(False, False)
Case "N50"
Target.Offset(1).Formula = "=((R[-1]C /
Laize / Longueur * 100000) - R[-2]C) / (R[-1]C / mm / m *
100000 )"
Target.Offset(1).NumberFormat = "0.00%"
Case "N51"
Target.Offset(-1).FormulaR1C1 = "=((R[-1]
C / 100000 * mm * m) / (1 - R[1]C))"
End Select
Application.EnableEvents = True
End Sub

En effet, j'ai un prix de revient A1 aux 100 m², par
contre j'ai un prix de vente A2 dans une autre unité (
surface mm x m ( mm et m sont des champs nommés ).
Je dois donc calculer ma marge en transformant mon prix de
revient A1 dans la même unité. Cela fonctionne très bien.
Tu peux peut être encore m'aider : je peux avoir un prix
de revient dans 2 unités possibles et également des prix
de vente dans plusieurs unités possibles ( une
dizaine ! ). Est-ce que je peux rajouter des conditions ?
Si A1 = 100 m² et A2 = Kg alors ...etc ???
Merci d'avance.


Bonsoir

Entre ceci dans le module attaché à la feuille.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.EnableEvents = False
Select Case Target.Address(False, False)
Case "A2"
Target.Offset(1).Formula = "=(R[-1]C - R[-
2]C) / R[-1]C"

Target.Offset(1).NumberFormat = "0.00%"
Case "A3"
Target.Offset(-1).FormulaR1C1 = "=R[-1]
C / R[1]C"

End Select
Application.EnableEvents = True
End Sub

La saisie du taux de marge est à faire en pourcentage :
50 % (par exemple)

et non 50.

Bonsoir à tous et meilleurs voeux !

Je cherche une solution au problème suivant :

Je calcule une marge sur prix de vente soit : (prix de
vente - prix de revient ) / prix de vente.

J'ai le calcul suivant :
A1 = prix de revient = 5
A2 = prix de vente = 10
A3 = Marge = (A1-A2)/A2*100 soit 50% de marge

Dans le cas ci-dessus, mes données saisies sont donc A1
et

A2.
Or je souhaiterais pouvoir également saisir A1 et A3
pour

définir A2. La formule dans ce cas est :
A1 = prix de revient = 5
A3 = Marge = 50
A2 = Prix de vente = (A1/(1+A3)*100 = 9.80

Je souhaiterais avoir sur une feuille excel ces 3
cellules

A1,A2 et A3 et pouvoir calculer soit mon prix de vente
soit ma marge. En résumé soit je saisis A1 et A2 pour
obtenir A3 OU je saisis A1 et A3 et j'obtiens A2.

Est-ce possible ?

Merci pour vos idées

--
Cordialement,

Michel Gaboly
http://www.gaboly.com


.

-----Message d'origine-----
Bonsoir et merci beaucoup
J'ai modifié le code comme suit :

Private Sub WORKSHEET_Change(ByVal Target As Excel.Range)
Application.EnableEvents = False
Select Case Target.Address(False, False)
Case "N50"
Target.Offset(1).Formula = "=((R[-1]C /
Laize / Longueur * 100000) - R[-2]C) / (R[-1]C / mm / m *
100000 )"
Target.Offset(1).NumberFormat = "0.00%"
Case "N51"
Target.Offset(-1).FormulaR1C1 = "=((R[-1]
C / 100000 * mm * m) / (1 - R[1]C))"
End Select
Application.EnableEvents = True
End Sub


En effet, le prix de revient N49 est exprimé aux 100 m² et
le prix de vente N50 est en surface (mm x m / 1000. Cela
fonctionne très bien Tu peux peut être encore m'aider :
N49 = Prix de revient
N50 = Prix de vente
N51 = Marge
Le prix de revient peut être aux 100 m² ou au Kilo et le
prix de vente lui, peut être exprimé en une dizaine
d'unités différentes. Je suis capable de monter les
formules en revanche, pas de rajouter des conditions du
type si le prix de revient est aux 100 m² et le prix de
vente au kilo alors formule...
Est-ce qu'il est possible donc d'inclure dans la macro des
conditions, sinon elle se limite à un seul calcul ?

Merci d'avance si tu as une piste.


Bonsoir

Entre ceci dans le module attaché à la feuille.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.EnableEvents = False
Select Case Target.Address(False, False)
Case "A2"
Target.Offset(1).Formula = "=(R[-1]C - R[-
2]C) / R[-1]C"

Target.Offset(1).NumberFormat = "0.00%"
Case "A3"
Target.Offset(-1).FormulaR1C1 = "=R[-1]
C / R[1]C"

End Select
Application.EnableEvents = True
End Sub

La saisie du taux de marge est à faire en pourcentage :
50 % (par exemple)

et non 50.

Bonsoir à tous et meilleurs voeux !

Je cherche une solution au problème suivant :

Je calcule une marge sur prix de vente soit : (prix de
vente - prix de revient ) / prix de vente.

J'ai le calcul suivant :
A1 = prix de revient = 5
A2 = prix de vente = 10
A3 = Marge = (A1-A2)/A2*100 soit 50% de marge

Dans le cas ci-dessus, mes données saisies sont donc A1
et

A2.
Or je souhaiterais pouvoir également saisir A1 et A3
pour

définir A2. La formule dans ce cas est :
A1 = prix de revient = 5
A3 = Marge = 50
A2 = Prix de vente = (A1/(1+A3)*100 = 9.80

Je souhaiterais avoir sur une feuille excel ces 3
cellules

A1,A2 et A3 et pouvoir calculer soit mon prix de vente
soit ma marge. En résumé soit je saisis A1 et A2 pour
obtenir A3 OU je saisis A1 et A3 et j'obtiens A2.

Est-ce possible ?

Merci pour vos idées

--
Cordialement,

Michel Gaboly
http://www.gaboly.com


.

-----Message d'origine-----
Bonsoir et merci beaucoup.

J'ai modifié la macro comme suit :

Private Sub WORKSHEET_Change(ByVal Target As Excel.Range)
Application.EnableEvents = False
Select Case Target.Address(False, False)
Case "N50"
Target.Offset(1).Formula = "=((R[-1]C /
Laize / Longueur * 100000) - R[-2]C) / (R[-1]C / Largeur /
Longueur * 100000 )"
Target.Offset(1).NumberFormat = "0.00%"
Case "N51"
Target.Offset(-1).FormulaR1C1 = "=((R[-1]
C / 100000 * Largeur * Longueur) / (1 - R[1]C))"
End Select
Application.EnableEvents = True
End Sub


Cela fonctionne très bien. Puis-je rajouter des
conditions : le prix de revient peut être au kilo ou aux
100 m² et le prix de vente peut être dans plusieurs unités
de facturation. ex : Dans la formule ci-dessus le PR est
au 100 m² et le PV est en surface ( Largeur x longueur ).
Je connais les autres formules de conversion mais je ne
sais pas comment inclure des conditions dans la macro.
Merci pour une piste si tu peux m'aider.

Bonsoir

Entre ceci dans le module attaché à la feuille.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.EnableEvents = False
Select Case Target.Address(False, False)
Case "A2"
Target.Offset(1).Formula = "=(R[-1]C - R[-
2]C) / R[-1]C"

Target.Offset(1).NumberFormat = "0.00%"
Case "A3"
Target.Offset(-1).FormulaR1C1 = "=R[-1]
C / R[1]C"

End Select
Application.EnableEvents = True
End Sub

La saisie du taux de marge est à faire en pourcentage :
50 % (par exemple)

et non 50.

Bonsoir à tous et meilleurs voeux !

Je cherche une solution au problème suivant :

Je calcule une marge sur prix de vente soit : (prix de
vente - prix de revient ) / prix de vente.

J'ai le calcul suivant :
A1 = prix de revient = 5
A2 = prix de vente = 10
A3 = Marge = (A1-A2)/A2*100 soit 50% de marge

Dans le cas ci-dessus, mes données saisies sont donc A1
et

A2.
Or je souhaiterais pouvoir également saisir A1 et A3
pour

définir A2. La formule dans ce cas est :
A1 = prix de revient = 5
A3 = Marge = 50
A2 = Prix de vente = (A1/(1+A3)*100 = 9.80

Je souhaiterais avoir sur une feuille excel ces 3
cellules

A1,A2 et A3 et pouvoir calculer soit mon prix de vente
soit ma marge. En résumé soit je saisis A1 et A2 pour
obtenir A3 OU je saisis A1 et A3 et j'obtiens A2.

Est-ce possible ?

Merci pour vos idées

--
Cordialement,

Michel Gaboly
http://www.gaboly.com


.