Calcul VBA Résolu

Question

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

Configuration: Windows XP / Firefox 28.0

Polux31 · Answer

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

castours · Answer

bonjour
Oui Alors qu'elle la synthaxe exacte
Merci

Polux31 · Answer

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 ?

Polux31 · Answer

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 ?

castours · Answer

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

Polux31 · Answer

TVA = champ de mon formulaire

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

Calcul VBA

6 réponses

Discussions similaires

Newsletters