Limiter la saisie dans une inputbox

Résolu/Fermé

CHARLYJACK Messages postés 353 Date d'inscription mardi 19 octobre 2010 Statut Membre Dernière intervention 16 mai 2023 - 25 mars 2018 à 12:12
yg_be Messages postés 23509 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 1 avril 2025 - 25 mars 2018 à 19:51

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

A voir également:

Limiter la saisie dans une inputbox
Saisie gestuelle iphone - Guide
Comment saisir une adresse url - Guide
Saisie vocale sms - Guide
Gboard saisie vocale - Accueil - Applications & Logiciels
Saisie vocale whatsapp - Accueil - Messagerie instantanée

1 réponse

Réponse 1 / 1

yg_be Messages postés 23509 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 1 avril 2025 Ambassadeur 1 574
25 mars 2018 à 12:22

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?

CHARLYJACK Messages postés 353 Date d'inscription mardi 19 octobre 2010 Statut Membre Dernière intervention 16 mai 2023 1
25 mars 2018 à 12:50

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.

yg_be Messages postés 23509 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 1 avril 2025 1 574 > CHARLYJACK Messages postés 353 Date d'inscription mardi 19 octobre 2010 Statut Membre Dernière intervention 16 mai 2023
25 mars 2018 à 16:04

suggestion:

Dim CellApp As Single
Dim ValLim As Single

CHARLYJACK Messages postés 353 Date d'inscription mardi 19 octobre 2010 Statut Membre Dernière intervention 16 mai 2023 1
25 mars 2018 à 18:22

je viens d essayer ça fonctionne parfaitement

un grand merci à toi

super, peux-tu marquer le sujet comme résolu, en utilisant la roue dentée à droite du titre?

Discussions similaires

Formule calcul d'un total conditionnel

saisie vocale sur redmi note 9

Numérotation vocale

langue Française absente pour la saisie

Limite de demande d’amis Snapchat comment faire ?