Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Majuscule-minuscule

Majuscule-minuscule

8 réponses
Avatar
Jean-Paul Brine
Bonjour,

Dans une feuille, j'ai des cellules contenant des majuscules. Est-il
possible de les transformer en minuscules en une seule fois?
Merci.
JP
Signaler un problème avec ce contenu

8 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
Avatar
isabelle
bonjour JP,

Sub Macro1()
For Each c In Range("A1:D10") 'plage à adapter
Range(c.Address) = LCase(c)
Next
End Sub

isabelle

Bonjour,

Dans une feuille, j'ai des cellules contenant des majuscules. Est-il
possible de les transformer en minuscules en une seule fois?
Merci.
JP




Avatar
Jacky
Bonsoir,

Sélection des cellules ou d'une zone de cellules à modifier et lancer cette
macro
'----------
Sub jj()
For Each C In Selection
C.Value = LCase(C)
Next
End Sub
'------------

--
Salutations
JJ


"Jean-Paul Brine" a écrit dans le message de
news:
Bonjour,

Dans une feuille, j'ai des cellules contenant des majuscules. Est-il
possible de les transformer en minuscules en une seule fois?
Merci.
JP




Avatar
JB
Bonjour,


Sub minuscules()
For Each c In Selection
If Not c.HasFormula Then c.Value = LCase(c.Value)
Next c
End Sub

http://cjoint.com/?bFqxGDYed0

JB

On 31 jan, 15:51, "Jean-Paul Brine" wrote:
Bonjour,

Dans une feuille, j'ai des cellules contenant des majuscules. Est-il
possible de les transformer en minuscules en une seule fois?
Merci.
JP


Avatar
francois.forcet
On 31 jan, 15:51, "Jean-Paul Brine" wrote:
Bonjour,

Dans une feuille, j'ai des cellules contenant des majuscules. Est-il
possible de les transformer en minuscules en une seule fois?
Merci.
JP


Salut à toi
Feuil1 colonne A à traiter
Solution macro :

For Each c In Worksheets("Feuil1").Range("A1", "A" &
Sheets("Feuil1").Range("A65535").End(xlUp).Row)
c.Value = LCase(c)
Next

Celà devrait convenir

Dis moi !!!

Avatar
Laurent
Je suis ok juste une petite varient pour atteindre la dernière cellule
ecrite :

For Each c In Worksheets("Feuil1").Range("A1",
cells(rows.count,1).end(xlup))
c.Value = LCase(c)
Next c
ca allège un tantinet l'ecriture ;)
a écrit dans le message de
news:
On 31 jan, 15:51, "Jean-Paul Brine" wrote:
Bonjour,

Dans une feuille, j'ai des cellules contenant des majuscules. Est-il
possible de les transformer en minuscules en une seule fois?
Merci.
JP


Salut à toi
Feuil1 colonne A à traiter
Solution macro :

For Each c In Worksheets("Feuil1").Range("A1", "A" &
Sheets("Feuil1").Range("A65535").End(xlUp).Row)
c.Value = LCase(c)
Next

Celà devrait convenir

Dis moi !!!

Avatar
francois.forcet
On 1 fév, 00:36, "Laurent " wrote:
    Je suis ok juste une  petite varient pour atteindre la dernièr e cellule
ecrite :

    For Each c In Worksheets("Feuil1").Range("A1",
cells(rows.count,1).end(xlup))
c.Value = LCase(c)
Next c
         ca allège un tantinet l'ecriture ;)
a écrit dans le message denews:d54337cd-022
On 31 jan, 15:51, "Jean-Paul Brine" wrote:

Bonjour,

Dans une feuille, j'ai des cellules contenant des majuscules. Est-il
possible de les transformer en minuscules en une seule fois?
Merci.
JP


Salut à toi
Feuil1 colonne A à traiter
Solution macro :

For Each c In Worksheets("Feuil1").Range("A1", "A" &
Sheets("Feuil1").Range("A65535").End(xlUp).Row)
c.Value = LCase(c)
Next

Celà devrait convenir

Dis moi !!!


Salut Laurent
Ta variante allège effectivement l'écriture du code mais présente
l'inconvénient d'un Bug si la Feuil1 à traiter n'est pas active ce que
ma solution évite
Elle fonctionne quelque soit la feuille active

Merci malgré tout de ta suggestion


Avatar
Jean-Paul Brine
Merci à tous.
Je vais expérimenter tout cela et faire mon choix.

JP


"Jean-Paul Brine" a écrit dans le message de
news:
Bonjour,

Dans une feuille, j'ai des cellules contenant des majuscules. Est-il
possible de les transformer en minuscules en une seule fois?
Merci.
JP




Avatar
Laurent
Salut Daniel ,

Il ets vrai mais il suffit de rajouter l'adresse :) For Each c In
Worksheets("Feuil1").Range("A1",
worksheets(1).cells(rows.count,1).end(xlup))

Enfin voila quoi...
Mais effectivement j'avais oublié ce leger détail... Heureusement tu es la
:)

a écrit dans le message de
news:
On 1 fév, 00:36, "Laurent " wrote:
Je suis ok juste une petite varient pour atteindre la dernière cellule
ecrite :

For Each c In Worksheets("Feuil1").Range("A1",
cells(rows.count,1).end(xlup))
c.Value = LCase(c)
Next c
ca allège un tantinet l'ecriture ;)
a écrit dans le message
denews:
On 31 jan, 15:51, "Jean-Paul Brine" wrote:

Bonjour,

Dans une feuille, j'ai des cellules contenant des majuscules. Est-il
possible de les transformer en minuscules en une seule fois?
Merci.
JP


Salut à toi
Feuil1 colonne A à traiter
Solution macro :

For Each c In Worksheets("Feuil1").Range("A1", "A" &
Sheets("Feuil1").Range("A65535").End(xlUp).Row)
c.Value = LCase(c)
Next

Celà devrait convenir

Dis moi !!!


Salut Laurent
Ta variante allège effectivement l'écriture du code mais présente
l'inconvénient d'un Bug si la Feuil1 à traiter n'est pas active ce que
ma solution évite
Elle fonctionne quelque soit la feuille active

Merci malgré tout de ta suggestion