Calcul VBA
Résolu
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
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
6 réponses
-
Bonjour,
TVA n'est pas initialisé, donc sa valeur est toujours à 0 et PRIXHT1 l'est également. LeIf TVA = 0 Then
est toujours vrai !!!
-
bonjour
Oui Alors qu'elle la synthaxe exacte
Merci -
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 sortNz
?
-
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 sortNz
?
-
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 -
TVA = champ de mon formulaire If TVA = 0 Then '.... End iF
