Format personnalisé sur du texte dans Excel

gascogne gascogne
26 contributions
Membre depuis le 06/09/2001
Envoyé le 19/03/2003 à 10:32


connaissez vous une possibilité de créer un format personnalisé qui fait lorsque l\'on tape du texte sous excel, la première lettre est automatiquement en majuscule ?
merci.

cameleon30 cameleon30
784 contributions
Membre depuis le 25/06/2001
Envoyé le 19/03/2003 à 10:38


Il y a bien la fonction majuscule mais je crois qu\'elle met tout t-on mot en majuscule
http://www.helpclic.net
jlazard jlazard
62 contributions
Membre depuis le 04/08/2002
Envoyé le 19/03/2003 à 18:01


Bonjour,
A ma connaissance,cette fonction n\'existe pas sur Excel.
Celui-ci n\'étant pas un traitement de texte.
Par contre, on peut changer les mots soit en MAJUSCULES ou en MINUSCULES
ou la première lettre de chaque mot en MAJUSCULE.
Exemple:
en A1___lazard
dans une autre cellule : =majuscule(a1)--------résultat------LAZARD
en A2___LAZARD : =minuscule(a2)-------------------------lazard
en a3------lazard jacques: =nompropre(a3)----------------------Lazard Jacques
Ceci terminé il faut copier le nouveau texte sur l\'ancien en faisant un collage spécial
et cocher la fonction valeur.
Ce procédé est valable pour des changements en colonne de grandes dimensions.
Mais cela peut servir.
J\'espère avoir été clair
Jlazard

l
Jlazard
Bipbipcoyote Bipbipcoyote
3 956 contributions
Membre depuis le 06/03/2001
Envoyé le 20/03/2003 à 00:04


[url]membres.lycos.fr/bipbipcoyote/Excel/Majuscule/Pages/MacroMajuscules.html[/url] the solution [;)]
Visitez mon Site Google est mon ami, il répond mieux que moi, posez lui d'abord vos questions
Bipbipcoyote Bipbipcoyote
3 956 contributions
Membre depuis le 06/03/2001
Envoyé le 20/03/2003 à 00:48


automatiser cette fonction pour TOUTES les cellules peut devenir embêtant, mais on peut par exemple créer une macro toute simple

Sub changement()
ActiveCell = UCase(Left(ActiveCell, 1)) + Mid(ActiveCell, 2, Len(ActiveCell))
End Sub

et lui associer un bouton dans la barre des tâches

ou alors l\'inclure dans la feuille sur l\'événement double clic

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveCell = UCase(Left(ActiveCell, 1)) + Mid(ActiveCell, 2, Len(ActiveCell))
End Sub
Visitez mon Site Google est mon ami, il répond mieux que moi, posez lui d'abord vos questions

Discussion trop ancienne

Cette discussion a été automatiquement fermée car elle n'a plus reçue de nouveau message depuis trop longtemps.

Nous vous suggérons de créer un nouveau message

« Retour sur la liste des messages de ce forum