majuscules et minuscules

[mimi]

Salut tout le monde;

Je ne suis pas un pro de Excel mais je me démerde !!

J’ai rassemblé plusieurs tableaux, le résultat donne des colonnes ou sont mélangées

Des données minuscules et majuscules !!

y a-t-il un moyen de passer (simplement si possible) une colonne mixe (maj ;min) en une colonne contenants soit que des minuscules soit que des majuscules ou pourquoi pas la première lettre majuscules et le reste en minuscules .

Je remercie d’avance toute celle ou ceux qui pourront m’aidée a progresser

 

[Duriz]

Salut tout le monde !

Ci joint un zip avec une première solution...

En espérant t'aider..

A+,

Duriz

 

[C@thy]

Coucou mimi, Duriz et le forum

exact, Duriz!!!
(il y a aussi la fonction NOMPROPRE pour avoir la 1ère lettre en majuscules)

donc, mimi, tu fais = MAJUSCULE(A1) dans une autre colonne, puis tu recopies vers le bas autant de fois qu'il faut (si la colonne est adjacente, un double-clic sur la poignée de recopie est bien utile)
Ensuite, tu sélectionnes ces données en majuscule et tu fais un copier/collage spécial Valeurs, et tu peux remplacer ta colonne d'origine par ces valeurs en majuscule.

Oui, je sais, c'est un peu long, mais Excel est un très mauvais traitement de texte.

Si tu veux faire ça par macro, j'ai ça en magasin aussi.

Biz

C@thy

 

[Eric C]

Bonjour le forum
Bonjour mimi & Duriz

Un code puiser ici même.
// Sélectionner tous les mots d'une colonne (chaque cellule ne comprend qu'un mot) et mettre chaque initiale en majuscules.
Sub MajusculeInitiale() ' de Michel (Lapin bleu que je salue)
Dim cell As Range
For Each cell In Range("A1:A100") ' à adapter selon projet
cell = Application.Proper(cell)
Next cell
End Sub

@ ++ Eric C

 

[Eric C]

Re le forum

Excuses moi j'étais sous XL à tester le code de notre lapin bleu pour voir s'il convenait à mimi donc bonjour à toi C@thy.

@++ Eric C

 

[andré]

Salut,

Voici une macro (ma première !) simplement enregistrée (Menu Outils / Macro) et qui met les cellules de A1 à A20 en majuscules :

Range("B1").Select
ActiveCell.FormulaR1C1 = "=+UPPER(RC[-1])"
Selection.AutoFill Destination:=Range("B1:B20"), Type:=xlFillDefault
Range("B1:B20").Select
Columns("B:B").Select
Selection.Copy
Range("B1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Columns("A:A").Select
Selection.Delete Shift:=xlToLeft
End Sub

Je ne savias pas que c'était aussi simple !

Ândré.

 

[C@thy]

Bonjour Eric C

tiens, v'la une macro en P.J.

(pour voir le code faire Alt+F11 une fois le classeur ouvert)

(j'ai pioché des idées à droite à gauche et rajouté ma sauce!)

C@thy

 

[C@thy]

Salut André

autant pour moi, j'ai envoyé une procédure événementielle, c'est pas le bon fichier, on s'y perd avec ces noms qui se ressemblent, voilà le bon.

C@thy

 

[C@thy]

Ah je sais, j'ai inversé le zip, dans majusminus il y a majus2 et inversement.

C@thy

 

[C@thy]

Idées prises notamment chez @+Thierry et Jean-Marie

C@thy

 

[Moa]

Salut à tous !

Sinon, si tu ne veux pas t'embêter à faire une macro ou rajouter une colonne avec des formules, tu as une solution très simple...Héhé...!!!

Tu vas en zone téléchargement , rubrique "Utilitaire", tu télécharges ma macro complémentaire "Moa'sSelections" et voilà.

Dedans tu as la fonction "Majuscule", sans effort.

@ +

Moa

 

[mimi]

Re salut

Je suis épaté par la rapidité du forum, le sérieux et la sympathie des intervenants je n’ai pas eu le temps de mettre en application mais je vous tire mon chapeau ;o) mimi

 

[Yvan LUNGELA ( congo RDC )]

une petite astuce de conversion en majiscule très très simple dans excel

Attention !!!!!

cette procedure ne convertit que les caractères miniscules en majiscules



sub ConvMinMaj()

dim maselection as string

maselection = activecel.value
maselection = ucase(maselection)
activecel.value = maselection

end sub

pour plus d'infos envoyer email ou appeler au 00243 99 64 351