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
--
bab

8 réponses

  1. via55 Messages postés 14393 Date d'inscription   Statut Membre Dernière intervention   2 759
     
    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
    1. 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
  2. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    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
  3. 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
  4. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    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
    1. 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
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    Re,

    que veux tu dire par "Toutefois, il faut sortir de la saisie (retour ou flèche pour se déplacer "
    0
  7. 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
  8. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    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
  9. 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