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
texte 130 étant le champs a modifier.
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
Dans l'attente d'une réponse.
cordialement
Partager