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

Que des Valeurs numériques dans plusieur TextBox

Créer une discussion

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

chaelie2015

XLDnaute Accro
Bonjour Forum
ci dessous un code pour afficher lors de la saisie dans TextBox une valeur numérique seulement , mob souci comment généraliser ce code pour plusieurs TextBox ?
Code: 
Private Sub TextBox1_Change()
If Not IsNumeric(TextBox1) Then
    Cancel = True
    MsgBox "Seules les valeurs numériques sont acceptables.", _
    vbInformation + vbOKOnly, "Attention"
    Me.TextBox1.SelStart = 0
    Me.TextBox1.SelLength = Len(TextBox1)
End If
End Sub
Salutations
 

Pièces jointes

Trier par date Trier par votes
Re : Que des Valeurs numériques dans plusieur TextBox

Bonjour Pierrot, CHALET,Bbere
Merci pour vos propositions les deux sont formidables et comme la proposition de bebere est plus proche a mon appli,
je souhaite en premier lieu ajouter un LABEL pour afficher la somme des ces TextBox et affecter ces textBox a des cellules dans la feuille
Salutations
 
Vote positif 0 Vote négatif
Re : Que des Valeurs numériques dans plusieur TextBox

Bonjour
pour le point suivant c'est réglé

chaelie2015 à dit:
Bonjour Pierrot, CHALET,Bbere
......... et affecter ces textBox a des cellules dans la feuille
Salutations
Cliquez pour agrandir...

j'ai ce code affecter au bouton de validation de USF

Code: 
Private Sub CommandButton1_Click() 'valider
Range("Y1") = TextBox1.Value 'Ecrit enY1 la valeur de Textbox1
Range("Y2") = TextBox2.Value 'Ecrit enY2 la valeur de Textbox2
Range("Y3") = TextBox3.Value 'Ecrit enY3 la valeur de Textbox3
Range("Y4") = TextBox4.Value 'Ecrit enY4 la valeur de Textbox4
Unload Me 'Vide et ferme le UserForm
End Sub

Il me reste ce point
chaelie2015 à dit:
Bonjour Pierrot, CHALET,Bbere
.... je souhaite en premier lieu ajouter un LABEL pour afficher la somme des ces TextBox .........
Salutations
Cliquez pour agrandir...

Salutations
 
Vote positif 0 Vote négatif
Re : Que des Valeurs numériques dans plusieur TextBox

bonjour Chalet
Charlie mettre dans le code du bouton Me.Label1 = "Label1"
c'est la propriété caption qui est utilisée
tu peux écrire Me.Label1.caption = "Label1"
à ajouter dans module de classe(pris celui qui est en commentaire)
Code: 
Private Sub Objtxt_Change()

If UserForm1.Label1 = "Label1" Then
UserForm1.Label1 = Objtxt.Value
Else
UserForm1.Label1 = CDbl(UserForm1.Label1) + CDbl(Objtxt.Value)
End If

End Sub
 
Vote positif 0 Vote négatif
Re : Que des Valeurs numériques dans plusieur TextBox


Re
merci pour la réponse, mais sincèrement j'ai mal saisie
Code: 
.....code du bouton Me.Label1 = "Label1"
de quel bouton ?
 
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

N
  • Question Question
Microsoft 365 TEXTBOX pour filtrer un TCD
Réponses
6
Affichages
305
Hecatonchire
H
  • Question Question
XL 2021 Détecter un changement dans un des contrôles de formulaire et mettre à jour un TS correspondant.
2
Réponses
15
Affichages
561
jeff1494
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
776
KRUG WOO
K
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
780
thunder23
N
  • Résolu(e)
Microsoft 365 Récupération données ListBox dans TextBox
2 3
Réponses
35
Affichages
1 K
NONO14
N
  • Résolu(e)
XL 2010 Masque de saisie textbox Téléphone Public
Réponses
8
Affichages
1 K
cathodique
N
  • Résolu(e)
Microsoft 365 Code fonction pour création code aléatoire
2 3
Réponses
32
Affichages
1 K
NONO14
N
  • Question Question
XL 2019 Détecter les valeurs suivant les tableaux sélectionnés et, si elles sont non-existantes, les copier
2 3
Réponses
33
Affichages
2 K
Amigo
B
  • Résolu(e)
Microsoft 365 affecter des valeurs dans un tableau de noms de variable
Réponses
4
Affichages
1 K
bérylion
B
  • Question Question
XL 2019 code pour tous les disques
Réponses
3
Affichages
901
AtTheOne
C
  • Résolu(e)
Autres Code VBA pour recherche et copie/coller de ligne avec mot clé.
Réponses
12
Affichages
1 K
Corentin26270
C
P
  • Question Question
Microsoft 365 TextBox avec limitation de la saisie entre 2 valeurs
Réponses
8
Affichages
442
pat66
P
A
  • Résolu(e)
XL 2013 Calcule de produit dans un textbox
Réponses
6
Affichages
569
Appo1985
A
A
  • Résolu(e)
XL 2013 Calcule de produit dans un textbox
Réponses
3
Affichages
514
job75
E
  • Résolu(e)
XL 2019 inserer une valeur textbox dans la dernière cellule vide horizontalement
Réponses
7
Affichages
839
escudo
E
P
  • Question Question
Microsoft 365 Transformer InputBox en UserForm avec TextBox et CommandButton
Réponses
4
Affichages
847
Piaf79
P
  • Résolu(e)
Microsoft 365 Saisie des / en automatique dans textbox date
Réponses
14
Affichages
1 K
jcf6464
P
  • Question Question
XL 2016 userform base de donnée
Réponses
4
Affichages
593
Paillou
P
J
  • Question Question
XL 2021 Lien hypertexte dans forme rectangle
Réponses
2
Affichages
545
Phil69970
  • Résolu(e)
XL 2019 Le problème de la suppression des virgules lors de la modification des valeurs Listbox
Réponses
5
Affichages
866
Dadi147
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…