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