If Not IsNumeric & -

M

MichelXld

XLDnaute Barbatruc

• 3 Avril 2005

• #2

bonjour Temjeh

j'espere que ces 2 exemples , qui verifient le format du TextBox et de l'InputBox , pourront t'aider


Valeur = InputBox('saisir le numero de Tel au format 88-88-88-88-88')
If Not Valeur Like '##-##-##-##-##' Then
MsgBox 'Le format saisi n'est pas valide'
Exit Sub


If Not TextBox4 Like '##-##-##-##-##' Then
MsgBox 'Le format saisi n'est pas valide'
TextBox4 = ''
Exit Sub
End If


bon dimanche
MichelXld

 

Vote positif 0 Vote négatif

T

Temjeh

Guest

• 3 Avril 2005

• #3

Merci beaucoup c'est très bon sauf que si la personne met par erreur une lettre dans le no de tél ca valide quand-même.

Y-a-t-il autre sol du genre:

If Not numeric (TextBox4 Like '###-###-####') Then
MsgBox ' Erreur dans le téléphone ! '

Sinon je prend ta solution qui est tres bonne et on a juste a être prudent en tapant le no.

Merci encore

Temjeh

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 3 Avril 2005

• #4

rebonjour Temjeh

ce lien devrait t'aider

Lien supprimé


bon dimanche
MichelXld

 

Vote positif 0 Vote négatif

T

Temjeh

Guest

• 3 Avril 2005

• #5

Merci Michel je doit partir je te redonne des nouvelles

Temjeh

 

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 3 Avril 2005

• #6

Bonjour Michel, Temjeh, le Forum

Peut-être une autre approche avec cette démo UserForm que j'avais réalisée pour un masque de saisie correspondant au format canadien pour les codes postaux (Ex: G6F 7R8).

NB: la dificulté était plus grande qu'ici vu qu'il fallait de l'Apha et du Numérique, donc respecter l'exemple dans le label au dessus de chaque TextBox pour tester la Démo.

On peut facilement l'adapter pour ton cas Temjeh, il suffit de jouer avec les code caractère ANSI utilisés dans les boucles de contrôles... Pour ton cas ceux-ci t'intéresse
48 = 0
49 = 1
50 = 2
51 = 3
52 = 4
53 = 5
54 = 6
55 = 7
56 = 8
57 = 9
Soit la boucle de 'TextBox2_Change'...

Et au final le code de la dernière TextBox6, contient la concaténation nécessaire au format
TheCode = TextBox1 TextBox2 & TextBox3 & '-' & TextBox4 & TextBox5 & TextBox6 &'-' (etc à toi d'ajouter les textBox)

Démo Téléchargeable => Lien supprimé

Bon Dimanche
@+Thierry

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 3 Avril 2005

• #7

rebonjour Temjeh , bonjour @+Thierry

Temjeh , j'étais en train de relire ton message de 13:01
je ne comprends pas ta remarque car chez moi , si je controles le format '###-###-####' : le message d'alerte s'affiche bien dans le cas ou une donnée non numérique serait saisie dans le TextBox
(testé avec Excel2002)


bonne soiree
MichelXld

 

Vote positif 0 Vote négatif

T

Temjeh

Guest

• 3 Avril 2005

• #8

Merci à tous pour cette grosse job du dimanche

Dernière tentative:

If Not numeric(TextBox4.Text Like '###-###-####') Then
MsgBox ' Erreur '
Exit Sub
Else

Il me bug à TextBox4

Merci à tous

Temjeh

 

Vote positif 0 Vote négatif

T

Temjeh

Guest

• 3 Avril 2005

• #9

Merci: Merci: XLD_naute, MichelXld, _Thierry

Tu as raison Michel Ca solution ###-###-#### est tres adapté a ma recherche avec erreur si non numeric

Bravo!!

Temjeh

 

Vote positif 0 Vote négatif

K

KGreg

Guest

• 5 Avril 2005

• #10

Bonjour à tous

Vous allez rire mais je recherche le contraire :
c'est-à-dire le moyen de déterminer s'il y a un chiffre dans une saisi.

Voila ce que j'ai :

Private Sub Nom_Prénom_Change()

Dim NouvNom, NouvPrénom As String
If Nom_Prénom.ListIndex = 0 Then
NouvNom = InputBox('Nom du nouveau Demandeur', 'Nouveau Nom')
NouvPrénom = InputBox('Prénom du nouveau Demandeur', 'Nouveau Prénom')
Nom_Prénom.Value = UCase(NouvNom) & ' ' & _
Application.WorksheetFunction.Proper(NouvPrénom)
End If

End Sub

Private Sub Nom_Prénom_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If NouvNom = '' Or NouvPrénom = '' Then
MsgBox 'Vous devez entrer le nouveau Nom ou Prénom'
Exit Sub
End If

....

Je cherche à savoir si lors de la saisi de Nouvnom et NouvPrénom si les champs sont vides (je pense que ça c'est pasa trop difficile) mais aussi qu'il n'y ait aucun chiffre parmi les lettres.

Voila. merci d'avance pour votre aide
KGreg

 

Vote positif 0 Vote négatif

T

Temjeh

Guest

• 5 Avril 2005

• #11

Bonjour kgreg

Pour une meilleur visibilité poste un nouveau message a la page d'acceuil et une rep va venir

A++

Temjeh

 

Vote positif 0 Vote négatif

K

KGreg

Guest

• 6 Avril 2005

• #12

ok merci

 

Vote positif 0 Vote négatif