macro 1 lettre en MAJ

[Evelynetfrancois]

bonjour
Auriez vous svp sous le coude !!
une petite macro qui mettrait toutes les premieres
lettres de chaque celulle en Maj
merci beaucoup d'avance
EetF

 

[Bernard_XLD]

Bonjour

une possibilité avec déclenchement manuel

Sub Maj_Prem_Lettre()
Dim Cel_en_Cours As Range, Test As Boolean, Range_Test As Range
Test = False
On Error GoTo Gere_Erreurs
Set Range_Test = Range('A1').SpecialCells(xlCellTypeConstants, 23)
On Error GoTo 0
If Test = False Then
For Each Cel_en_Cours In Range_Test
Cel_en_Cours.Value = UCase(Left(Cel_en_Cours.Value, 1)) & Right(Cel_en_Cours.Value, Len(Cel_en_Cours.Value) - 1)
Next Cel_en_Cours
End If
Exit Sub
Gere_Erreurs:
Test = True
Resume Next
End Sub

Cordialement, A+

 

[_Thierry]

Bonjour José, Yeahou, E&F

Bon alors pour mon 600ème ... On va faire simple et court ...

MsgBox Application.Proper('thierry')
LOL !!!

Bon App
@+Thierry

PS, vous minez pas les gars on m'a fait le même coup Lien supprimé où d'ailleurs il y avait E&F...

 

[Bernard_XLD]

Salut Thierry

je ne la connaissais pas celle la!

Merci, A+

 

[ANDREA]

Salut
Voila un petit condensé de maj min ......

Sub Majus()
For Each Cell In selection
Cell.Value = UCase(Cell.Value)
Next Cell
End Sub

Sub Minus()
For Each Cell In selection
Cell.Value = LCase(Cell.Value)
Next Cell
End Sub

Sub MajDebMot()
For Each Cell In selection
Cell.Value = Application.WorksheetFunction.Proper(Cell.Value)
Next Cell
End Sub

à+
andrea

 

[Evelynetfrancois]

bonjours Jmps Yeahou Thierry et andrea
je vous remercie pour tout

ce que je cherché c'etait pour mettre la premiere lettre en maj dans les cellules deja saisie , et etre quitte de le faire l'une apres l'autre

c'est en fait exatement ce que ANDREA ma donne que je recherché

merci beaucoup a bientot
bonne soiree
EetF

 

[Mi_]

Bonjour,

Et pour avoir tous les mots de la cellule A1 avec la première lettre en majuscule ?

Ex: Taper 'jean nicolas' et avoir 'Jean Nicolas'

De manière automatique svp , et même pour 'Jean-Nicolas'.

Idées ?

Merci,
Mi_

 

[Mi_]

Bonjour jmps, le forum,

Hé oui, j'utilise la fonction de recherche moi.

Je n'utilise pas de Textbox, c'est dans la cellule A1 de toutes les feuilles du classeur que je voudrais avoir la première lettre de chaque mot en MAJ.

 

[Mi_]

Merci jmps, ça marche !!

Ce n'est pas instantané, à la saisie du nom de la cellule, mais j'ai quand même pu lier le macro à un evenement tardif sur la feuille.

Encore merci.