IfNotNumeric dans Textbox - FJ ci-joint

  • Initiateur de la discussion Initiateur de la discussion alex53
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

alex53

XLDnaute Junior
Bonjour le forum,
Voila ce que je veux faire:
rentrer un nombre dans mon USF (avec un controle que la valeur est bien numerique et pas du texte), et que celui ci soit archive dans une feuille excel avec 5 chiffres apres la virgule.

Tout fonctionne bien (voir fichier tres simple ci-joint). Si je rentre simplement le chiffre 5 par exemple, alors j'obtiens 5,00000 dans la feuille excel.

MAIS, quand je veux mettre une virgule, ca ne marche plus!!
2 cas de figure:
-Si je tape un point "." , a cause du Ifnotnumeric je pense il me dit que ce n'est pas possible. Existe-il un moyen de filouter pour que VBA accepte le point ??
-Si je tape une virgule "," alors dans le USF ca marche, mais pas dans la feuille excel (par exemple si je tape 5,5 dans le textbox, je me retrouve avec 5.00000 dans la feuille excel) !!! VBA perd la tete!

Merci d'avance pour votre precieuse aide.

Alex53
 

Pièces jointes

Re : IfNotNumeric dans Textbox - FJ ci-joint

Bonjour à tous et en particulier à ceux qui ont participé à ce post (qui sont parmi les 🙂 meilleurs du forum)

Alex, regarde ce code :

Code:
Private Sub txtEcritFeuille_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr("1234567890,-", Chr(KeyAscii)) = 0 Or txtEcritFeuille.SelStart > 0 And Chr(KeyAscii) = "-" _
Or InStr(txtEcritFeuille.Value, ",") <> 0 And Chr(KeyAscii) = ","  Then KeyAscii = 0: Beep
End If

qui est bien expliqué en détail ici :

Obliger saisie numrique dans TextBox

et qui répond à ta dernière question.

Bonne soirée
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Autres excel
Réponses
8
Affichages
783
Retour