Limiter la saisie dans une inputbox
Résolu/Fermé
CHARLYJACK
Messages postés
351
Date d'inscription
mardi 19 octobre 2010
Statut
Membre
Dernière intervention
21 février 2023
-
25 mars 2018 à 12:12
yg_be Messages postés 21303 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 mars 2023 - 25 mars 2018 à 19:51
yg_be Messages postés 21303 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 mars 2023 - 25 mars 2018 à 19:51
A voir également:
- Limiter la saisie dans une inputbox
- Le fichier contient le nombre de voyageurs dans 3 gares. dans la cellule b5, saisissez une formule qui calcule le total et se met à jour si on change une valeur du tableau. quel total obtenez-vous ? quelle formule avez-vous saisie ? ✓ - Forum Excel
- Inputbox vba - Astuces et Solutions
- Clémence souhaite faire calculer automatiquement les prix de 30 produits dans trois devises. elle a déjà saisi une formule de calcul pour le tarif du premier produit dans la première devise. corrigez sa formule afin que recopiée vers le bas puis vers la droite, elle remplisse correctement tout le tableau. - Forum Excel
- Autorisation non accordée d'activer la saisie vocale - Forum Xiaomi
- Test de recrutement opérateur de saisie ✓ - Forum Études / Formation High-Tech
1 réponse
yg_be
Messages postés
21303
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 mars 2023
1 326
25 mars 2018 à 12:22
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?
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?
25 mars 2018 à 12:50
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.
25 mars 2018 à 16:04
25 mars 2018 à 18:22
un grand merci à toi
25 mars 2018 à 19:51