XL 2019 Resolu avec efficacite : Afficher un nombre saisi dans une grille.

[Bearn 64]

Bonjour le Forum,

Je voudrai saisir un nombre au clavier de 1 à 90 max et valider.
Le nombre qui s'affiche en Text01 devrai s'afficher dans TextBox à droite.

Exemple 51 saisi et validé s'affichera dans TextBox51.

Le bouton RESET effacera tout pour une nouvelle partie.

Merci de votre regard éclairé.

 

[sylvanu]

Bonsoir Bearn,
Pas sur d'avoir bien compris, mais essayez :

Private Sub Text01_Change()
    N = UserForm2.Controls("Text01")
    If N <> "" Then UserForm2.Controls("TextBox" & N) = N
    UserForm2.Controls("Text01") = ""
End Sub

 

[mapomme]

Bonsoir à tous,

En utilisant un autre évènement :

Private Sub Text01_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   On Error Resume Next
   Me.Controls("textbox" & Text01) = Text01
   Text01 = ""
   Cancel = True
End Sub

 

[Bearn 64]

Bonjour sylvanu, mapomme, le forum

Merci de vos réponses.
La solution mapomme est conforme a mes souhaits.
Petit supplement si j'ose. mon bouton EFFACER lui ne fonctionne pas pouvez vous m'aider.

Merci pour cette premiere partie a tous les deux.

 

[mapomme]

mon bouton EFFACER lui ne fonctionne pas pouvez vous m'aider

Que doit- on effacer ?

• Toutes les cases
• La zone de saisie
• Le dernier numéro saisi
• autre chose ?

 

[Bearn 64]

Que doit- on effacer ?

• Toutes les cases
• La zone de saisie
• Le dernier numéro saisi
• autre chose ?

oui toutes les cases.

 

[mapomme]

Bonjour @Bearn 64 ,

Voir le nouveau code dans le fichier joint (on a rajouté un CommandBouton caché derrière le contrôle Text01 qui permet de prendre en compte le clique sur le bouton "Effacer").

C'est toujours la touche Entrée qui transfère le nombre saisi vers les cases à gauche.

 

[Bearn 64]

Bonjour mapomme,

Tout est bien. Un grand merci.