Via inputbox, comment ne saisir qu'un seul caractère

Fermé
BABUDROME Messages postés 151 Date d'inscription lundi 16 janvier 2006 Statut Membre Dernière intervention 19 avril 2016 - 3 juin 2015 à 23:24
BABUDROME Messages postés 151 Date d'inscription lundi 16 janvier 2006 Statut Membre Dernière intervention 19 avril 2016 - 16 juin 2015 à 08:37
Bonjour,
J'aimerais interrompre une saisie dès la frappe d'un seul caractère.
Est-ce possible ? Via inputbox ou autre moyen ?


merci d'avance
A voir également:

8 réponses

via55 Messages postés 14499 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 26 novembre 2024 2 735
3 juin 2015 à 23:40
Bonsoir

Dans une inputbox je ne pense pas que ce soit possible,
par contre tu peux créer un userform avec un seul Textbox pour l'entrée de la donnée et un bouton Valider. Dans les Propriétés du Textbox tu mets 1 comme valeur à la propriété MaxLenght

Cdlmnt
Via
0
BABUDROME Messages postés 151 Date d'inscription lundi 16 janvier 2006 Statut Membre Dernière intervention 19 avril 2016
4 juin 2015 à 08:22
Salut et merci.
Ta solution est très intéressante, Je la réserve quand même pour un besoin ultérieur (saisie d'un mot de passe avec longueur maximale, par exemple)
En fait, mon Pb. était très mal énoncé.
Je veux introduire 1 seul chiffre (1 à 9) dans une cellule sélectionnée par la souris, sans avoir à faire Return.
bab
0
Mike-31 Messages postés 18349 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 27 novembre 2024 5 105
Modifié par Mike-31 le 4/06/2015 à 00:27
Bonsoir,

je pense que c'est en partie possible, si un seul caractère est saisi, l'inputbox renseigne la cellule A2 si nombre différent de 1 affichage msgbox et sortie de la procédure

à tester

Sub Un_Seul_Caractère()
If Len(reponse) <> 1 Then
reponse = InputBox("Saisissez 1 chiffres svp")
If Len(reponse) = 1 Then [A2] = reponse
If Len(reponse) <> 1 Then
MsgBox "le nombre de carractère est fixé à 1"
Exit Sub
End If
End If
End Sub

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.
0
BABUDROME Messages postés 151 Date d'inscription lundi 16 janvier 2006 Statut Membre Dernière intervention 19 avril 2016
4 juin 2015 à 08:16
Salut et merci.
Ta solution nécessite toutefois la validation (OK) avec un appui de touche supplémentaire.
En fait, l'énoncé de mon Pb. était très mal exprimé.
Je veux introduire 1 seul chiffre (1 à 9) dans une cellule sélectionnée par la souris.
Je réserve quand même ta solution pour un besoin ultérieur (saisie d mot de passe avec longueur maximale, par exemple)
0
Mike-31 Messages postés 18349 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 27 novembre 2024 5 105
4 juin 2015 à 08:24
Re,

effectivement et pourquoi as tu parlé d'inputbox

il suffit de sélectionner la plage concernée et Données/Validation des données/sélectionner Nombre entier, dans Minimum saisir la valeur minimale soit 1 et dans maximum saisir 9

ensuite il est possible d'agrémenter la boite de dialogue avec un message personnalisé
0
BABUDROME Messages postés 151 Date d'inscription lundi 16 janvier 2006 Statut Membre Dernière intervention 19 avril 2016
4 juin 2015 à 09:27
Merci, je découvre cette fonctionnalité....
Toutefois, il faut sortir de la saisie (retour ou flèche pour se déplacer.
bab
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Mike-31 Messages postés 18349 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 27 novembre 2024 5 105
4 juin 2015 à 09:32
Re,

que veux tu dire par "Toutefois, il faut sortir de la saisie (retour ou flèche pour se déplacer "
0
BABUDROME Messages postés 151 Date d'inscription lundi 16 janvier 2006 Statut Membre Dernière intervention 19 avril 2016
4 juin 2015 à 10:58
Cela implique un appui sur Return pour valider la saisie de la cellule
ou Flèche à droite ou à gauche pour valider la sortie de la cellule.
soit un second appui de touche
0
Mike-31 Messages postés 18349 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 27 novembre 2024 5 105
4 juin 2015 à 11:32
Re,

si cliquer sur un bouton est encore trop compliqué, reste le VBA si tu as quelques notions, mais pourquoi faire simple quand on peut faire compliqué
0
BABUDROME Messages postés 151 Date d'inscription lundi 16 janvier 2006 Statut Membre Dernière intervention 19 avril 2016
16 juin 2015 à 08:37
Bonjour.
Je souhaitais diviser par 2 les saisies au clavier lors d'un garnissage d'un tableau.
J'abandonne...
Merci quand même de ton attention.
0