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

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 4 Décembre 2021

• #2

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

VB:

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

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 5 Décembre 2021

• #3

Bonsoir à tous,

En utilisant un autre évènement :

VB:

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

 

Pièces jointes

• Bearn 64- afficheur- v1.xlsm

  23.8 KB · Affichages: 6

Vote positif 0 Vote négatif

Bearn 64

XLDnaute Occasionnel

• 5 Décembre 2021

• #4

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.

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 5 Décembre 2021

• #5

Bearn 64 à dit:

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

Cliquez pour agrandir...

Que doit- on effacer ?

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

 

Vote positif 0 Vote négatif

Bearn 64

XLDnaute Occasionnel

• 5 Décembre 2021

• #6

mapomme à dit:

Que doit- on effacer ?

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

Cliquez pour agrandir...

oui toutes les cases.

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 5 Décembre 2021

• #7

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.

 

Pièces jointes

• Bearn 64- afficheur- v2.xlsm

  26.2 KB · Affichages: 8

Dernière édition: 5 Décembre 2021

Vote positif 0 Vote négatif

Bearn 64

XLDnaute Occasionnel

• 5 Décembre 2021

• #8

Bonjour mapomme,

Tout est bien. Un grand merci.

 

Vote positif 0 Vote négatif