Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel TVA

TVA

19 réponses
Avatar
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
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
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


Avatar
pb
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.
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







Avatar
Jean-Claude
>> 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
Avatar
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" 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.
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









Avatar
pb
Je te remercie, je regarde cela et te dis ensuuite

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

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.
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













Avatar
pb
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.
Daniel

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.
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













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

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.
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















Avatar
pb
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 ?
Daniel

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

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.
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



















Avatar
Daniel.C
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" a écrit dans le message de news:
%
Quelle opération provoque cette erreur ?
Daniel

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

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.
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





















Avatar
pb
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" a écrit dans le message de news:
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" a écrit dans le message de news:
%
Quelle opération provoque cette erreur ?
Daniel

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

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.
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


























1 2