Format texte

[Ludwig]

Bonjour à tous,

Je suis de retour sur le forum afin d'en apprendre un peu plus... pour changer.

La question serai de savoir s'il existe une macro qui met en majuscule la première lettre d'un mot et une autre qui met aussi en majuscule mais toutes les lettres du mot. Ex: "bonjour=>Bonjour" et "azerty123=>AZERTY123".

Je pensai trouver ça dans la barre d'outils mais je n'ai rien trouvé. En fait avec cette macro je souhaite forcer l'écriture en majuscule dans les cellules ou textbox.

Merci d'avance pour vos réponses. Sinon je vous souhaite à tous une très bonne journée et même un bon week-end.

A bientôt,

Ludwig

 

[brigitte]

Bonjour Ludwig,


Inspirées grâce à Monique, voici deux formules qui marchent impecc :

=MAJUSCULE(TEXTE(A1;"XXX"))
=NOMPROPRE(TEXTE(A1;"Xxx"))

Bon we.



Brigitte

 

[Art]

Bonjour Ludwig, bonjour le Forum

Tu dois d'abord selectionner ta plage.
Pour tout mettre en majuscule

Sub Majuscules()
Dim Cell As Variant
Application.StatusBar = "Mise en majuscule de la sélection. Patientez SVP."
Application.ScreenUpdating = False
For Each Cell In Selection
Cell.Value = UCase(Cell.Value)
Next Cell
Application.StatusBar = False
Application.ScreenUpdating = True
End Sub

Pour avoir seulement la première lettre en majuscule:

Sub Minus1maj()
Dim Cell As Variant
On Error Resume Next
For Each Cell In Selection
Cell.Value = UCase(Left(Cell.Value, 1)) & _
LCase(Right(Cell.Value, Len(Cell.Value) - 1))
Next Cell
End Sub

Ces macros viennent des participants de ce Forum qui est une vrai mine d'information, merci encore à tous.
@+
Art

 

[brigitte]

Re bonjour,

Si tu veux vraiment une macro, bien sûr il te faut suivre les conseil d'Art, sorry.

Brigitte

 

[Ludwig]

Bonjour Brigitte et Art,

Vraiment merci du fond du coeur pour vos informations, c'est parfait. J'ai trouvé aussi une solution pour tout mettre en majuscule. Il m'a suffit de télécharger les "cours2". Art, tu as raison, ce forum ast une vrai mine d'or.

Merci à tous les participants pour vos réponses et vos questions car ça nous permet à tous d'avancer...


Bonne journée

Ludwig

 

[brigitte]

Re bonjour,


Ludwig, voici une autre solution postée par @+Thierry il y a quelques jours, et qui marche pour Daniel :

<http://www.excel-downloads.com/html/French/forum/messages/1_72177_72177.htm>

Comme ca, tu as le choix..




Brigitte

 

[bipbipcoyote]

http://bipbipcoyote2000.site.voila.fr/Excel/Majuscule/Pages/MacroMajuscules.html

 

[Ludwig]

Bonsoir à tous,

Merci pour tout il y a vraiment matière à travailler. La solution postée par @+Thierry fonctionne parfaitement, c'est même exactement ce que je cherchai...

Encore merci à vous tous et à bientôt

Ludwig