XL 2010 [RESOLU par jecherche] : Premieres lettres en majuscule

[MADAGASCAR]

Bonsoir EXCEL DOWNLOADS
Bonsoir a tous et a toutes
SVP chers membres si vous pouvez m'aider a resoudre ce probleme ..
Dans cet UserForm1 je possede
Frame 1 avec TextBox1
Frame 2 avec TextBox2
J'ai aussi un code qui fait les premieres lettres d'une phrase en majuscule
Ce code fonctionne tres bien si je commence par TextBox1 mais ne fonctionne pas correctement avec TextBox2
Aussi :
Ce code fonctionne tres bien si je commence par TextBox2 mais ne fonctionne pas correctement avec TextBox1
Merci beaucoup d'avance pour l'aide
Tres cordialement
MADA BLACK

 

[jecherche]

Re : Premieres lettres en majuscule

Bonjour,

Il ne faut pas placer les frames exactement un par dessus l'autre ... car, après, on a des problèmes de sélection.
On les laisse un peu distancés et on les place dans la forme par prog.

Regarde cela... si j'ai bien compris et si ça fonctionne.


Jecherche

 

[MADAGASCAR]

Re : Premieres lettres en majuscule

Bonjour jecherche
Merci beaucoup pour votre aide
C'est effectivement ce que je veux avoir et voir
C'est parfaitement resolu
Amicalement
MADA

 

[Papou-net]

Re : [RESOLU par jecherche] : Premieres lettres en majuscule

Bonjour MADAGASCAR,
Bonjour jecherche,

Bien que ce fil soit résolu, et juste pour le "fun", une solution avec moins de lignes de code:

Private Sub CommandButton1_Click()
 Me.Frame1.Visible = True
 Me.Frame2.Visible = False
 Me.TextBox1.SetFocus
End Sub

Private Sub CommandButton2_Click()
 Me.Frame1.Visible = False
 Me.Frame2.Visible = True
 Me.TextBox2.SetFocus
End Sub

Private Sub TextBox1_Change()
TextBox1 = WorksheetFunction.Proper(TextBox1)
End Sub

Private Sub TextBox2_Change()
TextBox2 = WorksheetFunction.Proper(TextBox2)
End Sub

Private Sub UserForm_Initialize()
   CommandButton1_Click
End Sub

A +

Cordialement.

NB: Les UserForm restent alignés d'origine.

 

[MADAGASCAR]

Re : [RESOLU par jecherche] : Premieres lettres en majuscule

Bonjour Papou-net
Merci beaucoup pour votre super solution
Tres gentil de votre part
Tres cordialement
MADA