XL 2010 [ Resolu par Lone-wolf &jacky67] : Condition spéciale

MADAGASCAR

XLDnaute Occasionnel
Bonsoir EXCEL DOWNLOADS
Bonsoir tout le monde
SVP Gentelmans
Comment faire obliger l'utilisateur de commencer toujours a ecrire le numero1 (UN) dans par exemple TextBox1.
Merci beaucoup d'avance pour l'aide
Amicalement
MADA
 

Lone-wolf

XLDnaute Barbatruc
Bonsoir MADA :), le Forum:)

ça fait longtemps?! Tu vas bien?

Voilà

VB:
Private Sub Textbox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr("A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z", Chr(KeyAscii)) = 0 Then KeyAscii = 0: _
MsgBox "Veuillez saisir le nombre en lettres majuscules", , "AVVERTISSEMENT"
End Sub
 

MADAGASCAR

XLDnaute Occasionnel
Cher ami ..tres cher ami Lone-wolf
Je suis tres tres heureux de vous rencontrer ..aussi tres ravi que vous etres bien
J'ai perdu mon grand frere ..c'etait une periode un peu dur pour moi ..pour cela j'ai un peu quitter et me voila pour toujours
Desole cher Lone-Wolf ..j'ai mal exprime mon probleme je veux si je commence a ecrire dans TextBox le chiffre 2 ou 3 ou 4 ...je ne peux pas il faut commencer par le chiffre 1 ..pas en lettre
Merci beaucoup et je suis desole une deuxieme fois
Cordialement
MADA
 

Lone-wolf

XLDnaute Barbatruc
Re MADA

Toutes mes sincères condoléances. Il faut dans ce cas remplacer les lettres pas les chiffres "1, 2,3, 4, 5, 6, 7, 8, 9, 0".

EDIT: une autre façon de faire en PJ. Utilise TAB du clavier une fois écrit le nombre ou le texte.
 

Fichiers joints

Dernière édition:

Jacky67

XLDnaute Accro
Bonsoir à tous,
Toutes mes condoléances à Madagascar.
Pour le textbox, ceci peut-être
Code:
Private Sub TextBox1_Change()
If Left(TextBox1, 1) <> "1" And TextBox1 <> "" Then TextBox1 = "1" & TextBox1
End Sub
 

MADAGASCAR

XLDnaute Occasionnel
Merci cher ami Lone-wolf
Merci cher jacky67
Merci beaucoup pour vos sentiments
Merci aussi pour vos extra solutions
Les deux solutions fonctionnent tres tres bien
Parfaitement resolu
MADA
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas