Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel [Truc tout bête] passer en minuscules

[Truc tout bête] passer en minuscules

16 réponses
Avatar
Jean
hello !
je me heurte à un problème vraiment très con :
ma société m'a envoyé un fichier client tout en majuscules, donc volumineux
à l'impression et peu lisible...
Je sélectionne donc tout mon tableau, je me dirige naturellement vers
"Format / Cellule / Police" et là : surprise !!!
rien, pas le moindre bouton pour basculer majuscules/minuscules....
j'ai fouillé dans les paramètres d'affichage, et je ne trouve pas cette
fonction...

Où est elle ??

merci d'avance
Jean
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Ellimac
Bonjour,

Cela n'est pas prévu dans les commandes Excel.
Solution 1 :
Copier ce qui dans Excel et le coller dans Word. Dans Word
Sélectionner tout et faire Shift+F3. Copier de Word vers
Excel.
Solution 2 :
Insérer une colonne dans Excel et y mettre la fonction :
=Minuscule(A2) par exemple
Recopier vers le bas (2 clic sur la poignée de recopie).
Copier cette colonne et faire un collage spécial/Valeurs.
Supprimer la colonne de référence.
Solution 3 :
Une macro en sélectionnant une plage :
Sub Minuscule()
For Each cell In Selection
cell.Value = LCase(cell)
Next
End Sub

Il y en a sûrement d'autres....

Camille

-----Message d'origine-----
hello !
je me heurte à un problème vraiment très con :
ma société m'a envoyé un fichier client tout en
majuscules, donc volumineux

à l'impression et peu lisible...
Je sélectionne donc tout mon tableau, je me dirige
naturellement vers

"Format / Cellule / Police" et là : surprise !!!
rien, pas le moindre bouton pour basculer
majuscules/minuscules....

j'ai fouillé dans les paramètres d'affichage, et je ne
trouve pas cette

fonction...

Où est elle ??

merci d'avance
Jean



.



Avatar
presque en france
Bonjour , aurais tu essayer de mettre ton fichier dans words , la tu as une
options qui te permet de mettre tout en minuscules , elle se trouve , dans
Format /modifier la casse.


"Jean" a écrit
dans le message de news:
hello !
je me heurte à un problème vraiment très con :
ma société m'a envoyé un fichier client tout en majuscules, donc
volumineux

à l'impression et peu lisible...
Je sélectionne donc tout mon tableau, je me dirige naturellement vers
"Format / Cellule / Police" et là : surprise !!!
rien, pas le moindre bouton pour basculer majuscules/minuscules....
j'ai fouillé dans les paramètres d'affichage, et je ne trouve pas cette
fonction...

Où est elle ??

merci d'avance
Jean






---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.501 / Virus Database: 299 - Release Date: 14/07/2003

Avatar
Jean
"Ellimac" a écrit dans le
message de news: 43d101c375ea$b088ac90$
Bonjour,

Cela n'est pas prévu dans les commandes Excel.
Solution 1 :
Copier ce qui dans Excel et le coller dans Word. Dans Word
Sélectionner tout et faire Shift+F3. Copier de Word vers
Excel.
Solution 2 :
Insérer une colonne dans Excel et y mettre la fonction :
=Minuscule(A2) par exemple
Recopier vers le bas (2 clic sur la poignée de recopie).
Copier cette colonne et faire un collage spécial/Valeurs.
Supprimer la colonne de référence.
Solution 3 :
Une macro en sélectionnant une plage :
Sub Minuscule()
For Each cell In Selection
cell.Value = LCase(cell)
Next
End Sub

Il y en a sûrement d'autres....

Camille

