Minuscule - majuscules

[JMarcil]

Bonjour à tous,

J'ai plusieurs colonnes dans Word que je dois copier dans Excel. La copie va très bien, (mise en forme et tout) sauf que les caractères dans Word étaient configurés par défaut en majuscule et que lorsque copiés dans Excel, ceux-ci deviennent en minuscules.

Je n'ai pas trouvé dans Excel, l'option Format Cellule que l'on peut cocher majuscule pour ajuster la mise en forme des caractères automatiquement.

J'aimerais bien trouver une solution car nous avons + de 4800 colonnes à recopier et cela va être long à tout retaper. (sans compter le risque d'erreur)

Merci de votre temps et bonne fin de journée

Josée

 

[mth]

Re : Minuscule - majuscules

Bonsoir JMarcil,

Tu as la fonction MAJUSCULE() dans excel, qui transforme tout ton texte en caractères majuscules.
Si par exemple tu as tes données en colonne A, en cellule B1 tu écris:

=MAJUSCULE(A1)

Puis tu copies la cellule B1 et tu la colle sur toutes les lignes de ton tableau en colonne B.

Dans un deuxième temps, si tu ne veux conserver que les résultats et pas les formules, tu sélectionnes toute ta colonne B, puis Edition/Copier suivi de Edition Coller/Collage spécial/Valeurs.

Bonne soirée,

mth

 

[SubEndSub]

Re : Minuscule - majuscules

Bonjour chez vous


Voici une macro pour mettre en majuscules les cellules contenant du texte de la feuille en cours.

Sub Macro1()
Dim cellules As Range, c As Range
Set cellules = Cells.SpecialCells(xlCellTypeConstants, 2)
For Each c In cellules
c.Value = StrConv(c.Text, vbUpperCase)
Next
End Sub

 

[JMarcil]

Re : Minuscule - majuscules

Merci MTH!

J'ai essayé et en collant la formule (de B à A), je perds tout mon texte dans A? J'ai fait le coller spécial avec valeur et je perds encore tout!

Qu'est-ce que je fais de pas correct?

Merci pour votre temps. Josée

 

[JMarcil]

Re : Minuscule - majuscules

Merci et Bonjour SubEndSub,

Si j'insère cette macro, j'imagine qu'elle s'appliquera à toutes les colonnes? et je ne peux appliquer cette macro à tout le fichier. Y a-t-il un moyen d'appliquer une macro qu'à une colonne donnée?

Je ne suis pas experte en macros, encore moins VB.

Merci de votre temps

Josée

 

[SubEndSub]

Re : Minuscule - majuscules

Bonjour chez vous


Quelle est le numéro de la colonne concernée?

Voici une version modifiée pour ne s'appliquer que la colonne 1 ( A)

Sub Macro1()
Dim NUMCOL As Long
Dim cellules As Range, c As Range
NUMCOL = 1 ' ici inscrire le numéro de colonne souhaité
Set cellules = Columns(NUMCOL).Cells.SpecialCells(xlCellTypeConstants, 2)
For Each c In cellules
c.Value = StrConv(c.Text, vbUpperCase)
Next
End Sub