Userform : saisie dans une Textbox

Userform : saisie dans une Textbox - VB/VBA/VBS - Programmation

Marsh Posté le 09-07-2009 à 16:41:11    

:hello:  
 
J'ai un petit souci.
J'ai créé une Userform dans laquelle il y a une Textbox (NOMENTITE).
J'ai mis le code suivant pour que tout ce qui est saisi dans cette Textbox soit converti en majuscule :

Code :
  1. Range("C8" ).Value = NOMENTITE.Value
  2.     NOMENTITE.Value = UCase(Range("C8" ).Value)


 
Cela marche très bien : dès que l'on tape une lettre (en minsucule ou en majuscule), elle entre dans la Textbox en majuscule... c'est ce que je veux.
Par contre, je peux être amené à saisir quelque chose qui commence par un chiffre (ou plusieurs)... et là, je n'arrive pas à aller plus loin que le premier caractère...
 
Je pense qu'il faut initialiser ma Textbox pour accepter les chiffres...
 
Mais je ne sais pas comment faire...
 :cry:  
 
 
Euh, z'avez une ch'tite idée... ????  :whistle:


---------------
iMac 4Ghz (fin 2015) RAM 16Go SSD 256Go SSD 2To
Reply

Marsh Posté le 09-07-2009 à 16:41:11   

Reply

Marsh Posté le 09-07-2009 à 17:05:00    

:na:  
 
J'ai trouvé comme un grand !!!
 :sol:  
 

Code :
  1. Private Sub CODEENTITE_AfterUpdate()
  3.     Range("C8" ).Select
  4.     ActiveCell.Value = CODEENTITE.Value
  5.     Selection.NumberFormat = "@"
  6.     CODEENTITE.Value = UCase(Range("C8" ).Value)
  7.    
  8. End Sub


---------------
iMac 4Ghz (fin 2015) RAM 16Go SSD 256Go SSD 2To
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed