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

BABUDROME Messages postés 152 Statut Membre -  
BABUDROME Messages postés 152 Statut Membre -
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 14730 Date d'inscription   Statut Membre Dernière intervention   2 750
 
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 152 Statut Membre
 
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 19571 Date d'inscription   Statut Contributeur Dernière intervention   5 138
 
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 152 Statut Membre
 
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 19571 Date d'inscription   Statut Contributeur Dernière intervention   5 138
 
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 152 Statut Membre
 
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 19571 Date d'inscription   Statut Contributeur Dernière intervention   5 138
 
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 152 Statut Membre
 
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 19571 Date d'inscription   Statut Contributeur Dernière intervention   5 138
 
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 152 Statut Membre
 
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