Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Test Si la valeur d'une texbox est numerique

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion gds35
  • 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 !

S'inscrire

gds35

XLDnaute Impliqué
Mes AMIS du Forum Bonsoir ,

J'ai écrit une application dans laquelle j'ai ce p'tit bout de code....
Private Sub SAITAILLESAI_Change()
'
Dim SEPAREF As String
'
SEPAREF = SAITAILLESAI.Text
Select Case Len(SEPAREF)
Case 1
SEPAREF = SEPAREF & "."
End Select
SAITAILLESAI = SEPAREF
'
End Sub

Je recupere soit m.mm (Faux) soit 1.85(Vrai)
Je n'arrive pas a tester si ma Zone est NUMERIQUE..... Vu qu'il y a le point de la mise en forme.

Merci de votre aide. Cordialement GDS35
 
Trier par date Trier par votes
Re : Test Si la valeur d'une texbox est numerique

Bonsoir,

regarde ceci, sachant que chez moi c'est le point le séparateur de décimal :
Code: 
If IsNumeric(TextBox1) Then MsgBox "ok numérique..."

mais ne renverra rien si deux ponts ( : ) dans la zone... sans plus de détail...

bonne fin d'après midi
@+
 
Vote positif 0 Vote négatif
Re : Test Si la valeur d'une texbox est numerique

Bonjour gds35, salut Pierrot,

Tarabiscoté votre code gds35 🙂

Essayez :

Code: 
Private Sub SAITAILLESAI_Change()
If Len(SAITAILLESAI) = 1 Then SAITAILLESAI = SAITAILLESAI & "."
If IsNumeric(SAITAILLESAI) Or IsNumeric(Replace(SAITAILLESAI, ".", ",")) Then
MsgBox "numérique" 'pour tester
End If
End Sub
La valeur numérique est détectée quel que soit le séparateur décimal utilisé.

Edit : salut youky, j'allais t'oublier

A+
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

T
  • Résolu(e)
Microsoft 365 Chercher si dans une plage de cellule la valeur d'une autre cellule est présente
Réponses
4
Affichages
560
TomJoad
T
Vérifier la disponibilité d'un fichier généré en différé
Réponses
0
Affichages
496
Lu76Fer
M
  • Question Question
Microsoft 365 Copier / coller avec mise en forme VBA
Réponses
0
Affichages
948
marie3107
M
XLS : Evènements souris 'click' sur la grille & astuces
Réponses
3
Affichages
682
Lu76Fer
Office XLS : Fonction simplifiant l'utilisation de la fenêtre FileDialog
Réponses
6
Affichages
896
Lu76Fer
D
  • Question Question
XL 2021 VBA - Erreur 1004 aléatoire - Image/Logo
Réponses
10
Affichages
1 K
crocrocro
C
  • Résolu(e)
XL 2019 Aide pour un module d'archivage de feuille en pdf dans répertoire
Réponses
5
Affichages
1 K
Nico2978
  • Question Question
XL 2016 Depuis un Module Standard pouvoir Récupérer la Photocopie d'une Classe (dont/Avec) la collection qui est incluse dans le Module de Classe.
6 7 8
Réponses
115
Affichages
9 K
laurent950
T
  • Question Question
Microsoft 365 Comment donner des couleurs aux lignes d'une ListView excel VBA
2 3
Réponses
34
Affichages
6 K
TooFatBoy
C
  • Question Question
XL 2013 Récupérer la valeur d'une cellule dans une Textbox
2
Réponses
18
Affichages
4 K
C-LAKATA
C
R
  • Résolu(e)
XL 2010 Modifiez la couleur d'un onglet de feuille en fonction de la valeur d'une cellule
Réponses
4
Affichages
2 K
rosabelle
R
  • Résolu(e)
Microsoft 365 lister des fichiers
2
Réponses
19
Affichages
3 K
Usine à gaz
  • Question Question
XL 2013 la librairie shell and automation de Microsoft a t elle des limites
Réponses
5
Affichages
959
patricktoulon
Z
  • Question Question
Microsoft 365 Changement de la valeur d'une cellule en fonction de la valeur d'une autre cellule
Réponses
7
Affichages
1 K
Zifox
Z
XLS : Créer une animation fluide sans Crash (ou presque) !
Réponses
7
Affichages
1 K
Lu76Fer
V
  • Résolu(e)
Microsoft 365 Afficher filtres appliqués par macro dans la cellule B3 directement et non par F5 puis Réinitialiser
Réponses
12
Affichages
2 K
VirginieG
V
B
  • Question Question
Autres Tester l'existence d'une feuille
Réponses
14
Affichages
1 K
botanicus
B
B
  • Résolu(e)
XL 2016 Selectionner date la plus proche au supérieur de la date d'aujourd'hui
Réponses
5
Affichages
1 K
babacool22
B
B
  • Question Question
XL 2019 Remplacer la valeur d'une cellule par une formule si la cellule est égale à une autre
Réponses
2
Affichages
2 K
tbft
  • Question Question
XL 2010 Insertion image / Word à partir d’Excel à lire texte d’explication
Réponses
2
Affichages
2 K
jeanmi
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…