Calcul VBA

Résolu
castours Messages postés 2955 Date d'inscription   Statut Membre Dernière intervention   -  
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   -
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   Statut Membre Dernière intervention   1 204
 
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   Statut Membre Dernière intervention   217
 
bonjour
Oui Alors qu'elle la synthaxe exacte
Merci
0
Réponse 3 / 6
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   1 204
 
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   Statut Membre Dernière intervention   1 204
 
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   Statut Membre Dernière intervention   217
 
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   Statut Membre Dernière intervention   1 204
  
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
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses