Bonjour
Je suis en train de me prendre la tête avec la TVA
J'ai différentes cellules au nombre de 6
1Taux de TVA
2Prix d'achat
3Coef de marge
4Nouveau Prix de vente
5Montant marge en ?
6Marge en %
Je pensais qu'en VBA cela serait un jeu d'enfant à savoir
si l'une des valeurs de 3 à 6 change alors les autres changent aussi
En clair je voudrais par exmple entrer une marge en % et les autres cellules
se mettent à jour,
ou entrer un coef
ou entrer un nouveau prix
etc
j'ai donc ce code mais je patine
Sub TVA()
If Range("Nouveau_Prix_de_Vente_HT") <> "" And Range("Prix_d_achat_HT") Then
Call Coef
Else
Call Nouveau
End If
If Range("Montant_de_la_marge_HT_en_?") = "" Then
Call Marge_euros
End If
If Range("Nouveau_Prix_de_Vente_HT") <> "" And
Range("Montant_de_la_marge_HT_en_?") Then
Range("Marge_en").Value = Range("Montant_de_la_marge_HT_en_?").Value /
Range("Nouveau_Prix_de_Vente_HT").Value
End If
If Range("Marge_en").Value <> "" Then
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_vente_HT").Value * Range("Marge_en").Value
End If
End Sub
Sub Coef()
Range("Coef").Value = Range("Nouveau_Prix_de_Vente_HT").Value /
Range("Prix_d_achat_HT").Value
End Sub
Sub Nouveau()
Range("Nouveau_Prix_de_vente_HT").Value = Range("Prix_d_achat_HT").Value *
Range("Coef").Value
End Sub
Sub Marge_euros()
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_Vente_HT").Value - Range("Prix_d_achat_HT").Value
End Sub
Sub Pourcent()
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_Vente_HT").Value * Range("Coef").Value
End Sub
quelqu'un a t'il un classeur ou un exemple merci
Pascal
Bonjour
Je suis en train de me prendre la tête avec la TVA
J'ai différentes cellules au nombre de 6
1Taux de TVA
2Prix d'achat
3Coef de marge
4Nouveau Prix de vente
5Montant marge en ?
6Marge en %
Je pensais qu'en VBA cela serait un jeu d'enfant à savoir
si l'une des valeurs de 3 à 6 change alors les autres changent aussi
En clair je voudrais par exmple entrer une marge en % et les autres cellules
se mettent à jour,
ou entrer un coef
ou entrer un nouveau prix
etc
j'ai donc ce code mais je patine
Sub TVA()
If Range("Nouveau_Prix_de_Vente_HT") <> "" And Range("Prix_d_achat_HT") Then
Call Coef
Else
Call Nouveau
End If
If Range("Montant_de_la_marge_HT_en_?") = "" Then
Call Marge_euros
End If
If Range("Nouveau_Prix_de_Vente_HT") <> "" And
Range("Montant_de_la_marge_HT_en_?") Then
Range("Marge_en").Value = Range("Montant_de_la_marge_HT_en_?").Value /
Range("Nouveau_Prix_de_Vente_HT").Value
End If
If Range("Marge_en").Value <> "" Then
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_vente_HT").Value * Range("Marge_en").Value
End If
End Sub
Sub Coef()
Range("Coef").Value = Range("Nouveau_Prix_de_Vente_HT").Value /
Range("Prix_d_achat_HT").Value
End Sub
Sub Nouveau()
Range("Nouveau_Prix_de_vente_HT").Value = Range("Prix_d_achat_HT").Value *
Range("Coef").Value
End Sub
Sub Marge_euros()
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_Vente_HT").Value - Range("Prix_d_achat_HT").Value
End Sub
Sub Pourcent()
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_Vente_HT").Value * Range("Coef").Value
End Sub
quelqu'un a t'il un classeur ou un exemple merci
Pascal
Bonjour
Je suis en train de me prendre la tête avec la TVA
J'ai différentes cellules au nombre de 6
1Taux de TVA
2Prix d'achat
3Coef de marge
4Nouveau Prix de vente
5Montant marge en ?
6Marge en %
Je pensais qu'en VBA cela serait un jeu d'enfant à savoir
si l'une des valeurs de 3 à 6 change alors les autres changent aussi
En clair je voudrais par exmple entrer une marge en % et les autres cellules
se mettent à jour,
ou entrer un coef
ou entrer un nouveau prix
etc
j'ai donc ce code mais je patine
Sub TVA()
If Range("Nouveau_Prix_de_Vente_HT") <> "" And Range("Prix_d_achat_HT") Then
Call Coef
Else
Call Nouveau
End If
If Range("Montant_de_la_marge_HT_en_?") = "" Then
Call Marge_euros
End If
If Range("Nouveau_Prix_de_Vente_HT") <> "" And
Range("Montant_de_la_marge_HT_en_?") Then
Range("Marge_en").Value = Range("Montant_de_la_marge_HT_en_?").Value /
Range("Nouveau_Prix_de_Vente_HT").Value
End If
If Range("Marge_en").Value <> "" Then
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_vente_HT").Value * Range("Marge_en").Value
End If
End Sub
Sub Coef()
Range("Coef").Value = Range("Nouveau_Prix_de_Vente_HT").Value /
Range("Prix_d_achat_HT").Value
End Sub
Sub Nouveau()
Range("Nouveau_Prix_de_vente_HT").Value = Range("Prix_d_achat_HT").Value *
Range("Coef").Value
End Sub
Sub Marge_euros()
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_Vente_HT").Value - Range("Prix_d_achat_HT").Value
End Sub
Sub Pourcent()
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_Vente_HT").Value * Range("Coef").Value
End Sub
quelqu'un a t'il un classeur ou un exemple merci
Pascal
Bonjour.
Mets un classeur avec quelques exemples sur www.cjoint.com. Poste ensuite
ici l'adresse générée.
Cordialement.
DanielBonjour
Je suis en train de me prendre la tête avec la TVA
J'ai différentes cellules au nombre de 6
1Taux de TVA
2Prix d'achat
3Coef de marge
4Nouveau Prix de vente
5Montant marge en ?
6Marge en %
Je pensais qu'en VBA cela serait un jeu d'enfant à savoir
si l'une des valeurs de 3 à 6 change alors les autres changent aussi
En clair je voudrais par exmple entrer une marge en % et les autres
cellules se mettent à jour,
ou entrer un coef
ou entrer un nouveau prix
etc
j'ai donc ce code mais je patine
Sub TVA()
If Range("Nouveau_Prix_de_Vente_HT") <> "" And Range("Prix_d_achat_HT")
Then
Call Coef
Else
Call Nouveau
End If
If Range("Montant_de_la_marge_HT_en_?") = "" Then
Call Marge_euros
End If
If Range("Nouveau_Prix_de_Vente_HT") <> "" And
Range("Montant_de_la_marge_HT_en_?") Then
Range("Marge_en").Value = Range("Montant_de_la_marge_HT_en_?").Value
/ Range("Nouveau_Prix_de_Vente_HT").Value
End If
If Range("Marge_en").Value <> "" Then
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_vente_HT").Value * Range("Marge_en").Value
End If
End Sub
Sub Coef()
Range("Coef").Value = Range("Nouveau_Prix_de_Vente_HT").Value /
Range("Prix_d_achat_HT").Value
End Sub
Sub Nouveau()
Range("Nouveau_Prix_de_vente_HT").Value = Range("Prix_d_achat_HT").Value
* Range("Coef").Value
End Sub
Sub Marge_euros()
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_Vente_HT").Value - Range("Prix_d_achat_HT").Value
End Sub
Sub Pourcent()
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_Vente_HT").Value * Range("Coef").Value
End Sub
quelqu'un a t'il un classeur ou un exemple merci
Pascal
Bonjour.
Mets un classeur avec quelques exemples sur www.cjoint.com. Poste ensuite
ici l'adresse générée.
Cordialement.
Daniel
Bonjour
Je suis en train de me prendre la tête avec la TVA
J'ai différentes cellules au nombre de 6
1Taux de TVA
2Prix d'achat
3Coef de marge
4Nouveau Prix de vente
5Montant marge en ?
6Marge en %
Je pensais qu'en VBA cela serait un jeu d'enfant à savoir
si l'une des valeurs de 3 à 6 change alors les autres changent aussi
En clair je voudrais par exmple entrer une marge en % et les autres
cellules se mettent à jour,
ou entrer un coef
ou entrer un nouveau prix
etc
j'ai donc ce code mais je patine
Sub TVA()
If Range("Nouveau_Prix_de_Vente_HT") <> "" And Range("Prix_d_achat_HT")
Then
Call Coef
Else
Call Nouveau
End If
If Range("Montant_de_la_marge_HT_en_?") = "" Then
Call Marge_euros
End If
If Range("Nouveau_Prix_de_Vente_HT") <> "" And
Range("Montant_de_la_marge_HT_en_?") Then
Range("Marge_en").Value = Range("Montant_de_la_marge_HT_en_?").Value
/ Range("Nouveau_Prix_de_Vente_HT").Value
End If
If Range("Marge_en").Value <> "" Then
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_vente_HT").Value * Range("Marge_en").Value
End If
End Sub
Sub Coef()
Range("Coef").Value = Range("Nouveau_Prix_de_Vente_HT").Value /
Range("Prix_d_achat_HT").Value
End Sub
Sub Nouveau()
Range("Nouveau_Prix_de_vente_HT").Value = Range("Prix_d_achat_HT").Value
* Range("Coef").Value
End Sub
Sub Marge_euros()
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_Vente_HT").Value - Range("Prix_d_achat_HT").Value
End Sub
Sub Pourcent()
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_Vente_HT").Value * Range("Coef").Value
End Sub
quelqu'un a t'il un classeur ou un exemple merci
Pascal
Bonjour.
Mets un classeur avec quelques exemples sur www.cjoint.com. Poste ensuite
ici l'adresse générée.
Cordialement.
DanielBonjour
Je suis en train de me prendre la tête avec la TVA
J'ai différentes cellules au nombre de 6
1Taux de TVA
2Prix d'achat
3Coef de marge
4Nouveau Prix de vente
5Montant marge en ?
6Marge en %
Je pensais qu'en VBA cela serait un jeu d'enfant à savoir
si l'une des valeurs de 3 à 6 change alors les autres changent aussi
En clair je voudrais par exmple entrer une marge en % et les autres
cellules se mettent à jour,
ou entrer un coef
ou entrer un nouveau prix
etc
j'ai donc ce code mais je patine
Sub TVA()
If Range("Nouveau_Prix_de_Vente_HT") <> "" And Range("Prix_d_achat_HT")
Then
Call Coef
Else
Call Nouveau
End If
If Range("Montant_de_la_marge_HT_en_?") = "" Then
Call Marge_euros
End If
If Range("Nouveau_Prix_de_Vente_HT") <> "" And
Range("Montant_de_la_marge_HT_en_?") Then
Range("Marge_en").Value = Range("Montant_de_la_marge_HT_en_?").Value
/ Range("Nouveau_Prix_de_Vente_HT").Value
End If
If Range("Marge_en").Value <> "" Then
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_vente_HT").Value * Range("Marge_en").Value
End If
End Sub
Sub Coef()
Range("Coef").Value = Range("Nouveau_Prix_de_Vente_HT").Value /
Range("Prix_d_achat_HT").Value
End Sub
Sub Nouveau()
Range("Nouveau_Prix_de_vente_HT").Value = Range("Prix_d_achat_HT").Value
* Range("Coef").Value
End Sub
Sub Marge_euros()
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_Vente_HT").Value - Range("Prix_d_achat_HT").Value
End Sub
Sub Pourcent()
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_Vente_HT").Value * Range("Coef").Value
End Sub
quelqu'un a t'il un classeur ou un exemple merci
Pascal
>> 1Taux de TVA
2Prix d'achat
3Coef de marge
4Nouveau Prix de vente
5Montant marge en ?
6Marge en %
Je pensais qu'en VBA cela serait un jeu d'enfant à savoir
si l'une des valeurs de 3 à 6 change alors les autres changent aussi
En clair je voudrais par exmple entrer une marge en % et les autres
cellules se mettent à jour,
ou entrer un coef
ou entrer un nouveau prix
etc
j'ai donc ce code mais je patine
Sub TVA()
If Range("Nouveau_Prix_de_Vente_HT") <> "" And
Range("Prix_d_achat_HT") Then Call Coef
Else
Call Nouveau
End If
If Range("Montant_de_la_marge_HT_en_?") = "" Then
Call Marge_euros
End If
If Range("Nouveau_Prix_de_Vente_HT") <> "" And
Range("Montant_de_la_marge_HT_en_?") Then
Range("Marge_en").Value >> Range("Montant_de_la_marge_HT_en_?").Value /
Range("Nouveau_Prix_de_Vente_HT").Value End If
If Range("Marge_en").Value <> "" Then
Range("Montant_de_la_marge_HT_en_?").Value >> Range("Nouveau_Prix_de_vente_HT").Value * Range("Marge_en").Value
End If
End Sub
Sub Coef()
Range("Coef").Value = Range("Nouveau_Prix_de_Vente_HT").Value /
Range("Prix_d_achat_HT").Value
End Sub
Sub Nouveau()
Range("Nouveau_Prix_de_vente_HT").Value >> Range("Prix_d_achat_HT").Value * Range("Coef").Value
End Sub
Sub Marge_euros()
Range("Montant_de_la_marge_HT_en_?").Value >> Range("Nouveau_Prix_de_Vente_HT").Value -
Range("Prix_d_achat_HT").Value End Sub
Sub Pourcent()
Range("Montant_de_la_marge_HT_en_?").Value >> Range("Nouveau_Prix_de_Vente_HT").Value * Range("Coef").Value
End Sub
>> 1Taux de TVA
2Prix d'achat
3Coef de marge
4Nouveau Prix de vente
5Montant marge en ?
6Marge en %
Je pensais qu'en VBA cela serait un jeu d'enfant à savoir
si l'une des valeurs de 3 à 6 change alors les autres changent aussi
En clair je voudrais par exmple entrer une marge en % et les autres
cellules se mettent à jour,
ou entrer un coef
ou entrer un nouveau prix
etc
j'ai donc ce code mais je patine
Sub TVA()
If Range("Nouveau_Prix_de_Vente_HT") <> "" And
Range("Prix_d_achat_HT") Then Call Coef
Else
Call Nouveau
End If
If Range("Montant_de_la_marge_HT_en_?") = "" Then
Call Marge_euros
End If
If Range("Nouveau_Prix_de_Vente_HT") <> "" And
Range("Montant_de_la_marge_HT_en_?") Then
Range("Marge_en").Value >> Range("Montant_de_la_marge_HT_en_?").Value /
Range("Nouveau_Prix_de_Vente_HT").Value End If
If Range("Marge_en").Value <> "" Then
Range("Montant_de_la_marge_HT_en_?").Value >> Range("Nouveau_Prix_de_vente_HT").Value * Range("Marge_en").Value
End If
End Sub
Sub Coef()
Range("Coef").Value = Range("Nouveau_Prix_de_Vente_HT").Value /
Range("Prix_d_achat_HT").Value
End Sub
Sub Nouveau()
Range("Nouveau_Prix_de_vente_HT").Value >> Range("Prix_d_achat_HT").Value * Range("Coef").Value
End Sub
Sub Marge_euros()
Range("Montant_de_la_marge_HT_en_?").Value >> Range("Nouveau_Prix_de_Vente_HT").Value -
Range("Prix_d_achat_HT").Value End Sub
Sub Pourcent()
Range("Montant_de_la_marge_HT_en_?").Value >> Range("Nouveau_Prix_de_Vente_HT").Value * Range("Coef").Value
End Sub
>> 1Taux de TVA
2Prix d'achat
3Coef de marge
4Nouveau Prix de vente
5Montant marge en ?
6Marge en %
Je pensais qu'en VBA cela serait un jeu d'enfant à savoir
si l'une des valeurs de 3 à 6 change alors les autres changent aussi
En clair je voudrais par exmple entrer une marge en % et les autres
cellules se mettent à jour,
ou entrer un coef
ou entrer un nouveau prix
etc
j'ai donc ce code mais je patine
Sub TVA()
If Range("Nouveau_Prix_de_Vente_HT") <> "" And
Range("Prix_d_achat_HT") Then Call Coef
Else
Call Nouveau
End If
If Range("Montant_de_la_marge_HT_en_?") = "" Then
Call Marge_euros
End If
If Range("Nouveau_Prix_de_Vente_HT") <> "" And
Range("Montant_de_la_marge_HT_en_?") Then
Range("Marge_en").Value >> Range("Montant_de_la_marge_HT_en_?").Value /
Range("Nouveau_Prix_de_Vente_HT").Value End If
If Range("Marge_en").Value <> "" Then
Range("Montant_de_la_marge_HT_en_?").Value >> Range("Nouveau_Prix_de_vente_HT").Value * Range("Marge_en").Value
End If
End Sub
Sub Coef()
Range("Coef").Value = Range("Nouveau_Prix_de_Vente_HT").Value /
Range("Prix_d_achat_HT").Value
End Sub
Sub Nouveau()
Range("Nouveau_Prix_de_vente_HT").Value >> Range("Prix_d_achat_HT").Value * Range("Coef").Value
End Sub
Sub Marge_euros()
Range("Montant_de_la_marge_HT_en_?").Value >> Range("Nouveau_Prix_de_Vente_HT").Value -
Range("Prix_d_achat_HT").Value End Sub
Sub Pourcent()
Range("Montant_de_la_marge_HT_en_?").Value >> Range("Nouveau_Prix_de_Vente_HT").Value * Range("Coef").Value
End Sub
Merci
Ici
http://cjoint.com/?gilHSnsIZF
"Daniel.C" a écrit dans le message de news:Bonjour.
Mets un classeur avec quelques exemples sur www.cjoint.com. Poste ensuite
ici l'adresse générée.
Cordialement.
DanielBonjour
Je suis en train de me prendre la tête avec la TVA
J'ai différentes cellules au nombre de 6
1Taux de TVA
2Prix d'achat
3Coef de marge
4Nouveau Prix de vente
5Montant marge en ?
6Marge en %
Je pensais qu'en VBA cela serait un jeu d'enfant à savoir
si l'une des valeurs de 3 à 6 change alors les autres changent aussi
En clair je voudrais par exmple entrer une marge en % et les autres
cellules se mettent à jour,
ou entrer un coef
ou entrer un nouveau prix
etc
j'ai donc ce code mais je patine
Sub TVA()
If Range("Nouveau_Prix_de_Vente_HT") <> "" And Range("Prix_d_achat_HT")
Then
Call Coef
Else
Call Nouveau
End If
If Range("Montant_de_la_marge_HT_en_?") = "" Then
Call Marge_euros
End If
If Range("Nouveau_Prix_de_Vente_HT") <> "" And
Range("Montant_de_la_marge_HT_en_?") Then
Range("Marge_en").Value = Range("Montant_de_la_marge_HT_en_?").Value /
Range("Nouveau_Prix_de_Vente_HT").Value
End If
If Range("Marge_en").Value <> "" Then
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_vente_HT").Value * Range("Marge_en").Value
End If
End Sub
Sub Coef()
Range("Coef").Value = Range("Nouveau_Prix_de_Vente_HT").Value /
Range("Prix_d_achat_HT").Value
End Sub
Sub Nouveau()
Range("Nouveau_Prix_de_vente_HT").Value = Range("Prix_d_achat_HT").Value *
Range("Coef").Value
End Sub
Sub Marge_euros()
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_Vente_HT").Value - Range("Prix_d_achat_HT").Value
End Sub
Sub Pourcent()
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_Vente_HT").Value * Range("Coef").Value
End Sub
quelqu'un a t'il un classeur ou un exemple merci
Pascal
Merci
Ici
http://cjoint.com/?gilHSnsIZF
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
u34IhrB6JHA.5180@TK2MSFTNGP04.phx.gbl...
Bonjour.
Mets un classeur avec quelques exemples sur www.cjoint.com. Poste ensuite
ici l'adresse générée.
Cordialement.
Daniel
Bonjour
Je suis en train de me prendre la tête avec la TVA
J'ai différentes cellules au nombre de 6
1Taux de TVA
2Prix d'achat
3Coef de marge
4Nouveau Prix de vente
5Montant marge en ?
6Marge en %
Je pensais qu'en VBA cela serait un jeu d'enfant à savoir
si l'une des valeurs de 3 à 6 change alors les autres changent aussi
En clair je voudrais par exmple entrer une marge en % et les autres
cellules se mettent à jour,
ou entrer un coef
ou entrer un nouveau prix
etc
j'ai donc ce code mais je patine
Sub TVA()
If Range("Nouveau_Prix_de_Vente_HT") <> "" And Range("Prix_d_achat_HT")
Then
Call Coef
Else
Call Nouveau
End If
If Range("Montant_de_la_marge_HT_en_?") = "" Then
Call Marge_euros
End If
If Range("Nouveau_Prix_de_Vente_HT") <> "" And
Range("Montant_de_la_marge_HT_en_?") Then
Range("Marge_en").Value = Range("Montant_de_la_marge_HT_en_?").Value /
Range("Nouveau_Prix_de_Vente_HT").Value
End If
If Range("Marge_en").Value <> "" Then
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_vente_HT").Value * Range("Marge_en").Value
End If
End Sub
Sub Coef()
Range("Coef").Value = Range("Nouveau_Prix_de_Vente_HT").Value /
Range("Prix_d_achat_HT").Value
End Sub
Sub Nouveau()
Range("Nouveau_Prix_de_vente_HT").Value = Range("Prix_d_achat_HT").Value *
Range("Coef").Value
End Sub
Sub Marge_euros()
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_Vente_HT").Value - Range("Prix_d_achat_HT").Value
End Sub
Sub Pourcent()
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_Vente_HT").Value * Range("Coef").Value
End Sub
quelqu'un a t'il un classeur ou un exemple merci
Pascal
Merci
Ici
http://cjoint.com/?gilHSnsIZF
"Daniel.C" a écrit dans le message de news:Bonjour.
Mets un classeur avec quelques exemples sur www.cjoint.com. Poste ensuite
ici l'adresse générée.
Cordialement.
DanielBonjour
Je suis en train de me prendre la tête avec la TVA
J'ai différentes cellules au nombre de 6
1Taux de TVA
2Prix d'achat
3Coef de marge
4Nouveau Prix de vente
5Montant marge en ?
6Marge en %
Je pensais qu'en VBA cela serait un jeu d'enfant à savoir
si l'une des valeurs de 3 à 6 change alors les autres changent aussi
En clair je voudrais par exmple entrer une marge en % et les autres
cellules se mettent à jour,
ou entrer un coef
ou entrer un nouveau prix
etc
j'ai donc ce code mais je patine
Sub TVA()
If Range("Nouveau_Prix_de_Vente_HT") <> "" And Range("Prix_d_achat_HT")
Then
Call Coef
Else
Call Nouveau
End If
If Range("Montant_de_la_marge_HT_en_?") = "" Then
Call Marge_euros
End If
If Range("Nouveau_Prix_de_Vente_HT") <> "" And
Range("Montant_de_la_marge_HT_en_?") Then
Range("Marge_en").Value = Range("Montant_de_la_marge_HT_en_?").Value /
Range("Nouveau_Prix_de_Vente_HT").Value
End If
If Range("Marge_en").Value <> "" Then
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_vente_HT").Value * Range("Marge_en").Value
End If
End Sub
Sub Coef()
Range("Coef").Value = Range("Nouveau_Prix_de_Vente_HT").Value /
Range("Prix_d_achat_HT").Value
End Sub
Sub Nouveau()
Range("Nouveau_Prix_de_vente_HT").Value = Range("Prix_d_achat_HT").Value *
Range("Coef").Value
End Sub
Sub Marge_euros()
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_Vente_HT").Value - Range("Prix_d_achat_HT").Value
End Sub
Sub Pourcent()
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_Vente_HT").Value * Range("Coef").Value
End Sub
quelqu'un a t'il un classeur ou un exemple merci
Pascal
Regarde ton fichier modifié :
http://www.cijoint.fr/cjlink.php?file=cj200906/cijVJ8eTpU.xls
J'ai ajouté la macro suivante dans le module de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Or Target.Column > 1 Or Target.Row > 13 _
Or Application.IsEven(Target.Row) Then Exit Sub
Application.EnableEvents = False
Select Case Target.Row
Case 7
[A9] = [A5] * [A7]
[A11] = [A9] - [A5]
[A13] = [A11] / [A9]
Case 9
[A7] = [A9] / [A5]
[A11] = [A9] - [A5]
[A13] = [A11] / [A9]
Case 11
[A7] = [A9] / [A5]
[A9] = [A5] * [A7]
[A13] = [A11] / [A9]
Case 13
[A7] = [A9] / [A5]
[A9] = [A5] * [A7]
[A11] = [A9] - [A5]
End Select
Application.EnableEvents = True
End Sub
Cordialement.
DanielMerci
Ici
http://cjoint.com/?gilHSnsIZF
"Daniel.C" a écrit dans le message de news:Bonjour.
Mets un classeur avec quelques exemples sur www.cjoint.com. Poste
ensuite ici l'adresse générée.
Cordialement.
DanielBonjour
Je suis en train de me prendre la tête avec la TVA
J'ai différentes cellules au nombre de 6
1Taux de TVA
2Prix d'achat
3Coef de marge
4Nouveau Prix de vente
5Montant marge en ?
6Marge en %
Je pensais qu'en VBA cela serait un jeu d'enfant à savoir
si l'une des valeurs de 3 à 6 change alors les autres changent aussi
En clair je voudrais par exmple entrer une marge en % et les autres
cellules se mettent à jour,
ou entrer un coef
ou entrer un nouveau prix
etc
j'ai donc ce code mais je patine
Sub TVA()
If Range("Nouveau_Prix_de_Vente_HT") <> "" And Range("Prix_d_achat_HT")
Then
Call Coef
Else
Call Nouveau
End If
If Range("Montant_de_la_marge_HT_en_?") = "" Then
Call Marge_euros
End If
If Range("Nouveau_Prix_de_Vente_HT") <> "" And
Range("Montant_de_la_marge_HT_en_?") Then
Range("Marge_en").Value =
Range("Montant_de_la_marge_HT_en_?").Value /
Range("Nouveau_Prix_de_Vente_HT").Value
End If
If Range("Marge_en").Value <> "" Then
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_vente_HT").Value * Range("Marge_en").Value
End If
End Sub
Sub Coef()
Range("Coef").Value = Range("Nouveau_Prix_de_Vente_HT").Value /
Range("Prix_d_achat_HT").Value
End Sub
Sub Nouveau()
Range("Nouveau_Prix_de_vente_HT").Value =
Range("Prix_d_achat_HT").Value * Range("Coef").Value
End Sub
Sub Marge_euros()
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_Vente_HT").Value -
Range("Prix_d_achat_HT").Value
End Sub
Sub Pourcent()
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_Vente_HT").Value * Range("Coef").Value
End Sub
quelqu'un a t'il un classeur ou un exemple merci
Pascal
Regarde ton fichier modifié :
http://www.cijoint.fr/cjlink.php?file=cj200906/cijVJ8eTpU.xls
J'ai ajouté la macro suivante dans le module de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Or Target.Column > 1 Or Target.Row > 13 _
Or Application.IsEven(Target.Row) Then Exit Sub
Application.EnableEvents = False
Select Case Target.Row
Case 7
[A9] = [A5] * [A7]
[A11] = [A9] - [A5]
[A13] = [A11] / [A9]
Case 9
[A7] = [A9] / [A5]
[A11] = [A9] - [A5]
[A13] = [A11] / [A9]
Case 11
[A7] = [A9] / [A5]
[A9] = [A5] * [A7]
[A13] = [A11] / [A9]
Case 13
[A7] = [A9] / [A5]
[A9] = [A5] * [A7]
[A11] = [A9] - [A5]
End Select
Application.EnableEvents = True
End Sub
Cordialement.
Daniel
Merci
Ici
http://cjoint.com/?gilHSnsIZF
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
u34IhrB6JHA.5180@TK2MSFTNGP04.phx.gbl...
Bonjour.
Mets un classeur avec quelques exemples sur www.cjoint.com. Poste
ensuite ici l'adresse générée.
Cordialement.
Daniel
Bonjour
Je suis en train de me prendre la tête avec la TVA
J'ai différentes cellules au nombre de 6
1Taux de TVA
2Prix d'achat
3Coef de marge
4Nouveau Prix de vente
5Montant marge en ?
6Marge en %
Je pensais qu'en VBA cela serait un jeu d'enfant à savoir
si l'une des valeurs de 3 à 6 change alors les autres changent aussi
En clair je voudrais par exmple entrer une marge en % et les autres
cellules se mettent à jour,
ou entrer un coef
ou entrer un nouveau prix
etc
j'ai donc ce code mais je patine
Sub TVA()
If Range("Nouveau_Prix_de_Vente_HT") <> "" And Range("Prix_d_achat_HT")
Then
Call Coef
Else
Call Nouveau
End If
If Range("Montant_de_la_marge_HT_en_?") = "" Then
Call Marge_euros
End If
If Range("Nouveau_Prix_de_Vente_HT") <> "" And
Range("Montant_de_la_marge_HT_en_?") Then
Range("Marge_en").Value =
Range("Montant_de_la_marge_HT_en_?").Value /
Range("Nouveau_Prix_de_Vente_HT").Value
End If
If Range("Marge_en").Value <> "" Then
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_vente_HT").Value * Range("Marge_en").Value
End If
End Sub
Sub Coef()
Range("Coef").Value = Range("Nouveau_Prix_de_Vente_HT").Value /
Range("Prix_d_achat_HT").Value
End Sub
Sub Nouveau()
Range("Nouveau_Prix_de_vente_HT").Value =
Range("Prix_d_achat_HT").Value * Range("Coef").Value
End Sub
Sub Marge_euros()
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_Vente_HT").Value -
Range("Prix_d_achat_HT").Value
End Sub
Sub Pourcent()
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_Vente_HT").Value * Range("Coef").Value
End Sub
quelqu'un a t'il un classeur ou un exemple merci
Pascal
Regarde ton fichier modifié :
http://www.cijoint.fr/cjlink.php?file=cj200906/cijVJ8eTpU.xls
J'ai ajouté la macro suivante dans le module de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Or Target.Column > 1 Or Target.Row > 13 _
Or Application.IsEven(Target.Row) Then Exit Sub
Application.EnableEvents = False
Select Case Target.Row
Case 7
[A9] = [A5] * [A7]
[A11] = [A9] - [A5]
[A13] = [A11] / [A9]
Case 9
[A7] = [A9] / [A5]
[A11] = [A9] - [A5]
[A13] = [A11] / [A9]
Case 11
[A7] = [A9] / [A5]
[A9] = [A5] * [A7]
[A13] = [A11] / [A9]
Case 13
[A7] = [A9] / [A5]
[A9] = [A5] * [A7]
[A11] = [A9] - [A5]
End Select
Application.EnableEvents = True
End Sub
Cordialement.
DanielMerci
Ici
http://cjoint.com/?gilHSnsIZF
"Daniel.C" a écrit dans le message de news:Bonjour.
Mets un classeur avec quelques exemples sur www.cjoint.com. Poste
ensuite ici l'adresse générée.
Cordialement.
DanielBonjour
Je suis en train de me prendre la tête avec la TVA
J'ai différentes cellules au nombre de 6
1Taux de TVA
2Prix d'achat
3Coef de marge
4Nouveau Prix de vente
5Montant marge en ?
6Marge en %
Je pensais qu'en VBA cela serait un jeu d'enfant à savoir
si l'une des valeurs de 3 à 6 change alors les autres changent aussi
En clair je voudrais par exmple entrer une marge en % et les autres
cellules se mettent à jour,
ou entrer un coef
ou entrer un nouveau prix
etc
j'ai donc ce code mais je patine
Sub TVA()
If Range("Nouveau_Prix_de_Vente_HT") <> "" And Range("Prix_d_achat_HT")
Then
Call Coef
Else
Call Nouveau
End If
If Range("Montant_de_la_marge_HT_en_?") = "" Then
Call Marge_euros
End If
If Range("Nouveau_Prix_de_Vente_HT") <> "" And
Range("Montant_de_la_marge_HT_en_?") Then
Range("Marge_en").Value =
Range("Montant_de_la_marge_HT_en_?").Value /
Range("Nouveau_Prix_de_Vente_HT").Value
End If
If Range("Marge_en").Value <> "" Then
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_vente_HT").Value * Range("Marge_en").Value
End If
End Sub
Sub Coef()
Range("Coef").Value = Range("Nouveau_Prix_de_Vente_HT").Value /
Range("Prix_d_achat_HT").Value
End Sub
Sub Nouveau()
Range("Nouveau_Prix_de_vente_HT").Value =
Range("Prix_d_achat_HT").Value * Range("Coef").Value
End Sub
Sub Marge_euros()
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_Vente_HT").Value -
Range("Prix_d_achat_HT").Value
End Sub
Sub Pourcent()
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_Vente_HT").Value * Range("Coef").Value
End Sub
quelqu'un a t'il un classeur ou un exemple merci
Pascal
Regarde ton fichier modifié :
http://www.cijoint.fr/cjlink.php?file=cj200906/cijVJ8eTpU.xls
J'ai ajouté la macro suivante dans le module de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Or Target.Column > 1 Or Target.Row > 13 _
Or Application.IsEven(Target.Row) Then Exit Sub
Application.EnableEvents = False
Select Case Target.Row
Case 7
[A9] = [A5] * [A7]
[A11] = [A9] - [A5]
[A13] = [A11] / [A9]
Case 9
[A7] = [A9] / [A5]
[A11] = [A9] - [A5]
[A13] = [A11] / [A9]
Case 11
[A7] = [A9] / [A5]
[A9] = [A5] * [A7]
[A13] = [A11] / [A9]
Case 13
[A7] = [A9] / [A5]
[A9] = [A5] * [A7]
[A11] = [A9] - [A5]
End Select
Application.EnableEvents = True
End Sub
Cordialement.
DanielMerci
Ici
http://cjoint.com/?gilHSnsIZF
"Daniel.C" a écrit dans le message de news:Bonjour.
Mets un classeur avec quelques exemples sur www.cjoint.com. Poste
ensuite ici l'adresse générée.
Cordialement.
DanielBonjour
Je suis en train de me prendre la tête avec la TVA
J'ai différentes cellules au nombre de 6
1Taux de TVA
2Prix d'achat
3Coef de marge
4Nouveau Prix de vente
5Montant marge en ?
6Marge en %
Je pensais qu'en VBA cela serait un jeu d'enfant à savoir
si l'une des valeurs de 3 à 6 change alors les autres changent aussi
En clair je voudrais par exmple entrer une marge en % et les autres
cellules se mettent à jour,
ou entrer un coef
ou entrer un nouveau prix
etc
j'ai donc ce code mais je patine
Sub TVA()
If Range("Nouveau_Prix_de_Vente_HT") <> "" And Range("Prix_d_achat_HT")
Then
Call Coef
Else
Call Nouveau
End If
If Range("Montant_de_la_marge_HT_en_?") = "" Then
Call Marge_euros
End If
If Range("Nouveau_Prix_de_Vente_HT") <> "" And
Range("Montant_de_la_marge_HT_en_?") Then
Range("Marge_en").Value =
Range("Montant_de_la_marge_HT_en_?").Value /
Range("Nouveau_Prix_de_Vente_HT").Value
End If
If Range("Marge_en").Value <> "" Then
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_vente_HT").Value * Range("Marge_en").Value
End If
End Sub
Sub Coef()
Range("Coef").Value = Range("Nouveau_Prix_de_Vente_HT").Value /
Range("Prix_d_achat_HT").Value
End Sub
Sub Nouveau()
Range("Nouveau_Prix_de_vente_HT").Value =
Range("Prix_d_achat_HT").Value * Range("Coef").Value
End Sub
Sub Marge_euros()
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_Vente_HT").Value -
Range("Prix_d_achat_HT").Value
End Sub
Sub Pourcent()
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_Vente_HT").Value * Range("Coef").Value
End Sub
quelqu'un a t'il un classeur ou un exemple merci
Pascal
Regarde ton fichier modifié :
http://www.cijoint.fr/cjlink.php?file=cj200906/cijVJ8eTpU.xls
J'ai ajouté la macro suivante dans le module de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Or Target.Column > 1 Or Target.Row > 13 _
Or Application.IsEven(Target.Row) Then Exit Sub
Application.EnableEvents = False
Select Case Target.Row
Case 7
[A9] = [A5] * [A7]
[A11] = [A9] - [A5]
[A13] = [A11] / [A9]
Case 9
[A7] = [A9] / [A5]
[A11] = [A9] - [A5]
[A13] = [A11] / [A9]
Case 11
[A7] = [A9] / [A5]
[A9] = [A5] * [A7]
[A13] = [A11] / [A9]
Case 13
[A7] = [A9] / [A5]
[A9] = [A5] * [A7]
[A11] = [A9] - [A5]
End Select
Application.EnableEvents = True
End Sub
Cordialement.
Daniel
Merci
Ici
http://cjoint.com/?gilHSnsIZF
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
u34IhrB6JHA.5180@TK2MSFTNGP04.phx.gbl...
Bonjour.
Mets un classeur avec quelques exemples sur www.cjoint.com. Poste
ensuite ici l'adresse générée.
Cordialement.
Daniel
Bonjour
Je suis en train de me prendre la tête avec la TVA
J'ai différentes cellules au nombre de 6
1Taux de TVA
2Prix d'achat
3Coef de marge
4Nouveau Prix de vente
5Montant marge en ?
6Marge en %
Je pensais qu'en VBA cela serait un jeu d'enfant à savoir
si l'une des valeurs de 3 à 6 change alors les autres changent aussi
En clair je voudrais par exmple entrer une marge en % et les autres
cellules se mettent à jour,
ou entrer un coef
ou entrer un nouveau prix
etc
j'ai donc ce code mais je patine
Sub TVA()
If Range("Nouveau_Prix_de_Vente_HT") <> "" And Range("Prix_d_achat_HT")
Then
Call Coef
Else
Call Nouveau
End If
If Range("Montant_de_la_marge_HT_en_?") = "" Then
Call Marge_euros
End If
If Range("Nouveau_Prix_de_Vente_HT") <> "" And
Range("Montant_de_la_marge_HT_en_?") Then
Range("Marge_en").Value =
Range("Montant_de_la_marge_HT_en_?").Value /
Range("Nouveau_Prix_de_Vente_HT").Value
End If
If Range("Marge_en").Value <> "" Then
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_vente_HT").Value * Range("Marge_en").Value
End If
End Sub
Sub Coef()
Range("Coef").Value = Range("Nouveau_Prix_de_Vente_HT").Value /
Range("Prix_d_achat_HT").Value
End Sub
Sub Nouveau()
Range("Nouveau_Prix_de_vente_HT").Value =
Range("Prix_d_achat_HT").Value * Range("Coef").Value
End Sub
Sub Marge_euros()
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_Vente_HT").Value -
Range("Prix_d_achat_HT").Value
End Sub
Sub Pourcent()
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_Vente_HT").Value * Range("Coef").Value
End Sub
quelqu'un a t'il un classeur ou un exemple merci
Pascal
Regarde ton fichier modifié :
http://www.cijoint.fr/cjlink.php?file=cj200906/cijVJ8eTpU.xls
J'ai ajouté la macro suivante dans le module de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Or Target.Column > 1 Or Target.Row > 13 _
Or Application.IsEven(Target.Row) Then Exit Sub
Application.EnableEvents = False
Select Case Target.Row
Case 7
[A9] = [A5] * [A7]
[A11] = [A9] - [A5]
[A13] = [A11] / [A9]
Case 9
[A7] = [A9] / [A5]
[A11] = [A9] - [A5]
[A13] = [A11] / [A9]
Case 11
[A7] = [A9] / [A5]
[A9] = [A5] * [A7]
[A13] = [A11] / [A9]
Case 13
[A7] = [A9] / [A5]
[A9] = [A5] * [A7]
[A11] = [A9] - [A5]
End Select
Application.EnableEvents = True
End Sub
Cordialement.
DanielMerci
Ici
http://cjoint.com/?gilHSnsIZF
"Daniel.C" a écrit dans le message de news:Bonjour.
Mets un classeur avec quelques exemples sur www.cjoint.com. Poste
ensuite ici l'adresse générée.
Cordialement.
DanielBonjour
Je suis en train de me prendre la tête avec la TVA
J'ai différentes cellules au nombre de 6
1Taux de TVA
2Prix d'achat
3Coef de marge
4Nouveau Prix de vente
5Montant marge en ?
6Marge en %
Je pensais qu'en VBA cela serait un jeu d'enfant à savoir
si l'une des valeurs de 3 à 6 change alors les autres changent aussi
En clair je voudrais par exmple entrer une marge en % et les autres
cellules se mettent à jour,
ou entrer un coef
ou entrer un nouveau prix
etc
j'ai donc ce code mais je patine
Sub TVA()
If Range("Nouveau_Prix_de_Vente_HT") <> "" And Range("Prix_d_achat_HT")
Then
Call Coef
Else
Call Nouveau
End If
If Range("Montant_de_la_marge_HT_en_?") = "" Then
Call Marge_euros
End If
If Range("Nouveau_Prix_de_Vente_HT") <> "" And
Range("Montant_de_la_marge_HT_en_?") Then
Range("Marge_en").Value =
Range("Montant_de_la_marge_HT_en_?").Value /
Range("Nouveau_Prix_de_Vente_HT").Value
End If
If Range("Marge_en").Value <> "" Then
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_vente_HT").Value * Range("Marge_en").Value
End If
End Sub
Sub Coef()
Range("Coef").Value = Range("Nouveau_Prix_de_Vente_HT").Value /
Range("Prix_d_achat_HT").Value
End Sub
Sub Nouveau()
Range("Nouveau_Prix_de_vente_HT").Value =
Range("Prix_d_achat_HT").Value * Range("Coef").Value
End Sub
Sub Marge_euros()
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_Vente_HT").Value -
Range("Prix_d_achat_HT").Value
End Sub
Sub Pourcent()
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_Vente_HT").Value * Range("Coef").Value
End Sub
quelqu'un a t'il un classeur ou un exemple merci
Pascal
J'ai un message d'erreur "methode non gérée par cet objet"
"Daniel.C" a écrit dans le message de news:
%Regarde ton fichier modifié :
http://www.cijoint.fr/cjlink.php?file=cj200906/cijVJ8eTpU.xls
J'ai ajouté la macro suivante dans le module de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Or Target.Column > 1 Or Target.Row > 13 _
Or Application.IsEven(Target.Row) Then Exit Sub
Application.EnableEvents = False
Select Case Target.Row
Case 7
[A9] = [A5] * [A7]
[A11] = [A9] - [A5]
[A13] = [A11] / [A9]
Case 9
[A7] = [A9] / [A5]
[A11] = [A9] - [A5]
[A13] = [A11] / [A9]
Case 11
[A7] = [A9] / [A5]
[A9] = [A5] * [A7]
[A13] = [A11] / [A9]
Case 13
[A7] = [A9] / [A5]
[A9] = [A5] * [A7]
[A11] = [A9] - [A5]
End Select
Application.EnableEvents = True
End Sub
Cordialement.
DanielMerci
Ici
http://cjoint.com/?gilHSnsIZF
"Daniel.C" a écrit dans le message de news:Bonjour.
Mets un classeur avec quelques exemples sur www.cjoint.com. Poste ensuite
ici l'adresse générée.
Cordialement.
DanielBonjour
Je suis en train de me prendre la tête avec la TVA
J'ai différentes cellules au nombre de 6
1Taux de TVA
2Prix d'achat
3Coef de marge
4Nouveau Prix de vente
5Montant marge en ?
6Marge en %
Je pensais qu'en VBA cela serait un jeu d'enfant à savoir
si l'une des valeurs de 3 à 6 change alors les autres changent aussi
En clair je voudrais par exmple entrer une marge en % et les autres
cellules se mettent à jour,
ou entrer un coef
ou entrer un nouveau prix
etc
j'ai donc ce code mais je patine
Sub TVA()
If Range("Nouveau_Prix_de_Vente_HT") <> "" And Range("Prix_d_achat_HT")
Then
Call Coef
Else
Call Nouveau
End If
If Range("Montant_de_la_marge_HT_en_?") = "" Then
Call Marge_euros
End If
If Range("Nouveau_Prix_de_Vente_HT") <> "" And
Range("Montant_de_la_marge_HT_en_?") Then
Range("Marge_en").Value = Range("Montant_de_la_marge_HT_en_?").Value
/ Range("Nouveau_Prix_de_Vente_HT").Value
End If
If Range("Marge_en").Value <> "" Then
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_vente_HT").Value * Range("Marge_en").Value
End If
End Sub
Sub Coef()
Range("Coef").Value = Range("Nouveau_Prix_de_Vente_HT").Value /
Range("Prix_d_achat_HT").Value
End Sub
Sub Nouveau()
Range("Nouveau_Prix_de_vente_HT").Value = Range("Prix_d_achat_HT").Value
* Range("Coef").Value
End Sub
Sub Marge_euros()
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_Vente_HT").Value - Range("Prix_d_achat_HT").Value
End Sub
Sub Pourcent()
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_Vente_HT").Value * Range("Coef").Value
End Sub
quelqu'un a t'il un classeur ou un exemple merci
Pascal
J'ai un message d'erreur "methode non gérée par cet objet"
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
%23P4cMdC6JHA.480@TK2MSFTNGP06.phx.gbl...
Regarde ton fichier modifié :
http://www.cijoint.fr/cjlink.php?file=cj200906/cijVJ8eTpU.xls
J'ai ajouté la macro suivante dans le module de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Or Target.Column > 1 Or Target.Row > 13 _
Or Application.IsEven(Target.Row) Then Exit Sub
Application.EnableEvents = False
Select Case Target.Row
Case 7
[A9] = [A5] * [A7]
[A11] = [A9] - [A5]
[A13] = [A11] / [A9]
Case 9
[A7] = [A9] / [A5]
[A11] = [A9] - [A5]
[A13] = [A11] / [A9]
Case 11
[A7] = [A9] / [A5]
[A9] = [A5] * [A7]
[A13] = [A11] / [A9]
Case 13
[A7] = [A9] / [A5]
[A9] = [A5] * [A7]
[A11] = [A9] - [A5]
End Select
Application.EnableEvents = True
End Sub
Cordialement.
Daniel
Merci
Ici
http://cjoint.com/?gilHSnsIZF
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
u34IhrB6JHA.5180@TK2MSFTNGP04.phx.gbl...
Bonjour.
Mets un classeur avec quelques exemples sur www.cjoint.com. Poste ensuite
ici l'adresse générée.
Cordialement.
Daniel
Bonjour
Je suis en train de me prendre la tête avec la TVA
J'ai différentes cellules au nombre de 6
1Taux de TVA
2Prix d'achat
3Coef de marge
4Nouveau Prix de vente
5Montant marge en ?
6Marge en %
Je pensais qu'en VBA cela serait un jeu d'enfant à savoir
si l'une des valeurs de 3 à 6 change alors les autres changent aussi
En clair je voudrais par exmple entrer une marge en % et les autres
cellules se mettent à jour,
ou entrer un coef
ou entrer un nouveau prix
etc
j'ai donc ce code mais je patine
Sub TVA()
If Range("Nouveau_Prix_de_Vente_HT") <> "" And Range("Prix_d_achat_HT")
Then
Call Coef
Else
Call Nouveau
End If
If Range("Montant_de_la_marge_HT_en_?") = "" Then
Call Marge_euros
End If
If Range("Nouveau_Prix_de_Vente_HT") <> "" And
Range("Montant_de_la_marge_HT_en_?") Then
Range("Marge_en").Value = Range("Montant_de_la_marge_HT_en_?").Value
/ Range("Nouveau_Prix_de_Vente_HT").Value
End If
If Range("Marge_en").Value <> "" Then
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_vente_HT").Value * Range("Marge_en").Value
End If
End Sub
Sub Coef()
Range("Coef").Value = Range("Nouveau_Prix_de_Vente_HT").Value /
Range("Prix_d_achat_HT").Value
End Sub
Sub Nouveau()
Range("Nouveau_Prix_de_vente_HT").Value = Range("Prix_d_achat_HT").Value
* Range("Coef").Value
End Sub
Sub Marge_euros()
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_Vente_HT").Value - Range("Prix_d_achat_HT").Value
End Sub
Sub Pourcent()
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_Vente_HT").Value * Range("Coef").Value
End Sub
quelqu'un a t'il un classeur ou un exemple merci
Pascal
J'ai un message d'erreur "methode non gérée par cet objet"
"Daniel.C" a écrit dans le message de news:
%Regarde ton fichier modifié :
http://www.cijoint.fr/cjlink.php?file=cj200906/cijVJ8eTpU.xls
J'ai ajouté la macro suivante dans le module de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Or Target.Column > 1 Or Target.Row > 13 _
Or Application.IsEven(Target.Row) Then Exit Sub
Application.EnableEvents = False
Select Case Target.Row
Case 7
[A9] = [A5] * [A7]
[A11] = [A9] - [A5]
[A13] = [A11] / [A9]
Case 9
[A7] = [A9] / [A5]
[A11] = [A9] - [A5]
[A13] = [A11] / [A9]
Case 11
[A7] = [A9] / [A5]
[A9] = [A5] * [A7]
[A13] = [A11] / [A9]
Case 13
[A7] = [A9] / [A5]
[A9] = [A5] * [A7]
[A11] = [A9] - [A5]
End Select
Application.EnableEvents = True
End Sub
Cordialement.
DanielMerci
Ici
http://cjoint.com/?gilHSnsIZF
"Daniel.C" a écrit dans le message de news:Bonjour.
Mets un classeur avec quelques exemples sur www.cjoint.com. Poste ensuite
ici l'adresse générée.
Cordialement.
DanielBonjour
Je suis en train de me prendre la tête avec la TVA
J'ai différentes cellules au nombre de 6
1Taux de TVA
2Prix d'achat
3Coef de marge
4Nouveau Prix de vente
5Montant marge en ?
6Marge en %
Je pensais qu'en VBA cela serait un jeu d'enfant à savoir
si l'une des valeurs de 3 à 6 change alors les autres changent aussi
En clair je voudrais par exmple entrer une marge en % et les autres
cellules se mettent à jour,
ou entrer un coef
ou entrer un nouveau prix
etc
j'ai donc ce code mais je patine
Sub TVA()
If Range("Nouveau_Prix_de_Vente_HT") <> "" And Range("Prix_d_achat_HT")
Then
Call Coef
Else
Call Nouveau
End If
If Range("Montant_de_la_marge_HT_en_?") = "" Then
Call Marge_euros
End If
If Range("Nouveau_Prix_de_Vente_HT") <> "" And
Range("Montant_de_la_marge_HT_en_?") Then
Range("Marge_en").Value = Range("Montant_de_la_marge_HT_en_?").Value
/ Range("Nouveau_Prix_de_Vente_HT").Value
End If
If Range("Marge_en").Value <> "" Then
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_vente_HT").Value * Range("Marge_en").Value
End If
End Sub
Sub Coef()
Range("Coef").Value = Range("Nouveau_Prix_de_Vente_HT").Value /
Range("Prix_d_achat_HT").Value
End Sub
Sub Nouveau()
Range("Nouveau_Prix_de_vente_HT").Value = Range("Prix_d_achat_HT").Value
* Range("Coef").Value
End Sub
Sub Marge_euros()
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_Vente_HT").Value - Range("Prix_d_achat_HT").Value
End Sub
Sub Pourcent()
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_Vente_HT").Value * Range("Coef").Value
End Sub
quelqu'un a t'il un classeur ou un exemple merci
Pascal
Quelle opération provoque cette erreur ?
DanielJ'ai un message d'erreur "methode non gérée par cet objet"
"Daniel.C" a écrit dans le message de news:
%Regarde ton fichier modifié :
http://www.cijoint.fr/cjlink.php?file=cj200906/cijVJ8eTpU.xls
J'ai ajouté la macro suivante dans le module de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Or Target.Column > 1 Or Target.Row > 13 _
Or Application.IsEven(Target.Row) Then Exit Sub
Application.EnableEvents = False
Select Case Target.Row
Case 7
[A9] = [A5] * [A7]
[A11] = [A9] - [A5]
[A13] = [A11] / [A9]
Case 9
[A7] = [A9] / [A5]
[A11] = [A9] - [A5]
[A13] = [A11] / [A9]
Case 11
[A7] = [A9] / [A5]
[A9] = [A5] * [A7]
[A13] = [A11] / [A9]
Case 13
[A7] = [A9] / [A5]
[A9] = [A5] * [A7]
[A11] = [A9] - [A5]
End Select
Application.EnableEvents = True
End Sub
Cordialement.
DanielMerci
Ici
http://cjoint.com/?gilHSnsIZF
"Daniel.C" a écrit dans le message de news:Bonjour.
Mets un classeur avec quelques exemples sur www.cjoint.com. Poste
ensuite ici l'adresse générée.
Cordialement.
DanielBonjour
Je suis en train de me prendre la tête avec la TVA
J'ai différentes cellules au nombre de 6
1Taux de TVA
2Prix d'achat
3Coef de marge
4Nouveau Prix de vente
5Montant marge en ?
6Marge en %
Je pensais qu'en VBA cela serait un jeu d'enfant à savoir
si l'une des valeurs de 3 à 6 change alors les autres changent aussi
En clair je voudrais par exmple entrer une marge en % et les autres
cellules se mettent à jour,
ou entrer un coef
ou entrer un nouveau prix
etc
j'ai donc ce code mais je patine
Sub TVA()
If Range("Nouveau_Prix_de_Vente_HT") <> "" And
Range("Prix_d_achat_HT") Then
Call Coef
Else
Call Nouveau
End If
If Range("Montant_de_la_marge_HT_en_?") = "" Then
Call Marge_euros
End If
If Range("Nouveau_Prix_de_Vente_HT") <> "" And
Range("Montant_de_la_marge_HT_en_?") Then
Range("Marge_en").Value =
Range("Montant_de_la_marge_HT_en_?").Value /
Range("Nouveau_Prix_de_Vente_HT").Value
End If
If Range("Marge_en").Value <> "" Then
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_vente_HT").Value * Range("Marge_en").Value
End If
End Sub
Sub Coef()
Range("Coef").Value = Range("Nouveau_Prix_de_Vente_HT").Value /
Range("Prix_d_achat_HT").Value
End Sub
Sub Nouveau()
Range("Nouveau_Prix_de_vente_HT").Value =
Range("Prix_d_achat_HT").Value * Range("Coef").Value
End Sub
Sub Marge_euros()
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_Vente_HT").Value -
Range("Prix_d_achat_HT").Value
End Sub
Sub Pourcent()
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_Vente_HT").Value * Range("Coef").Value
End Sub
quelqu'un a t'il un classeur ou un exemple merci
Pascal
Quelle opération provoque cette erreur ?
Daniel
J'ai un message d'erreur "methode non gérée par cet objet"
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
%23P4cMdC6JHA.480@TK2MSFTNGP06.phx.gbl...
Regarde ton fichier modifié :
http://www.cijoint.fr/cjlink.php?file=cj200906/cijVJ8eTpU.xls
J'ai ajouté la macro suivante dans le module de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Or Target.Column > 1 Or Target.Row > 13 _
Or Application.IsEven(Target.Row) Then Exit Sub
Application.EnableEvents = False
Select Case Target.Row
Case 7
[A9] = [A5] * [A7]
[A11] = [A9] - [A5]
[A13] = [A11] / [A9]
Case 9
[A7] = [A9] / [A5]
[A11] = [A9] - [A5]
[A13] = [A11] / [A9]
Case 11
[A7] = [A9] / [A5]
[A9] = [A5] * [A7]
[A13] = [A11] / [A9]
Case 13
[A7] = [A9] / [A5]
[A9] = [A5] * [A7]
[A11] = [A9] - [A5]
End Select
Application.EnableEvents = True
End Sub
Cordialement.
Daniel
Merci
Ici
http://cjoint.com/?gilHSnsIZF
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
u34IhrB6JHA.5180@TK2MSFTNGP04.phx.gbl...
Bonjour.
Mets un classeur avec quelques exemples sur www.cjoint.com. Poste
ensuite ici l'adresse générée.
Cordialement.
Daniel
Bonjour
Je suis en train de me prendre la tête avec la TVA
J'ai différentes cellules au nombre de 6
1Taux de TVA
2Prix d'achat
3Coef de marge
4Nouveau Prix de vente
5Montant marge en ?
6Marge en %
Je pensais qu'en VBA cela serait un jeu d'enfant à savoir
si l'une des valeurs de 3 à 6 change alors les autres changent aussi
En clair je voudrais par exmple entrer une marge en % et les autres
cellules se mettent à jour,
ou entrer un coef
ou entrer un nouveau prix
etc
j'ai donc ce code mais je patine
Sub TVA()
If Range("Nouveau_Prix_de_Vente_HT") <> "" And
Range("Prix_d_achat_HT") Then
Call Coef
Else
Call Nouveau
End If
If Range("Montant_de_la_marge_HT_en_?") = "" Then
Call Marge_euros
End If
If Range("Nouveau_Prix_de_Vente_HT") <> "" And
Range("Montant_de_la_marge_HT_en_?") Then
Range("Marge_en").Value =
Range("Montant_de_la_marge_HT_en_?").Value /
Range("Nouveau_Prix_de_Vente_HT").Value
End If
If Range("Marge_en").Value <> "" Then
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_vente_HT").Value * Range("Marge_en").Value
End If
End Sub
Sub Coef()
Range("Coef").Value = Range("Nouveau_Prix_de_Vente_HT").Value /
Range("Prix_d_achat_HT").Value
End Sub
Sub Nouveau()
Range("Nouveau_Prix_de_vente_HT").Value =
Range("Prix_d_achat_HT").Value * Range("Coef").Value
End Sub
Sub Marge_euros()
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_Vente_HT").Value -
Range("Prix_d_achat_HT").Value
End Sub
Sub Pourcent()
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_Vente_HT").Value * Range("Coef").Value
End Sub
quelqu'un a t'il un classeur ou un exemple merci
Pascal
Quelle opération provoque cette erreur ?
DanielJ'ai un message d'erreur "methode non gérée par cet objet"
"Daniel.C" a écrit dans le message de news:
%Regarde ton fichier modifié :
http://www.cijoint.fr/cjlink.php?file=cj200906/cijVJ8eTpU.xls
J'ai ajouté la macro suivante dans le module de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Or Target.Column > 1 Or Target.Row > 13 _
Or Application.IsEven(Target.Row) Then Exit Sub
Application.EnableEvents = False
Select Case Target.Row
Case 7
[A9] = [A5] * [A7]
[A11] = [A9] - [A5]
[A13] = [A11] / [A9]
Case 9
[A7] = [A9] / [A5]
[A11] = [A9] - [A5]
[A13] = [A11] / [A9]
Case 11
[A7] = [A9] / [A5]
[A9] = [A5] * [A7]
[A13] = [A11] / [A9]
Case 13
[A7] = [A9] / [A5]
[A9] = [A5] * [A7]
[A11] = [A9] - [A5]
End Select
Application.EnableEvents = True
End Sub
Cordialement.
DanielMerci
Ici
http://cjoint.com/?gilHSnsIZF
"Daniel.C" a écrit dans le message de news:Bonjour.
Mets un classeur avec quelques exemples sur www.cjoint.com. Poste
ensuite ici l'adresse générée.
Cordialement.
DanielBonjour
Je suis en train de me prendre la tête avec la TVA
J'ai différentes cellules au nombre de 6
1Taux de TVA
2Prix d'achat
3Coef de marge
4Nouveau Prix de vente
5Montant marge en ?
6Marge en %
Je pensais qu'en VBA cela serait un jeu d'enfant à savoir
si l'une des valeurs de 3 à 6 change alors les autres changent aussi
En clair je voudrais par exmple entrer une marge en % et les autres
cellules se mettent à jour,
ou entrer un coef
ou entrer un nouveau prix
etc
j'ai donc ce code mais je patine
Sub TVA()
If Range("Nouveau_Prix_de_Vente_HT") <> "" And
Range("Prix_d_achat_HT") Then
Call Coef
Else
Call Nouveau
End If
If Range("Montant_de_la_marge_HT_en_?") = "" Then
Call Marge_euros
End If
If Range("Nouveau_Prix_de_Vente_HT") <> "" And
Range("Montant_de_la_marge_HT_en_?") Then
Range("Marge_en").Value =
Range("Montant_de_la_marge_HT_en_?").Value /
Range("Nouveau_Prix_de_Vente_HT").Value
End If
If Range("Marge_en").Value <> "" Then
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_vente_HT").Value * Range("Marge_en").Value
End If
End Sub
Sub Coef()
Range("Coef").Value = Range("Nouveau_Prix_de_Vente_HT").Value /
Range("Prix_d_achat_HT").Value
End Sub
Sub Nouveau()
Range("Nouveau_Prix_de_vente_HT").Value =
Range("Prix_d_achat_HT").Value * Range("Coef").Value
End Sub
Sub Marge_euros()
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_Vente_HT").Value -
Range("Prix_d_achat_HT").Value
End Sub
Sub Pourcent()
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_Vente_HT").Value * Range("Coef").Value
End Sub
quelqu'un a t'il un classeur ou un exemple merci
Pascal
le simple changement d'une donnée en a7,9,11 ou 13
"Daniel.C" a écrit dans le message de news:
%Quelle opération provoque cette erreur ?
DanielJ'ai un message d'erreur "methode non gérée par cet objet"
"Daniel.C" a écrit dans le message de news:
%Regarde ton fichier modifié :
http://www.cijoint.fr/cjlink.php?file=cj200906/cijVJ8eTpU.xls
J'ai ajouté la macro suivante dans le module de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Or Target.Column > 1 Or Target.Row > 13 _
Or Application.IsEven(Target.Row) Then Exit Sub
Application.EnableEvents = False
Select Case Target.Row
Case 7
[A9] = [A5] * [A7]
[A11] = [A9] - [A5]
[A13] = [A11] / [A9]
Case 9
[A7] = [A9] / [A5]
[A11] = [A9] - [A5]
[A13] = [A11] / [A9]
Case 11
[A7] = [A9] / [A5]
[A9] = [A5] * [A7]
[A13] = [A11] / [A9]
Case 13
[A7] = [A9] / [A5]
[A9] = [A5] * [A7]
[A11] = [A9] - [A5]
End Select
Application.EnableEvents = True
End Sub
Cordialement.
DanielMerci
Ici
http://cjoint.com/?gilHSnsIZF
"Daniel.C" a écrit dans le message de news:Bonjour.
Mets un classeur avec quelques exemples sur www.cjoint.com. Poste
ensuite ici l'adresse générée.
Cordialement.
DanielBonjour
Je suis en train de me prendre la tête avec la TVA
J'ai différentes cellules au nombre de 6
1Taux de TVA
2Prix d'achat
3Coef de marge
4Nouveau Prix de vente
5Montant marge en ?
6Marge en %
Je pensais qu'en VBA cela serait un jeu d'enfant à savoir
si l'une des valeurs de 3 à 6 change alors les autres changent aussi
En clair je voudrais par exmple entrer une marge en % et les autres
cellules se mettent à jour,
ou entrer un coef
ou entrer un nouveau prix
etc
j'ai donc ce code mais je patine
Sub TVA()
If Range("Nouveau_Prix_de_Vente_HT") <> "" And
Range("Prix_d_achat_HT") Then
Call Coef
Else
Call Nouveau
End If
If Range("Montant_de_la_marge_HT_en_?") = "" Then
Call Marge_euros
End If
If Range("Nouveau_Prix_de_Vente_HT") <> "" And
Range("Montant_de_la_marge_HT_en_?") Then
Range("Marge_en").Value =
Range("Montant_de_la_marge_HT_en_?").Value /
Range("Nouveau_Prix_de_Vente_HT").Value
End If
If Range("Marge_en").Value <> "" Then
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_vente_HT").Value * Range("Marge_en").Value
End If
End Sub
Sub Coef()
Range("Coef").Value = Range("Nouveau_Prix_de_Vente_HT").Value /
Range("Prix_d_achat_HT").Value
End Sub
Sub Nouveau()
Range("Nouveau_Prix_de_vente_HT").Value =
Range("Prix_d_achat_HT").Value * Range("Coef").Value
End Sub
Sub Marge_euros()
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_Vente_HT").Value -
Range("Prix_d_achat_HT").Value
End Sub
Sub Pourcent()
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_Vente_HT").Value * Range("Coef").Value
End Sub
quelqu'un a t'il un classeur ou un exemple merci
Pascal
le simple changement d'une donnée en a7,9,11 ou 13
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
%23QINlyC6JHA.2456@TK2MSFTNGP02.phx.gbl...
Quelle opération provoque cette erreur ?
Daniel
J'ai un message d'erreur "methode non gérée par cet objet"
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
%23P4cMdC6JHA.480@TK2MSFTNGP06.phx.gbl...
Regarde ton fichier modifié :
http://www.cijoint.fr/cjlink.php?file=cj200906/cijVJ8eTpU.xls
J'ai ajouté la macro suivante dans le module de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Or Target.Column > 1 Or Target.Row > 13 _
Or Application.IsEven(Target.Row) Then Exit Sub
Application.EnableEvents = False
Select Case Target.Row
Case 7
[A9] = [A5] * [A7]
[A11] = [A9] - [A5]
[A13] = [A11] / [A9]
Case 9
[A7] = [A9] / [A5]
[A11] = [A9] - [A5]
[A13] = [A11] / [A9]
Case 11
[A7] = [A9] / [A5]
[A9] = [A5] * [A7]
[A13] = [A11] / [A9]
Case 13
[A7] = [A9] / [A5]
[A9] = [A5] * [A7]
[A11] = [A9] - [A5]
End Select
Application.EnableEvents = True
End Sub
Cordialement.
Daniel
Merci
Ici
http://cjoint.com/?gilHSnsIZF
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
u34IhrB6JHA.5180@TK2MSFTNGP04.phx.gbl...
Bonjour.
Mets un classeur avec quelques exemples sur www.cjoint.com. Poste
ensuite ici l'adresse générée.
Cordialement.
Daniel
Bonjour
Je suis en train de me prendre la tête avec la TVA
J'ai différentes cellules au nombre de 6
1Taux de TVA
2Prix d'achat
3Coef de marge
4Nouveau Prix de vente
5Montant marge en ?
6Marge en %
Je pensais qu'en VBA cela serait un jeu d'enfant à savoir
si l'une des valeurs de 3 à 6 change alors les autres changent aussi
En clair je voudrais par exmple entrer une marge en % et les autres
cellules se mettent à jour,
ou entrer un coef
ou entrer un nouveau prix
etc
j'ai donc ce code mais je patine
Sub TVA()
If Range("Nouveau_Prix_de_Vente_HT") <> "" And
Range("Prix_d_achat_HT") Then
Call Coef
Else
Call Nouveau
End If
If Range("Montant_de_la_marge_HT_en_?") = "" Then
Call Marge_euros
End If
If Range("Nouveau_Prix_de_Vente_HT") <> "" And
Range("Montant_de_la_marge_HT_en_?") Then
Range("Marge_en").Value =
Range("Montant_de_la_marge_HT_en_?").Value /
Range("Nouveau_Prix_de_Vente_HT").Value
End If
If Range("Marge_en").Value <> "" Then
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_vente_HT").Value * Range("Marge_en").Value
End If
End Sub
Sub Coef()
Range("Coef").Value = Range("Nouveau_Prix_de_Vente_HT").Value /
Range("Prix_d_achat_HT").Value
End Sub
Sub Nouveau()
Range("Nouveau_Prix_de_vente_HT").Value =
Range("Prix_d_achat_HT").Value * Range("Coef").Value
End Sub
Sub Marge_euros()
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_Vente_HT").Value -
Range("Prix_d_achat_HT").Value
End Sub
Sub Pourcent()
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_Vente_HT").Value * Range("Coef").Value
End Sub
quelqu'un a t'il un classeur ou un exemple merci
Pascal
le simple changement d'une donnée en a7,9,11 ou 13
"Daniel.C" a écrit dans le message de news:
%Quelle opération provoque cette erreur ?
DanielJ'ai un message d'erreur "methode non gérée par cet objet"
"Daniel.C" a écrit dans le message de news:
%Regarde ton fichier modifié :
http://www.cijoint.fr/cjlink.php?file=cj200906/cijVJ8eTpU.xls
J'ai ajouté la macro suivante dans le module de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Or Target.Column > 1 Or Target.Row > 13 _
Or Application.IsEven(Target.Row) Then Exit Sub
Application.EnableEvents = False
Select Case Target.Row
Case 7
[A9] = [A5] * [A7]
[A11] = [A9] - [A5]
[A13] = [A11] / [A9]
Case 9
[A7] = [A9] / [A5]
[A11] = [A9] - [A5]
[A13] = [A11] / [A9]
Case 11
[A7] = [A9] / [A5]
[A9] = [A5] * [A7]
[A13] = [A11] / [A9]
Case 13
[A7] = [A9] / [A5]
[A9] = [A5] * [A7]
[A11] = [A9] - [A5]
End Select
Application.EnableEvents = True
End Sub
Cordialement.
DanielMerci
Ici
http://cjoint.com/?gilHSnsIZF
"Daniel.C" a écrit dans le message de news:Bonjour.
Mets un classeur avec quelques exemples sur www.cjoint.com. Poste
ensuite ici l'adresse générée.
Cordialement.
DanielBonjour
Je suis en train de me prendre la tête avec la TVA
J'ai différentes cellules au nombre de 6
1Taux de TVA
2Prix d'achat
3Coef de marge
4Nouveau Prix de vente
5Montant marge en ?
6Marge en %
Je pensais qu'en VBA cela serait un jeu d'enfant à savoir
si l'une des valeurs de 3 à 6 change alors les autres changent aussi
En clair je voudrais par exmple entrer une marge en % et les autres
cellules se mettent à jour,
ou entrer un coef
ou entrer un nouveau prix
etc
j'ai donc ce code mais je patine
Sub TVA()
If Range("Nouveau_Prix_de_Vente_HT") <> "" And
Range("Prix_d_achat_HT") Then
Call Coef
Else
Call Nouveau
End If
If Range("Montant_de_la_marge_HT_en_?") = "" Then
Call Marge_euros
End If
If Range("Nouveau_Prix_de_Vente_HT") <> "" And
Range("Montant_de_la_marge_HT_en_?") Then
Range("Marge_en").Value =
Range("Montant_de_la_marge_HT_en_?").Value /
Range("Nouveau_Prix_de_Vente_HT").Value
End If
If Range("Marge_en").Value <> "" Then
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_vente_HT").Value * Range("Marge_en").Value
End If
End Sub
Sub Coef()
Range("Coef").Value = Range("Nouveau_Prix_de_Vente_HT").Value /
Range("Prix_d_achat_HT").Value
End Sub
Sub Nouveau()
Range("Nouveau_Prix_de_vente_HT").Value =
Range("Prix_d_achat_HT").Value * Range("Coef").Value
End Sub
Sub Marge_euros()
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_Vente_HT").Value -
Range("Prix_d_achat_HT").Value
End Sub
Sub Pourcent()
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_Vente_HT").Value * Range("Coef").Value
End Sub
quelqu'un a t'il un classeur ou un exemple merci
Pascal
Avec MON classeur ? Quelqu'un peut-il vérifier ?
Sais-tu quelle ligne de code est en erreur ?
Danielle simple changement d'une donnée en a7,9,11 ou 13
"Daniel.C" a écrit dans le message de news:
%Quelle opération provoque cette erreur ?
DanielJ'ai un message d'erreur "methode non gérée par cet objet"
"Daniel.C" a écrit dans le message de news:
%Regarde ton fichier modifié :
http://www.cijoint.fr/cjlink.php?file=cj200906/cijVJ8eTpU.xls
J'ai ajouté la macro suivante dans le module de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Or Target.Column > 1 Or Target.Row > 13 _
Or Application.IsEven(Target.Row) Then Exit Sub
Application.EnableEvents = False
Select Case Target.Row
Case 7
[A9] = [A5] * [A7]
[A11] = [A9] - [A5]
[A13] = [A11] / [A9]
Case 9
[A7] = [A9] / [A5]
[A11] = [A9] - [A5]
[A13] = [A11] / [A9]
Case 11
[A7] = [A9] / [A5]
[A9] = [A5] * [A7]
[A13] = [A11] / [A9]
Case 13
[A7] = [A9] / [A5]
[A9] = [A5] * [A7]
[A11] = [A9] - [A5]
End Select
Application.EnableEvents = True
End Sub
Cordialement.
DanielMerci
Ici
http://cjoint.com/?gilHSnsIZF
"Daniel.C" a écrit dans le message de
news:Bonjour.
Mets un classeur avec quelques exemples sur www.cjoint.com. Poste
ensuite ici l'adresse générée.
Cordialement.
DanielBonjour
Je suis en train de me prendre la tête avec la TVA
J'ai différentes cellules au nombre de 6
1Taux de TVA
2Prix d'achat
3Coef de marge
4Nouveau Prix de vente
5Montant marge en ?
6Marge en %
Je pensais qu'en VBA cela serait un jeu d'enfant à savoir
si l'une des valeurs de 3 à 6 change alors les autres changent
aussi
En clair je voudrais par exmple entrer une marge en % et les autres
cellules se mettent à jour,
ou entrer un coef
ou entrer un nouveau prix
etc
j'ai donc ce code mais je patine
Sub TVA()
If Range("Nouveau_Prix_de_Vente_HT") <> "" And
Range("Prix_d_achat_HT") Then
Call Coef
Else
Call Nouveau
End If
If Range("Montant_de_la_marge_HT_en_?") = "" Then
Call Marge_euros
End If
If Range("Nouveau_Prix_de_Vente_HT") <> "" And
Range("Montant_de_la_marge_HT_en_?") Then
Range("Marge_en").Value =
Range("Montant_de_la_marge_HT_en_?").Value /
Range("Nouveau_Prix_de_Vente_HT").Value
End If
If Range("Marge_en").Value <> "" Then
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_vente_HT").Value * Range("Marge_en").Value
End If
End Sub
Sub Coef()
Range("Coef").Value = Range("Nouveau_Prix_de_Vente_HT").Value /
Range("Prix_d_achat_HT").Value
End Sub
Sub Nouveau()
Range("Nouveau_Prix_de_vente_HT").Value =
Range("Prix_d_achat_HT").Value * Range("Coef").Value
End Sub
Sub Marge_euros()
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_Vente_HT").Value -
Range("Prix_d_achat_HT").Value
End Sub
Sub Pourcent()
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_Vente_HT").Value * Range("Coef").Value
End Sub
quelqu'un a t'il un classeur ou un exemple merci
Pascal
Avec MON classeur ? Quelqu'un peut-il vérifier ?
Sais-tu quelle ligne de code est en erreur ?
Daniel
le simple changement d'une donnée en a7,9,11 ou 13
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
%23QINlyC6JHA.2456@TK2MSFTNGP02.phx.gbl...
Quelle opération provoque cette erreur ?
Daniel
J'ai un message d'erreur "methode non gérée par cet objet"
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
%23P4cMdC6JHA.480@TK2MSFTNGP06.phx.gbl...
Regarde ton fichier modifié :
http://www.cijoint.fr/cjlink.php?file=cj200906/cijVJ8eTpU.xls
J'ai ajouté la macro suivante dans le module de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Or Target.Column > 1 Or Target.Row > 13 _
Or Application.IsEven(Target.Row) Then Exit Sub
Application.EnableEvents = False
Select Case Target.Row
Case 7
[A9] = [A5] * [A7]
[A11] = [A9] - [A5]
[A13] = [A11] / [A9]
Case 9
[A7] = [A9] / [A5]
[A11] = [A9] - [A5]
[A13] = [A11] / [A9]
Case 11
[A7] = [A9] / [A5]
[A9] = [A5] * [A7]
[A13] = [A11] / [A9]
Case 13
[A7] = [A9] / [A5]
[A9] = [A5] * [A7]
[A11] = [A9] - [A5]
End Select
Application.EnableEvents = True
End Sub
Cordialement.
Daniel
Merci
Ici
http://cjoint.com/?gilHSnsIZF
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de
news: u34IhrB6JHA.5180@TK2MSFTNGP04.phx.gbl...
Bonjour.
Mets un classeur avec quelques exemples sur www.cjoint.com. Poste
ensuite ici l'adresse générée.
Cordialement.
Daniel
Bonjour
Je suis en train de me prendre la tête avec la TVA
J'ai différentes cellules au nombre de 6
1Taux de TVA
2Prix d'achat
3Coef de marge
4Nouveau Prix de vente
5Montant marge en ?
6Marge en %
Je pensais qu'en VBA cela serait un jeu d'enfant à savoir
si l'une des valeurs de 3 à 6 change alors les autres changent
aussi
En clair je voudrais par exmple entrer une marge en % et les autres
cellules se mettent à jour,
ou entrer un coef
ou entrer un nouveau prix
etc
j'ai donc ce code mais je patine
Sub TVA()
If Range("Nouveau_Prix_de_Vente_HT") <> "" And
Range("Prix_d_achat_HT") Then
Call Coef
Else
Call Nouveau
End If
If Range("Montant_de_la_marge_HT_en_?") = "" Then
Call Marge_euros
End If
If Range("Nouveau_Prix_de_Vente_HT") <> "" And
Range("Montant_de_la_marge_HT_en_?") Then
Range("Marge_en").Value =
Range("Montant_de_la_marge_HT_en_?").Value /
Range("Nouveau_Prix_de_Vente_HT").Value
End If
If Range("Marge_en").Value <> "" Then
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_vente_HT").Value * Range("Marge_en").Value
End If
End Sub
Sub Coef()
Range("Coef").Value = Range("Nouveau_Prix_de_Vente_HT").Value /
Range("Prix_d_achat_HT").Value
End Sub
Sub Nouveau()
Range("Nouveau_Prix_de_vente_HT").Value =
Range("Prix_d_achat_HT").Value * Range("Coef").Value
End Sub
Sub Marge_euros()
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_Vente_HT").Value -
Range("Prix_d_achat_HT").Value
End Sub
Sub Pourcent()
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_Vente_HT").Value * Range("Coef").Value
End Sub
quelqu'un a t'il un classeur ou un exemple merci
Pascal
Avec MON classeur ? Quelqu'un peut-il vérifier ?
Sais-tu quelle ligne de code est en erreur ?
Danielle simple changement d'une donnée en a7,9,11 ou 13
"Daniel.C" a écrit dans le message de news:
%Quelle opération provoque cette erreur ?
DanielJ'ai un message d'erreur "methode non gérée par cet objet"
"Daniel.C" a écrit dans le message de news:
%Regarde ton fichier modifié :
http://www.cijoint.fr/cjlink.php?file=cj200906/cijVJ8eTpU.xls
J'ai ajouté la macro suivante dans le module de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Or Target.Column > 1 Or Target.Row > 13 _
Or Application.IsEven(Target.Row) Then Exit Sub
Application.EnableEvents = False
Select Case Target.Row
Case 7
[A9] = [A5] * [A7]
[A11] = [A9] - [A5]
[A13] = [A11] / [A9]
Case 9
[A7] = [A9] / [A5]
[A11] = [A9] - [A5]
[A13] = [A11] / [A9]
Case 11
[A7] = [A9] / [A5]
[A9] = [A5] * [A7]
[A13] = [A11] / [A9]
Case 13
[A7] = [A9] / [A5]
[A9] = [A5] * [A7]
[A11] = [A9] - [A5]
End Select
Application.EnableEvents = True
End Sub
Cordialement.
DanielMerci
Ici
http://cjoint.com/?gilHSnsIZF
"Daniel.C" a écrit dans le message de
news:Bonjour.
Mets un classeur avec quelques exemples sur www.cjoint.com. Poste
ensuite ici l'adresse générée.
Cordialement.
DanielBonjour
Je suis en train de me prendre la tête avec la TVA
J'ai différentes cellules au nombre de 6
1Taux de TVA
2Prix d'achat
3Coef de marge
4Nouveau Prix de vente
5Montant marge en ?
6Marge en %
Je pensais qu'en VBA cela serait un jeu d'enfant à savoir
si l'une des valeurs de 3 à 6 change alors les autres changent
aussi
En clair je voudrais par exmple entrer une marge en % et les autres
cellules se mettent à jour,
ou entrer un coef
ou entrer un nouveau prix
etc
j'ai donc ce code mais je patine
Sub TVA()
If Range("Nouveau_Prix_de_Vente_HT") <> "" And
Range("Prix_d_achat_HT") Then
Call Coef
Else
Call Nouveau
End If
If Range("Montant_de_la_marge_HT_en_?") = "" Then
Call Marge_euros
End If
If Range("Nouveau_Prix_de_Vente_HT") <> "" And
Range("Montant_de_la_marge_HT_en_?") Then
Range("Marge_en").Value =
Range("Montant_de_la_marge_HT_en_?").Value /
Range("Nouveau_Prix_de_Vente_HT").Value
End If
If Range("Marge_en").Value <> "" Then
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_vente_HT").Value * Range("Marge_en").Value
End If
End Sub
Sub Coef()
Range("Coef").Value = Range("Nouveau_Prix_de_Vente_HT").Value /
Range("Prix_d_achat_HT").Value
End Sub
Sub Nouveau()
Range("Nouveau_Prix_de_vente_HT").Value =
Range("Prix_d_achat_HT").Value * Range("Coef").Value
End Sub
Sub Marge_euros()
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_Vente_HT").Value -
Range("Prix_d_achat_HT").Value
End Sub
Sub Pourcent()
Range("Montant_de_la_marge_HT_en_?").Value =
Range("Nouveau_Prix_de_Vente_HT").Value * Range("Coef").Value
End Sub
quelqu'un a t'il un classeur ou un exemple merci
Pascal