Limiter la saisie dans une inputbox
Résolu
CHARLYJACK
Messages postés
345
Date d'inscription
Statut
Membre
Dernière intervention
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
j'écris un code qui fait appel à une inputbox
je souhaite limiter la valeur de la saisie à 2 conditions ( >0 et > à 50% d'une autre cellule )
Je dois avoir un problème de syntaxe:
ValLim = Range("G17").Value * 0.5
CellApp = InputBox("Veuillez indiquer le montant de l'apport", "Particulier")
If IsNumeric(CellApp) And CellApp > 0 And CellApp < ValLim Then
Range("G22").Value = CellApp
Selection.Copy
Par avance je vous remercie de votre aide
j'écris un code qui fait appel à une inputbox
je souhaite limiter la valeur de la saisie à 2 conditions ( >0 et > à 50% d'une autre cellule )
Je dois avoir un problème de syntaxe:
ValLim = Range("G17").Value * 0.5
CellApp = InputBox("Veuillez indiquer le montant de l'apport", "Particulier")
If IsNumeric(CellApp) And CellApp > 0 And CellApp < ValLim Then
Range("G22").Value = CellApp
Selection.Copy
Par avance je vous remercie de votre aide
1 réponse
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588
bonjour,
as-tu partagé l'ensemble de ton code?
as-tu un message d'erreur quand tu compiles ton code?
pourquoi penses-tu avoir un problème de syntaxe?-
Bonjour
Je n'ai pas de message d'erreur, quand je rajoute une condition rien ne marche
le code complet donne ça :
Sub Apport_Particulier()
Dim CellApp
Dim ValLim
ValLim = Range("G17").Value * 0.5
CellApp = InputBox("Veuillez indiquer le montant de l'apport", "Particulier")
If IsNumeric(CellApp) And CellApp > 0 Then
Range("G22").Value = CellApp
Selection.Copy
End If
End Sub
Je pense à une erreur de syntaxe car je cherche depuis ce matin et j'ai l'impression de tourner autour de la solution. -
-
