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 ?
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
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" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
euEk%23bD6JHA.4864@TK2MSFTNGP03.phx.gbl...
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
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 ?
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
La ligne doit se terminer par un "_" :
...Or Target.Row > 13 _
DanielOui 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 ?
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
La ligne doit se terminer par un "_" :
...Or Target.Row > 13 _
Daniel
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" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
euEk%23bD6JHA.4864@TK2MSFTNGP03.phx.gbl...
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
La ligne doit se terminer par un "_" :
...Or Target.Row > 13 _
DanielOui 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 ?
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
La ligne doit se terminer par un "_" :
...Or Target.Row > 13 _
DanielOui 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 ?
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
La ligne doit se terminer par un "_" :
...Or Target.Row > 13 _
Daniel
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" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
euEk%23bD6JHA.4864@TK2MSFTNGP03.phx.gbl...
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
La ligne doit se terminer par un "_" :
...Or Target.Row > 13 _
DanielOui 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 ?
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
La ligne doit se terminer par un "_" :
...Or Target.Row > 13 _
DanielOui 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 ?
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
La ligne doit se terminer par un "_" :
...Or Target.Row > 13 _
Daniel
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" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
euEk%23bD6JHA.4864@TK2MSFTNGP03.phx.gbl...
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
La ligne doit se terminer par un "_" :
...Or Target.Row > 13 _
DanielOui 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 ?
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
La ligne doit se terminer par un "_" :
...Or Target.Row > 13 _
DanielOui 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 ?
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
La ligne doit se terminer par un "_" :
...Or Target.Row > 13 _
Daniel
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" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
euEk%23bD6JHA.4864@TK2MSFTNGP03.phx.gbl...
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
La ligne doit se terminer par un "_" :
...Or Target.Row > 13 _
DanielOui 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 ?
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
La ligne doit se terminer par un "_" :
...Or Target.Row > 13 _
DanielOui 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 ?
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
La ligne doit se terminer par un "_" :
...Or Target.Row > 13 _
Daniel
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" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
euEk%23bD6JHA.4864@TK2MSFTNGP03.phx.gbl...
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
La ligne doit se terminer par un "_" :
...Or Target.Row > 13 _
DanielOui 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 ?
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
La ligne doit se terminer par un "_" :
...Or Target.Row > 13 _
DanielOui 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 ?
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
La ligne doit se terminer par un "_" :
...Or Target.Row > 13 _
Daniel
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" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
euEk%23bD6JHA.4864@TK2MSFTNGP03.phx.gbl...
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
La ligne doit se terminer par un "_" :
...Or Target.Row > 13 _
DanielOui 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 ?
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
Oui la ligne exacte est
If Target.Count > 1 Or Target.Column > 1 Or Target.Row > 13 _
Mais cela ne fonctionne pas
"Daniel.C" a écrit dans le message de news:La ligne doit se terminer par un "_" :
...Or Target.Row > 13 _
DanielOui 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 ?
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
Oui la ligne exacte est
If Target.Count > 1 Or Target.Column > 1 Or Target.Row > 13 _
Mais cela ne fonctionne pas
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
eUdeKqD6JHA.4116@TK2MSFTNGP04.phx.gbl...
La ligne doit se terminer par un "_" :
...Or Target.Row > 13 _
Daniel
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" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
euEk%23bD6JHA.4864@TK2MSFTNGP03.phx.gbl...
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
Oui la ligne exacte est
If Target.Count > 1 Or Target.Column > 1 Or Target.Row > 13 _
Mais cela ne fonctionne pas
"Daniel.C" a écrit dans le message de news:La ligne doit se terminer par un "_" :
...Or Target.Row > 13 _
DanielOui 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 ?
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
Oui la ligne exacte est
If Target.Count > 1 Or Target.Column > 1 Or Target.Row > 13 _
Mais cela ne fonctionne pas
Oui la ligne exacte est
If Target.Count > 1 Or Target.Column > 1 Or Target.Row > 13 _
Mais cela ne fonctionne pas
Oui la ligne exacte est
If Target.Count > 1 Or Target.Column > 1 Or Target.Row > 13 _
Mais cela ne fonctionne pas