Super !
je vais tester un et deux (pour la 3 je maitrise pas assez... :(( )

Merci !
Jean
*
Avatar
Bulle
Bonjour,

J'ajoute mon grain de sel...

Basculer des majuscules en minuscule ne pose pas de problème dans Word, mais
attention à l'inverse lorsqu'il y a des accents, Shift+F3 les oublie très
vite.

Penser à cocher Majuscules accentuées dans le menu Outils, Options, onglet
Edition afin de les conserver dans ce sens.

Bon courage à tous.

Liana :-)


"presque en france" a écrit dans le message de news:

Bonjour , aurais tu essayer de mettre ton fichier dans words , la tu as
une

options qui te permet de mettre tout en minuscules , elle se trouve , dans
Format /modifier la casse.


"Jean" a écrit
dans le message de news:
hello !
je me heurte à un problème vraiment très con :
ma société m'a envoyé un fichier client tout en majuscules, donc
volumineux

à l'impression et peu lisible...
Je sélectionne donc tout mon tableau, je me dirige naturellement vers
"Format / Cellule / Police" et là : surprise !!!
rien, pas le moindre bouton pour basculer majuscules/minuscules....
j'ai fouillé dans les paramètres d'affichage, et je ne trouve pas cette
fonction...

Où est elle ??

merci d'avance
Jean






---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.501 / Virus Database: 299 - Release Date: 14/07/2003





Avatar
Jean
"Jean" a écrit
dans le message de news:

Bon merci à tous pour vos réponses.....
mais gros souci quand même... le fichier excel est énorme (3800 lignes
environ)
du coup les méthodes 1 et 2 marchent pas.

J'ai testé la macro : le pc pourtant récent (athlon xp2600+ 512 mos)
pédale, utilisation de l'UC bloquée à 100% ... j'ai interrompu au bout d'une
quinzaine de minutes, de peur qu'il chauffe...

jean
Avatar
michdenis
Bonjour Jean,


La procédure qui suit met toutes les cellules de la "Feuil1" en minuscule.

Il ne te reste plus qu'à adapter le nom de la feuille à celui de ton projet.


'--------------------------
Sub MiseEnMajusculePremièreLettre()

Dim Tblo As Variant, Rg As Range

'********A déterminer Nom De la Feuille********

Set Rg = Worksheets("Feuil1").UsedRange

'****************************************

Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual

Tblo = Rg.Formula
For A = 1 To UBound(Tblo, 1)
For b = 1 To UBound(Tblo, 2)
If Tblo(A, b) <> "" Then
If Left(Tblo(A, b), 1) <> "=" And Left(Tblo(A, b), 1) <> "+" Then
Tblo(A, b) = LCase(Tblo(A, b))
End If
End If
Next
Next
Rg = Tblo
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
Set MaPlage = Nothing

End Sub
'--------------------------




"Jean" a écrit dans le message de
news:
hello !
je me heurte à un problème vraiment très con :
ma société m'a envoyé un fichier client tout en majuscules, donc volumineux
à l'impression et peu lisible...
Je sélectionne donc tout mon tableau, je me dirige naturellement vers
"Format / Cellule / Police" et là : surprise !!!
rien, pas le moindre bouton pour basculer majuscules/minuscules....
j'ai fouillé dans les paramètres d'affichage, et je ne trouve pas cette
fonction...

Où est elle ??

merci d'avance
Jean
Avatar
michdenis
Bonjour Pierre,

Le Monsieur, il veut son texte en minuscule ....

;-))


Salutations!


"Pierre Fauconnier" a écrit dans le message de news:
Bonsoir

Avec un PIII 500, pour 5000 lignes sur 4 colonnes, l'ordi met
8 secondes lorsque toutes les cellules sont remplies
31 secondes lorsque la plupart des cellules de la sélection sont vides

Par contre, on ajoutant un test pour voir si cellule est vide, on passe à 10
secondes avec toutes les cellules remplies et à 1 seconde ( !!! ) avec
beaucoup de cellules vides

Sub Minuscule(Plage As Range)
Dim Cell As Range
For Each Cell In Plage
If Cell.Value <> "" Then _
Cell.Value = UCase(Cell)
Next
End Sub


--
Cela convient-il?
----
Pierre Fauconnier
"N'insulte pas le crocodile avant d'avoir traversé la rivière" (Julos
Beaucarne)

Jean wrote:
"Jean" a
écrit dans le message de news:


Bon merci à tous pour vos réponses.....
mais gros souci quand même... le fichier excel est énorme (3800 lignes
environ)
du coup les méthodes 1 et 2 marchent pas.

J'ai testé la macro : le pc pourtant récent (athlon xp2600+ 512 mos)
pédale, utilisation de l'UC bloquée à 100% ... j'ai interrompu au
bout d'une quinzaine de minutes, de peur qu'il chauffe...

jean


Avatar
michdenis
Bonjour Pierre,

Avec un P2 400, pour des données d'une plage de cellules(toutes occupées) de A1:Z5100
en utilisant un tableau, le temps alloué est de 4.6 secondes pour l'exécution de la macro


'--------------------------
Sub MiseEnMajusculePremièreLettre()

Dim Tblo As Variant, Rg As Range

'********A déterminer Nom De la Feuille********

Set Rg = Worksheets("Feuil1").UsedRange

'****************************************

Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual

