A voir également:
- Message erreur Userform
- Message erreur : Objet requis userform ✓ - Forum - Excel
- Message erreur youtube ✓ - Forum - YouTube
- Message erreur ft1 - Forum - Satellite
- Message erreur windows ne trouve pas ✓ - Forum - Virus / Sécurité
- Que veut dire "fti" sur decodeur tecsat. tout bloqué ✓ - Forum - Satellite
3 réponses
cs_Le Pivert
- Messages postés
- 7216
- Date d'inscription
- jeudi 13 septembre 2007
- Statut
- Contributeur
- Dernière intervention
- 19 janvier 2021
Bonjour,
voir ceci
https://silkyroad.developpez.com/VBA/ControlesUserForm/#LII-E
voir ceci
https://silkyroad.developpez.com/VBA/ControlesUserForm/#LII-E
mchotard
- Messages postés
- 252
- Date d'inscription
- vendredi 6 mai 2011
- Statut
- Membre
- Dernière intervention
- 15 janvier 2021
merci pour le lien, mais je ne suis pas assez compétent pour bien analyser et utiliser le document.
dans ma formule ci-dessous qui correspond à entrer le n° de téléphone sans espace, j'aimerais que si par erreur la personnes rentre le n° avec espace, une fenêtre d'erreur s'affiche indiquant que le n° doit être rentré sans espace.
[A2] = TextBox21 'Insère le nom en majuscule dans la colonne A
[Q2] = Val(TextBox13.Value) insère le n° de téléphone sans espace
Ce fichier étant destiné pour une personne du secteur médico social, je ne peux le transmettre
merci, pour votre aide
mchotard
dans ma formule ci-dessous qui correspond à entrer le n° de téléphone sans espace, j'aimerais que si par erreur la personnes rentre le n° avec espace, une fenêtre d'erreur s'affiche indiquant que le n° doit être rentré sans espace.
[A2] = TextBox21 'Insère le nom en majuscule dans la colonne A
[Q2] = Val(TextBox13.Value) insère le n° de téléphone sans espace
Ce fichier étant destiné pour une personne du secteur médico social, je ne peux le transmettre
merci, pour votre aide
mchotard
cs_Le Pivert
- Messages postés
- 7216
- Date d'inscription
- jeudi 13 septembre 2007
- Statut
- Contributeur
- Dernière intervention
- 19 janvier 2021
Dans le lien il y a l'exemple pour les majuscule!
@+ Le Pivert
Option Explicit
Private Sub TextBox1_Change()
Range("A2") = TextBox1.Value
End Sub
'Forcer les majuscules lors de la saisie dans un TextBox.
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub
Private Sub TextBox2_Change()
Range("Q2") = TextBox2.Value
End Sub
'empecher les espaces
Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 32 Then KeyAscii = 0
End Sub
@+ Le Pivert
