Comment convertir du texte en majuscule?

[LeFennec]

Bonjour,

Est-il possible de faire en sorte que, quand je tape du texte en minuscule dans une cellule, il se mette automatiquement en majuscule?

Merci

 

[C@thy]

zut zt zut, .ZIP était en majuscules! [file name=Majus.zip size=9823]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Majus.zip[/file]

 

[C@thy]

La soluce de Michel [file name=Majus3.zip size=7679]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Majus3.zip[/file]

 

[andré]

Salut C@thy,

Petite remarque qui n'a rien à voir avec ce post : je trouve que ta signature ressemble de plus en plus à un cygne, ou est-ce que je me trompe (lol uniquement compréhensible par l'intéressée).

Ândré.

 

[C@thy]

Mouaaaaaaaaarf!!!

 

[C@thy]

pour ceux qui voudraient comprendre, et rigoler un bon coup, voici un lien vers un site ami.
Ce lien n'existe plus

 

[LeFennec]

C@thy,

j'ai utilisé une procédure trouvée dans ton fichier attaché:

Sub ConvertirEnMajucule()
For Each c In Selection
c.Formula = StrConv(c.Formula, 1)
Next c
End Sub

Ca fonctionne, mais c'est très lent: j'ai sélectionné une plage de 425 cellules et j'ai demandé la conversion avec cette macro. Ca a duré exactement 2 minutes 46!

Y-a pas un moyen d'accélérer?

 

[Thomas]

Bonjour le forum,

Est il possible de faire une macro qui met la 1er lettre en majusule puis le reste en minuscule.

puis je me baser sur une des macros ci dessus?

d'avance merci

 

[Sebastien]

Bonjour Thomas,

Il suffit de remplacer le paramètre 1 dans le code cité plus haut par le paramètre vbProperCase

Le code pour convertir la 1ère lettre en majuscule est donc

Sub ConvertirEnMajuculelapremierelettre()
For Each c In Selection
c.Formula = StrConv(c.Formula, vbProperCase)
Next c
End Sub

Sébastien

 

[C@thy]

Thomas, tu as un exemple dans ce que j'ai posté, il suffit de regarder

 

[C@thy]

voir fichier joint posté le 17/03 à 20:35

 

[C@thy]

euh non, 9h35!!

 

[niki42]

Bonjour à tous

Je profite du fait que pour une fois je pouvais pouvoir aider quelqu'un

Ci dessous une macro qui convertit le texte en majuscule, en minuscule et la première lettre de chaque mot en majuscule.
Je pense de quoi satisafaire votre curiosité.
Je me suis inspiré d'un modèle dans une revue. Je ne suis pas encore aussi douée.
:whistle:

Private Sub Bouton_Annulation_Click()
Unload UserForm1
End Sub

Private Sub Bouton_OK_Click()
Dim cellule As Range
' Majuscules
If Option_Majuscules Then
For Each cellule In Selection
cellule.Value = UCase(cellule.Value)
Next cellule
End If
' Minuscules
If Option_Minuscules Then
For Each cellule In Selection
cellule.Value = LCase(cellule.Value)
Next cellule
End If
' 1ère lettre en majuscules
If Option_1èreCapitale Then
For Each cellule In Selection
cellule.Value = Application.WorksheetFunction.Proper _
(cellule.Value)
Next cellule
End If
' Déchargement de la boîte de dialogue
Unload UserForm1
End Sub


Voilà un peu de code à ajouter à un userform composé de 3 boutons d'options ( 1 pour chaque choix possible) + 1 bouton ok et 1 bouton annuler. Puis affecter à cette macro un raccourci et le tour est joué.


Voilà
Bye Bye

:kiss:

 

[Billy95660]

J'ai l'impression que vous êtes la seule personne qui puisse m'aider,
j'ai un listing de plus de 200 noms et je voudrais mettre en majuscule uniquement la 1er lettre du nom dans une adresse ( ex : 10 rue des Paqurettes).
Merci d'avance.

 

[C@thy]

Hello Billy,

pas facile ta question! Le nom de la rue est-il toujours le dernier mot?
ou bien as-tu des adresses du genre Rue du Moulin à vent?
Impossible de mettre le 2ème mot en Nompropre (1ère lettre en majuscules) par ex. Rue des Orangers et s'il y ba un nom et un prénom les 2 en majuscules, exemple rue Albert Camus, par contre Place Charles de Gaulle, le de n'a pas de majuscule.
Donc il faut connaître toutes les règles de gestion pour faire ça!!!

 

[C@thy]

Comme dirait si bien André, le mieux c'est de mettre tout en majuscules!