Tblo = Rg.Formula
For A = 1 To UBound(Tblo, 1)
For b = 1 To UBound(Tblo, 2)
If Tblo(A, b) <> "" Then
If Left(Tblo(A, b), 1) <> "=" And Left(Tblo(A, b), 1) <> "+" Then
Tblo(A, b) = LCase(Tblo(A, b))
End If
End If
Next
Next
Rg = Tblo
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
Set MaPlage = Nothing

End Sub
'--------------------------

Salutations!

"Pierre Fauconnier" a écrit dans le message de news:
Bonsoir

Avec un PIII 500, pour 5000 lignes sur 4 colonnes, l'ordi met
8 secondes lorsque toutes les cellules sont remplies
31 secondes lorsque la plupart des cellules de la sélection sont vides

Par contre, on ajoutant un test pour voir si cellule est vide, on passe à 10
secondes avec toutes les cellules remplies et à 1 seconde ( !!! ) avec
beaucoup de cellules vides

Sub Minuscule(Plage As Range)
Dim Cell As Range
For Each Cell In Plage
If Cell.Value <> "" Then _
Cell.Value = UCase(Cell)
Next
End Sub


--
Cela convient-il?
----
Pierre Fauconnier
"N'insulte pas le crocodile avant d'avoir traversé la rivière" (Julos
Beaucarne)

Jean wrote:
"Jean" a
écrit dans le message de news:


Bon merci à tous pour vos réponses.....
mais gros souci quand même... le fichier excel est énorme (3800 lignes
environ)
du coup les méthodes 1 et 2 marchent pas.

J'ai testé la macro : le pc pourtant récent (athlon xp2600+ 512 mos)
pédale, utilisation de l'UC bloquée à 100% ... j'ai interrompu au
bout d'une quinzaine de minutes, de peur qu'il chauffe...

jean


Avatar
Pierre Fauconnier
Hum...

Coquille restée après mes tests, car après avois passé le tout en
minuscules, j'ai voulu retester...

J'ose imaginer que "le monsieur" aura corrigé...

;-)))

Cordialement,

Pierre

michdenis wrote:
Bonjour Pierre,

Le Monsieur, il veut son texte en minuscule ....

;-))


Salutations!


"Pierre Fauconnier" a écrit dans le
message de news: Bonsoir

Avec un PIII 500, pour 5000 lignes sur 4 colonnes, l'ordi met
8 secondes lorsque toutes les cellules sont remplies
31 secondes lorsque la plupart des cellules de la sélection sont vides

Par contre, on ajoutant un test pour voir si cellule est vide, on
passe à 10 secondes avec toutes les cellules remplies et à 1 seconde
( !!! ) avec beaucoup de cellules vides

Sub Minuscule(Plage As Range)
Dim Cell As Range
For Each Cell In Plage
If Cell.Value <> "" Then _
Cell.Value = UCase(Cell)
Next
End Sub



Jean wrote:
"Jean" a
écrit dans le message de news:


Bon merci à tous pour vos réponses.....
mais gros souci quand même... le fichier excel est énorme (3800
lignes environ)
du coup les méthodes 1 et 2 marchent pas.

J'ai testé la macro : le pc pourtant récent (athlon xp2600+ 512 mos)
pédale, utilisation de l'UC bloquée à 100% ... j'ai interrompu au
bout d'une quinzaine de minutes, de peur qu'il chauffe...

jean




Avatar
AV
En simplifiant les données de base :
* plage connue : A1:Z5000
* cellules toutes renseignées

Sub zz_Min()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
[AB1:BA5000] = "=lower(A1)"
Application.Calculation = xlCalculationAutomatic
[A1:Z5000] = [AB1:BA5000].Value: [AB1:BA5000].Clear
End Sub

Comparatif avec Athlon 1,2 (Temps approximatifs manuels) :
Méthode Boucle : 1'34"
Méthode Tableau : 26"
Méthode Fonction feuille : 6"

AV

"Jean" a écrit dans
le message news: #

"Jean" a écrit
dans le message de news:

Bon merci à tous pour vos réponses.....
mais gros souci quand même... le fichier excel est énorme (3800 lignes
environ)
du coup les méthodes 1 et 2 marchent pas.

J'ai testé la macro : le pc pourtant récent (athlon xp2600+ 512 mos)
pédale, utilisation de l'UC bloquée à 100% ... j'ai interrompu au bout d'une
quinzaine de minutes, de peur qu'il chauffe...

jean





1 2