TVA

Le
pb
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #19514511
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


pb
Le #19514501
Merci
Ici
http://cjoint.com/?gilHSnsIZF

"Daniel.C"
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







Jean-Claude
Le #19514481
>> 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





Salut,
Un truc dans ce genre,

A mettre dans Feuil1
A la place de "Stop", mettres les calculs adéquats.

Private Sub Worksheet_Change(ByVal Target As Range)

Select Case Target.Address
Case Range("Coef").Address
Stop
Case Range("Nouveau_Prix_de_Vente_HT").Address
Stop
Case Range("Montant_de_la_marge_HT_en_?").Address
Stop
Case Range("Marge_en").Address
Stop
End Select
End Sub
--
A+
Jean-Claude
- Evitez lez gaz mous
Daniel.C
Le #19515081
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"
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









pb
Le #19515051
Je te remercie, je regarde cela et te dis ensuuite

"Daniel.C" %
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"
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













pb
Le #19515031
J'ai un message d'erreur "methode non gérée par cet objet"

"Daniel.C" %
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"
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













Daniel.C
Le #19515671
Quelle opération provoque cette erreur ?
Daniel

J'ai un message d'erreur "methode non gérée par cet objet"

"Daniel.C" %
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"
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















pb
Le #19515641
le simple changement d'une donnée en a7,9,11 ou 13
"Daniel.C" %
Quelle opération provoque cette erreur ?
Daniel

J'ai un message d'erreur "methode non gérée par cet objet"

"Daniel.C" %
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"
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



















Daniel.C
Le #19515951
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" %
Quelle opération provoque cette erreur ?
Daniel

J'ai un message d'erreur "methode non gérée par cet objet"

"Daniel.C" %
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"
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





















pb
Le #19515931
Oui c'est celle ci
If Target.Count > 1 Or Target.Column > 1 Or Target.Row > 13
Je cherche dans l'aide je ne trouve pas

Or Application.IsEven(Target.Row) Then Exit Sub
"Daniel.C" euEk%
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" %
Quelle opération provoque cette erreur ?
Daniel

J'ai un message d'erreur "methode non gérée par cet objet"

"Daniel.C" %
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" news:
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


























Publicité
Poster une réponse
Anonyme