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
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
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" <jeanpaulbrine@hotmail.com> a écrit dans le message de
news: eblPCjBZIHA.5896@TK2MSFTNGP02.phx.gbl...
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
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
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
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" <jeanpaulbr...@hotmail.com> 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
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 !!!
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 !!!
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 ;)
<francois.forcet@wanadoo.fr> a écrit dans le message de
news:d54337cd-0224-4ada-8ac7-c21f3a959849@q21g2000hsa.googlegroups.com...
On 31 jan, 15:51, "Jean-Paul Brine" <jeanpaulbr...@hotmail.com> 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
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 !!!
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
On 1 fév, 00:36, "Laurent " <lschaef...@toxnbio.com> 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 ;)
<francois.for...@wanadoo.fr> a écrit dans le message denews:d54337cd-022 4-4ada-8ac7-c21f3a959849@q21g2000hsa.googlegroups.com...
On 31 jan, 15:51, "Jean-Paul Brine" <jeanpaulbr...@hotmail.com> 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
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
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
Merci à tous.
Je vais expérimenter tout cela et faire mon choix.
JP
"Jean-Paul Brine" <jeanpaulbrine@hotmail.com> a écrit dans le message de
news: eblPCjBZIHA.5896@TK2MSFTNGP02.phx.gbl...
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
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
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
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
:)
<francois.forcet@wanadoo.fr> a écrit dans le message de
news:c338c8ad-0130-46d3-a35f-ad0dfc41886a@q77g2000hsh.googlegroups.com...
On 1 fév, 00:36, "Laurent " <lschaef...@toxnbio.com> 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 ;)
<francois.for...@wanadoo.fr> a écrit dans le message
denews:d54337cd-0224-4ada-8ac7-c21f3a959849@q21g2000hsa.googlegroups.com...
On 31 jan, 15:51, "Jean-Paul Brine" <jeanpaulbr...@hotmail.com> 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
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