Textbox nom propre

[apdf1]

Bonjour,

Voila j'ai un USF qui contient 100 textbox et j'aimerais trouvé un code pour mettre tous les textbox en nom propre.

D'avance je vous remercie et vous souhaite une bonne journée

Cordialement

Max

 

[Softmama]

Re : Textbox nom propre

Bonjour,

un truc du genre :

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

dans le module de ton USF, à répéter 100 fois... le plus rapide étant de créer un module de classe à mon avis qui ne nécessite de ne taper le code qu'une seule fois. Je te joins un exemple à étudier. (voir le code dans Module de classe et dans Userform1

 

[pierrejean]

Re : Textbox nom propre

bonjour apdf1

Salut softmama

A adapter et tester:

Sub nompropre()
For Each tx In UserForm1.Controls
 If InStr(tx.Name, "TextBox") <> 0 Then tx.Value = UCase(Left(tx.Value, 1)) & LCase(Mid(tx.Value, 2, Len(tx.Value) - 1))
Next
End Sub

 

[Theze]

Re : Textbox nom propre

Bonjour,

Avec une boucle sur tous les texbox :

Private Sub NomPropre()

    Dim Ctrl As Control
    
    For Each Ctrl In Me.Controls
    
        If TypeName(Ctrl) = "TextBox" Then
        
            Ctrl.Text = Application.WorksheetFunction.Proper(Ctrl.Text)
            
        End If
        
    Next Ctrl

End Sub

Hervé.

 

[Bebere]

Re : Textbox nom propre

bonjour Apdf
avec un module de classe

 

[Softmama]

Re : Textbox nom propre

Re apdf1, Bonjour Pierrejean et Hervé et Bebere,

Une remarque pour la solution de Pierrejean, qui passe le premier caractère trouvé en majuscule et le reste en minuscule. La fonction Proper fait la même chose s'il n'y a qu'un mot entré, mais passe sinon en majuscule chaque première lettre de chaque mot. (Ainsi si tu entres andré dupont, la fonction Proper renverra André Dupont et non André dupont.

Le module de classe, certes un peu plus compliqué à maîtriser, permet de gérer la mise en Nom Propre des textbox de façon dynamique, au cours de la frappe. Tout dépend de ce que apdf1 souhaite obtenir.

 

[apdf1]

Re : Textbox nom propre

Bonjour Theze, PierreJean, Bebere et Softmama,

Je vous remercie à tous mais hier Softmama ma fait un code avec un module de classe qui marche très bien mais qui rentre en conflit avec celui-ci. Y a-t-il moyen de les faire cohabité ensemble.

Ci-joint le fichier que Softmama ma créer hier.

Je remercie à tous et vous souhaite un bon dimanche
Cordialement
Max

 

[pierrejean]

Re : Textbox nom propre

Re

A tester:

Private Sub MaBoite_Change()
Dim a As Integer
a = InStr(MaBoite.Name, "ox") + 2
If Val(Mid(MaBoite.Name, a)) Mod 2 = 0 Then
  If Len(MaBoite) > 0 Then UserForm1.Controls("TextBox" & Val(Mid(MaBoite.Name, a)) - 1) = "N°" & Replace(UserForm1.Controls("TextBox" & Val(Mid(MaBoite.Name, a)) - 1), "N°", "") Else UserForm1.Controls("TextBox" & Val(Mid(MaBoite.Name, a)) - 1) = Mid(UserForm1.Controls("TextBox" & Val(Mid(MaBoite.Name, a)) - 1), 3)
  MaBoite.Value = Application.WorksheetFunction.Proper(MaBoite.Value)
End If
End Sub

 

[apdf1]

Re : Textbox nom propre

Re,

Merci Pierrejean sa marche nickel

Bonne soirée

Max