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

Lone-wolf

XLDnaute Barbatruc

• 11 Février 2017

• #2

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

 

Vote positif 0 Vote négatif

MADAGASCAR

XLDnaute Occasionnel

• 11 Février 2017

• #3

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 11 Février 2017

• #4

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.

 

Pièces jointes

• Classeur-exemple.xlsm

  18.8 KB · Affichages: 34

Dernière édition: 11 Février 2017

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 11 Février 2017

• #5

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

 

Vote positif 0 Vote négatif

MADAGASCAR

XLDnaute Occasionnel

• 11 Février 2017

• #6

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

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 11 Février 2017

• #7

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 11 Février 2017

• #8

Bonjour laetitia , jacky

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

 

Vote positif 0 Vote négatif

MADAGASCAR

XLDnaute Occasionnel

• 11 Février 2017

• #9

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

 

Vote positif 0 Vote négatif