Message erreur Userform

Résolu/Fermé

mchotard Messages postés 438 Date d'inscription vendredi 6 mai 2011 Statut Membre Dernière intervention 24 janvier 2025 - 8 janv. 2021 à 11:50
mchotard Messages postés 438 Date d'inscription vendredi 6 mai 2011 Statut Membre Dernière intervention 24 janvier 2025 - 8 janv. 2021 à 16:49

Bonjour
Dans ma userform je veux que le nom soit écrit en majuscule, sinon il faudrait un message pour signaler l'erreur
De même pour le numéro de téléphone s'il manque un chiffre par exemple.
Merci à tous

A voir également:

Message erreur Userform
Message - Guide
Erreur 0x80070643 - Accueil - Windows
Recuperer message whatsapp supprimé - Guide
Message d'absence thunderbird - Guide
Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows

3 réponses

Réponse 1 / 3

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
8 janv. 2021 à 12:04

Bonjour,

voir ceci

https://silkyroad.developpez.com/VBA/ControlesUserForm/#LII-E

Réponse 2 / 3

mchotard Messages postés 438 Date d'inscription vendredi 6 mai 2011 Statut Membre Dernière intervention 24 janvier 2025 43
8 janv. 2021 à 14:52

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

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
Modifié le 8 janv. 2021 à 16:30

Dans le lien il y a l'exemple pour les majuscule!

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

Réponse 3 / 3

mchotard Messages postés 438 Date d'inscription vendredi 6 mai 2011 Statut Membre Dernière intervention 24 janvier 2025 43
8 janv. 2021 à 16:49

Merci c'est OK cela marche bien. C'est super
Cdlt

Discussions similaires

qu'est-ce que diff message ?

message "impossible d'envoyer le message via free erreur 0"