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?