Sujet Précédent Sujet Suivant

Calcul VBA

Résolu/Fermé
castours Messages postés 2955 Date d'inscription lundi 18 septembre 2006 Statut Membre Dernière intervention 31 août 2019 - Modifié par Chris 94 le 12/05/2014 à 18:18
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 - 12 mai 2014 à 21:02
Bonjour,
Une aide s'il vous plait pour cette procedure
J'ai un champ TVA numerique, un champ PrixTTC et un champ PrixHt1
Je voudrai obtenir si c'est possible la valeur 0 lorsque ma TVA est a 0
J'ai essayé cela mais ne fonctionne pas avec la TVA a 0
Connaissance trés faible de VBA
Je vous remercie de l'aide 

Private Sub PRIXHT1_AfterUpdate()
Dim TVA As Integer
Dim PrixTTC As Integer
PRIXHT1 As Integer
If TVA = 0 Then
PRIXHT1 = 0
Else
PRIXHT1 = Nz([PrixTTC]) / (1 + (Nz([TVA] / 100)))
End If
End Sub


A voir également:

6 réponses

Réponse 1 / 6
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
12 mai 2014 à 19:54
Bonjour,

TVA n'est pas initialisé, donc sa valeur est toujours à 0 et PRIXHT1 l'est également. Le 
If TVA = 0 Then
est toujours vrai !!!
0
Réponse 2 / 6
castours Messages postés 2955 Date d'inscription lundi 18 septembre 2006 Statut Membre Dernière intervention 31 août 2019 217
12 mai 2014 à 20:26
bonjour
Oui Alors qu'elle la synthaxe exacte
Merci
0
Réponse 3 / 6
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
12 mai 2014 à 20:39
Ce n'est pas une question de syntaxe !!! Le problème vient de l'initialisation des variables et surtout de la conception du programme.

J'ai un champ TVA numerique, un champ PrixTTC et un champ PrixHt1
Ils sont où les champs ? 

PRIXHT1 = Nz([PrixTTC]) / (1 + (Nz([TVA] / 100)))

D'où ça sort 
Nz
?
0
Réponse 4 / 6
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
12 mai 2014 à 20:39
Ce n'est pas une question de syntaxe !!! Le problème vient de l'initialisation des variables et surtout de la conception du programme.

J'ai un champ TVA numerique, un champ PrixTTC et un champ PrixHt1
Ils sont où les champs ? 

PRIXHT1 = Nz([PrixTTC]) / (1 + (Nz([TVA] / 100)))

D'où ça sort 
Nz
?
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 6
castours Messages postés 2955 Date d'inscription lundi 18 septembre 2006 Statut Membre Dernière intervention 31 août 2019 217
12 mai 2014 à 20:55
Bonjour
Nz est une fonction qui convertit les champ numerique null en 0 lors d'un calcul.
Ces champs sont situés dans un formulaire
Cette syntaxe est mise comme source de controle dans le champ
PrixHT1
0
Réponse 6 / 6
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
12 mai 2014 à 21:02 
TVA = champ de mon formulaire 

If TVA = 0 Then
'....
End iF
0

Discussions similaires

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
exo pix
Xtyller -
Raymond PENTIER -

2 réponses
EXCEL - Calcul automatique de Fin de contrat et période d'essai
Laudme -
moimeme -

7 réponses
VBA : Range avec références variables..
Antoine -
MIKE59 -

7 réponses
VBA erreur 1004
séverine -
Floroan -

9 réponses