Discussion :

[Jean351]

Hello,
Comme le titre l'indique je souhait créer une inputbox qui en fonction de la réponse de l'utilisateur modifie un autre champ.
Voici mon code qui ne fonctionne pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
 Dim resultat As String
resultat = InputBox("Quel coefficient souhaitez vous appliquer pour votre prix de vente? ?", " Variation du prix de vente", "1.3")
If IsNumeric(resultat) > 1.2 Then
Me.Texte130.Value = IsNumeric(resultat) * Me.Texte122.Value
Else
MsgBox "veuillez saisir un coef supérieur "
End If
Me.Texte130.Requery
End Sub

texte 130 étant le champs a modifier.
Dans l'attente d'une réponse.
cordialement

[ClaudeLELOUP]

Bonjour,

Pas ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox "veuillez saisir un coef supérieur "

Plutôt comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  Me.Texte130 = InputBox("veuillez saisir un coef supérieur ")

[Jean351]

Merci, Claude de m'accorder de ton temps.
Cependant ça résout pas du tout mon problème
en gros j'ai texte 130 qui un champs calculer (1.2 * prix de revient)
et je souhaite (dans la mesure du possible) que
inputbox : quel nouveau coef ? si la réponse est supérieur à 1.2 alors
me.texte130.value = "réponse de linputbox" (exemple 1.4) * prix de revient

[nico84]

Bonjour,

isnumeric renvoie un booleen ! S'il est true il faut alors utiliser val(resultat) ou 1*resultat.

[Jean351]

Alors, plus de message d'erreur du style "incompatibilité de type" et le code fonctionne dans le sens ou le else marche .
Cependant pas de changement concernant le champ...

[ClaudeLELOUP]

Montre ton formulaire avec le nom des contrôles et leur source, on gagnera du temps !
Essaie de donner à tes objets, contrôles... des noms explicites (Coeff, PrixRevient...) sans utiliser d'espaces, caractères spéciaux... Ça facilite la compréhension et ça allège la syntaxe.

[Jean351]

J'ai oublié de préciser que c'était un état put être ça qui bloque...
prixdevente source de donnée = prixrevient*1.2
Code bouton inputbox :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Private Sub inputcoef_Click()
 
 Dim resultat As String
 
resultat = InputBox("Quel coefficient souhaitez vous appliquer pour votre prix de vente? ?", " Variation du prix de vente", Val(1.3))
If Val(resultat) > 1.2 Then
 
 
Dim prixrevient, prixvente As Double
 
prixvente= Me.prixvente.Value
prixrevient = Me.prixrevient.Value
prixvente = Val(resultat) *prixrevient
 
Else
MsgBox ("yes")
 
End If
Me.prixvente.Requery
End Sub

[Jean351]

désolé du double post cependant personnes n'aurait une petite idée?

[nico84]

prixvente est une syntaxe abrégée de Me.prixvente.Value
En déclarant une variable du même nom cela ne peut que semer l'embrouille

Dit autrement, il n'y a aucune raison pour que la variable locale prixvente mette à jour le champ prixvente du formulaire ou de l'état...

[Jean351]

J'ai pas tout compris.
Que faut il modifier?

[Jeannot45]

Comme le disent très justement ClaudeLELOUP et nico84 les noms sont très importants dans le code tant au niveau des variables que des objets que tu utilises.
je te conseille la lecture de cet excellent tuto sur les conventions typographiques du code Visual Basic

Bonne lecture

[Jean351]

Bon je me dois de vous dire merci.
Toutefois concernant mon problème je reste en standby, j'ai une solution alternative mais qui restreint le choix de l'utilisateur...(en fonction de la réponse choisit entrée dans l'inputbox un nouveau prix s'affiche ou non ).
Je vais continuer a chercher pour ce que je voulais faire initialement mais pour l'instant je suis bloqué et j'aimerais bien une aide sur le cœur du problème(sauf si je passe tout a fait à coté ce qui est possible^^)

[ClaudeLELOUP]

Toutefois concernant mon problème je reste en standby

C'est peut-être parce que ta demande n'est pas claire : on croit d'abord qu'il s'agit d'un formulaire, ensuite tu annonces que c'est un état.

Montre une image de ce que tu veux faire pour que ta demande soit plus concrète et qu'il ne faille pas deviner ce que tu essaies de faire et dans quelles circonstances.

[Jean351]

Donc
mon état se compose d'une première parti avec l'ensemble des gammes et nomenclatures de l'article( avec quantité et prix).
Une deuxième partie (la ou ça me pose une colle) comme on peut le voir en dessous:

prc: calculé grâce a la première partie
prix de vente mini: prc*1.2

[ClaudeLELOUP]

Désolé de ne pouvoir t'aider : j'utilise Access2000. Cette fonctionnalité (bouton de commande dans un état) n'existe pas dans cette version.

[Jean351]

C'est rien merci de m'avoir accorder ton temps déjà
Je pense, je vais laisser ma version "peu libre" mis en place .
Par ce que je suis vraiment bloqué .
A moins quelqu'un trouve une solution :/
Cordialement