Majuscule

[TONY21]

Bonjour à tous

Un problème tout bête (pour moi certainement)

Je ne peut mettre une majuscule automatiquement dans une cellule

J'ai rechercher dans les options ou dans l'aide, mais j'ai pas trouver mon bonheur

si quelqu'un pouvais me données la solution

Merci

@ +
Tony 21

 

[mjo]

Re : Majuscule

Bonjour,

Pas très précise comme question !

Est-ce la première lettre d'une chaîne de caratères, ou une lettre seule ?
Qu'entends-tu par "automatique" : lors de la frappe, d'un copier - coller, du résultat d'une formule ?

mjo

 

[RICO1972]

Re : Majuscule

salut Tony,

utilise la macro suivante :tu remplaces xx par la cellule souhaitée

Range("xx")=Ucase(Range("xx")

@+

 

[Jacques87]

Re : Majuscule

Bonjour

Est ce que ceci t'irait
Il suffit de cliquer sur une cellule pour que le contenu se mette en majuscule

Bon courage

 

[pierrejean]

Re : Majuscule

bonjour Tony21
Salut mjo RICO1972 Jacques87

une autre macro pour l'initiale en majuscule

Private Sub Worksheet_Change(ByVal Target As Range)
Target.Value = UCase(Left(Target.Value, 1)) & Right(Target.Value, Len(Target.Value) - 1)
End Sub

valable pour toute la feuille

si tu veux restreindre a certaines cellules reviens pour preciser lesquelles

 

[TONY21]

Re : Majuscule

Bonsoir et merci à tous

Mais je me suis mal exprimer

Au début d'un mot, la première lettre est en majuscule (comme Word)

Moi impossible, elle reste en minuscule.

Options de correction automatique puis cocher la case "Mettre une majuscule en début de phrase"

cela n'empeche pas de me servir à l'occasion des macros de Jacques87 et de pierrejean

@ +
Tony 21

 

[Foufoudora]

Re : Majuscule

Salut tout le monde

vas voir ce fil

https://www.excel-downloads.com/threads/comment-modifier-la-casse.66226/

Sub Cass1()
Selection.Characters(1, 1).Text = UCase(Left(Selection, 1))
End Sub

Cordialement

Foufoudora

 

[pierrejean]

Re : Majuscule

bonsoir à tous

transmis par Hervé

[LEFT]Private Sub Worksheet_Change(ByVal Target As Range)[/LEFT]
Target = Application.Proper(Target)
end sub

 

[TONY21]

Re : Majuscule

Bonjour pierrejean

Je ne comprend pas tout

En faite pour avoir une majuscule au début d'une phrase, il me faudrait une macro ???????

Alors une macro par classeur ????

Ou alors je suis à coté de la plaque ????????????????????

Il y a des jours ou le dique moux tourne moins bien !!!!!!!!!!!

@ +
Tony 21

 

[PascalXLD]

Re : Majuscule

Bonjour

Excel ce n'est pas Word

Mettre une majuscule en début de phrase c'est typiquement un truc non pour un tableur mais pour un traitement de texte.

Donc soit tu penses à mettre ta maj avec la touche à gauche de ton clavier soit il va falloir une macro pour automatiser cela, soit tu utilises Word ou autre traitement de texte

Bonne journée

 

[TONY21]

Re : Majuscule

Bonjour et merci Pascal76

Réponse claire et précise

Je vais donc me servir des macros pour cela

Merci encore

@ +
Tony 21

 

[nat54]

Re : Majuscule

Bonjour le fil,

C'est bizarre, car il me semble que dans certains cas Excel met bien une majuscule en 1ère lettre
et que d'ailleurs ca m'embêtait parfois

 

[PascalXLD]

Re : Majuscule

Re

Dans le cas de correction automatique ex france

 

[pierrejean]

Re : Majuscule

bonjour à tous

juste pour remercier Pascal d'avoir renseigné Tony

pour ma part je digère assez mal le trop plein de ?

(et a l'occasion il m'arrive d'etre un peu trop "dur du clic")

 

[Pyrof]

Re : Majuscule

Bonjour

Voici une macro très proche de celle de PierreJean

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target = UCase(Mid(Target, 1, 1)) & Mid(Target, 2)
End Sub

Je ne connais pas application.proper

Bonne fin de journée à tous