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

[MADAGASCAR]

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]

Bonsoir MADA , le Forum

ça fait longtemps?! Tu vas bien?

Voilà

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]

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]

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.

 

[Jacky67]

Bonsoir à tous,
Toutes mes condoléances à Madagascar.
Pour le textbox, ceci peut-être

Private Sub TextBox1_Change()
If Left(TextBox1, 1) <> "1" And TextBox1 <> "" Then TextBox1 = "1" & TextBox1
End Sub

 

[MADAGASCAR]

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

 

[laetitia90]

bonsoir toutes & tous
apporte rien au post
seulement pour partager la peine de notre ami Madagascar
on est avec toi dans ces moments difficiles

 

[Lone-wolf]

Bonjour laetitia , jacky

Est-ce que vous pourriez m'aider sur ce sujet?

 

[MADAGASCAR]

Bonsoir chere LAETITIA90
Rien qu'a vous dire : Du fond du coeur MERCI
Cordialement
MADA