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 Majuscule au début de chaque cellule

Majuscule au début de chaque cellule

11 réponses
Avatar
Fredo \(67\)
Bonjour,
Je connais les différentes macros sur majuscule/minuscules,
mais je voudrais faire la chose suivante
sur les cellules A1:A200
la première lettre de la cellule est en majuscule,
toutes les autres sont en minucules

J'avais trouvé un moyen, mais celui ci est très lourd, et depuis peu ne
marche plus du tout.
(pour mémoire :
colonne D
Je faisait une extraction de la première lettre de chaque cellule
"gauche(a1,1)" je met en majuscule
colonne E
je faisait une extraction de toutes les autres lettres de chaque cellule
"stxt(a1,2,500)" je met en minuscule
Colonne F
je concaténer les colonnes D et E
je fais un copier coller de F sur A avec les valeurs uniquement...

Pfiuuuu fini.)

Mais je suis sur qu'il y a un moyen d'intervenir directement sur la colonne
a..

--
**********************
Fredo
Strasbourg
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
papou
Bonjour
Dim f
For Each f In Range("A1:A200").Cells
f.Value = Application.WorksheetFunction.Proper(f)
Next f

Cordialement
Pascal

"Fredo (67)" a écrit dans le message de
news:
Bonjour,
Je connais les différentes macros sur majuscule/minuscules,
mais je voudrais faire la chose suivante
sur les cellules A1:A200
la première lettre de la cellule est en majuscule,
toutes les autres sont en minucules

J'avais trouvé un moyen, mais celui ci est très lourd, et depuis peu ne
marche plus du tout.
(pour mémoire :
colonne D
Je faisait une extraction de la première lettre de chaque cellule
"gauche(a1,1)" je met en majuscule
colonne E
je faisait une extraction de toutes les autres lettres de chaque cellule
"stxt(a1,2,500)" je met en minuscule
Colonne F
je concaténer les colonnes D et E
je fais un copier coller de F sur A avec les valeurs uniquement...

Pfiuuuu fini.)

Mais je suis sur qu'il y a un moyen d'intervenir directement sur la
colonne

a..

--
**********************
Fredo
Strasbourg




Avatar
Modeste
Heu.... Pascal !!!
le môsieur il a dit le début de la cellule !!!
pas chaque mot de la cellule....
;o)))

Sub Pascal2()
Dim cell As Range
For Each cell In Selection.Cells
cell.Value=UCase(Left(cell,1)) & LCase(Mid(cell,2, 9^9))
NextNext

End Sub
@+

-----Message d'origine-----
Bonjour
Dim f
For Each f In Range("A1:A200").Cells
f.Value = Application.WorksheetFunction.Proper(f)
Next f

Cordialement
Pascal

"Fredo (67)" a écrit dans le message de
news:
Bonjour,
Je connais les différentes macros sur
majuscule/minuscules,


mais je voudrais faire la chose suivante
sur les cellules A1:A200
la première lettre de la cellule est en majuscule,
toutes les autres sont en minucules

J'avais trouvé un moyen, mais celui ci est très lourd,
et depuis peu ne


marche plus du tout.
(pour mémoire :
colonne D
Je faisait une extraction de la première lettre de
chaque cellule


"gauche(a1,1)" je met en majuscule
colonne E
je faisait une extraction de toutes les autres lettres
de chaque cellule


"stxt(a1,2,500)" je met en minuscule
Colonne F
je concaténer les colonnes D et E
je fais un copier coller de F sur A avec les valeurs
uniquement...



Pfiuuuu fini.)

Mais je suis sur qu'il y a un moyen d'intervenir
directement sur la


colonne
a..

--
**********************
Fredo
Strasbourg





.




Avatar
papou
heu Modeste !!
Ben je ne sais pas si moi y en a bien compris, mais normalement moi y en bon
aussi !!
la première lettre de la cellule est en majuscule,
toutes les autres sont en minucules
Ce qui revient à utiliser la fonction NOMPROPRE, non ?


Cordialement
Pascal

"Modeste" a écrit dans le message de
news:084001c4a08c$6b879610$
Heu.... Pascal !!!
le môsieur il a dit le début de la cellule !!!
pas chaque mot de la cellule....
;o)))

Sub Pascal2()
Dim cell As Range
For Each cell In Selection.Cells
cell.Value=UCase(Left(cell,1)) & LCase(Mid(cell,2, 9^9))
NextNext

End Sub
@+

-----Message d'origine-----
Bonjour
Dim f
For Each f In Range("A1:A200").Cells
f.Value = Application.WorksheetFunction.Proper(f)
Next f

Cordialement
Pascal

"Fredo (67)" a écrit dans le message de
news:
Bonjour,
Je connais les différentes macros sur
majuscule/minuscules,


mais je voudrais faire la chose suivante
sur les cellules A1:A200
la première lettre de la cellule est en majuscule,
toutes les autres sont en minucules

J'avais trouvé un moyen, mais celui ci est très lourd,
et depuis peu ne


marche plus du tout.
(pour mémoire :
colonne D
Je faisait une extraction de la première lettre de
chaque cellule


"gauche(a1,1)" je met en majuscule
colonne E
je faisait une extraction de toutes les autres lettres
de chaque cellule


"stxt(a1,2,500)" je met en minuscule
Colonne F
je concaténer les colonnes D et E
je fais un copier coller de F sur A avec les valeurs
uniquement...



Pfiuuuu fini.)

Mais je suis sur qu'il y a un moyen d'intervenir
directement sur la


colonne
a..

--
**********************
Fredo
Strasbourg





.




Avatar
Modeste
Heu!!!!....
A1="la première leTTre de la cellUle est en majuscule,
tOUtes les autres sont en MINUSCULES"
A2=NOMPROPRE(A1)
A3=MAJUSCULE(GAUCHE(A1;1))&MINUSCULE(STXT(A1;2;9^9))
A4=(A2£)
A4 égale Vrai
ceci n'est pas EXACT !!!
;o)))

A2=NOMPROPRE(A1)
"La Première Lettre De La Cellule Est En Majuscule,
Toutes Les Autres Sont En Minuscules"

A3=MAJUSCULE(GAUCHE(A1;1))&MINUSCULE(STXT(A1;2;9^9))
"La première lettre de la cellule est en majuscule,
toutes les autres sont en minuscules"

A4=EXACT(A2;A3)
FAUX

;o)))

-----Message d'origine-----
heu Modeste !!
Ben je ne sais pas si moi y en a bien compris, mais
normalement moi y en bon

aussi !!
la première lettre de la cellule est en majuscule,
toutes les autres sont en minucules
Ce qui revient à utiliser la fonction NOMPROPRE, non ?


Cordialement
Pascal

"Modeste" a écrit
dans le message de

news:084001c4a08c$6b879610$
Heu.... Pascal !!!
le môsieur il a dit le début de la cellule !!!
pas chaque mot de la cellule....
;o)))

Sub Pascal2()
Dim cell As Range
For Each cell In Selection.Cells
cell.Value=UCase(Left(cell,1)) & LCase(Mid(cell,2, 9^9))
NextNext

End Sub
@+

-----Message d'origine-----
Bonjour
Dim f
For Each f In Range("A1:A200").Cells
f.Value = Application.WorksheetFunction.Proper(f)
Next f

Cordialement
Pascal

"Fredo (67)" a écrit dans le message de
news:
Bonjour,
Je connais les différentes macros sur
majuscule/minuscules,


mais je voudrais faire la chose suivante
sur les cellules A1:A200
la première lettre de la cellule est en majuscule,
toutes les autres sont en minucules

J'avais trouvé un moyen, mais celui ci est très lourd,
et depuis peu ne


marche plus du tout.
(pour mémoire :
colonne D
Je faisait une extraction de la première lettre de
chaque cellule


"gauche(a1,1)" je met en majuscule
colonne E
je faisait une extraction de toutes les autres lettres
de chaque cellule


"stxt(a1,2,500)" je met en minuscule
Colonne F
je concaténer les colonnes D et E
je fais un copier coller de F sur A avec les valeurs
uniquement...



Pfiuuuu fini.)

Mais je suis sur qu'il y a un moyen d'intervenir
directement sur la


colonne
a..

--
**********************
Fredo
Strasbourg





.




.





Avatar
papou
Re
:-))) et gnarf !
Il faut peut être attendre de savoir si notre ami parle de plusieurs mots ou
d'un seul dans une cellule.
Cordialement
Pascal

"Modeste" a écrit dans le message de
news:482a01c4a09c$2b86e6a0$
Heu!!!!....
A1="la première leTTre de la cellUle est en majuscule,
tOUtes les autres sont en MINUSCULES"
A2=NOMPROPRE(A1)
A3=MAJUSCULE(GAUCHE(A1;1))&MINUSCULE(STXT(A1;2;9^9))
A4=(A2£)
A4 égale Vrai
ceci n'est pas EXACT !!!
;o)))

A2=NOMPROPRE(A1)
"La Première Lettre De La Cellule Est En Majuscule,
Toutes Les Autres Sont En Minuscules"

A3=MAJUSCULE(GAUCHE(A1;1))&MINUSCULE(STXT(A1;2;9^9))
"La première lettre de la cellule est en majuscule,
toutes les autres sont en minuscules"

A4=EXACT(A2;A3)
FAUX

;o)))

-----Message d'origine-----
heu Modeste !!
Ben je ne sais pas si moi y en a bien compris, mais
normalement moi y en bon

aussi !!
la première lettre de la cellule est en majuscule,
toutes les autres sont en minucules
Ce qui revient à utiliser la fonction NOMPROPRE, non ?


Cordialement
Pascal

"Modeste" a écrit
dans le message de

news:084001c4a08c$6b879610$
Heu.... Pascal !!!
le môsieur il a dit le début de la cellule !!!
pas chaque mot de la cellule....
;o)))

Sub Pascal2()
Dim cell As Range
For Each cell In Selection.Cells
cell.Value=UCase(Left(cell,1)) & LCase(Mid(cell,2, 9^9))
NextNext

End Sub
@+

-----Message d'origine-----
Bonjour
Dim f
For Each f In Range("A1:A200").Cells
f.Value = Application.WorksheetFunction.Proper(f)
Next f

Cordialement
Pascal

"Fredo (67)" a écrit dans le message de
news:
Bonjour,
Je connais les différentes macros sur
majuscule/minuscules,


mais je voudrais faire la chose suivante
sur les cellules A1:A200
la première lettre de la cellule est en majuscule,
toutes les autres sont en minucules

J'avais trouvé un moyen, mais celui ci est très lourd,
et depuis peu ne


marche plus du tout.
(pour mémoire :
colonne D
Je faisait une extraction de la première lettre de
chaque cellule


"gauche(a1,1)" je met en majuscule
colonne E
je faisait une extraction de toutes les autres lettres
de chaque cellule


"stxt(a1,2,500)" je met en minuscule
Colonne F
je concaténer les colonnes D et E
je fais un copier coller de F sur A avec les valeurs
uniquement...



Pfiuuuu fini.)

Mais je suis sur qu'il y a un moyen d'intervenir
directement sur la


colonne
a..

--
**********************
Fredo
Strasbourg





.




.





Avatar
Fredo \(67\)
En fait Modeste a cerné l'étendue de mon prob
en fait seul le premier mot de chaque cellule doit se voir attribué d'une
majuscule

==> fouilles en trous isolés ==> doit devenir ==> Fouilles en trous isolés
et non pas Fouilles En Trous Isolés.


"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de
news:%230t5$
Re
:-))) et gnarf !
Il faut peut être attendre de savoir si notre ami parle de plusieurs mots
ou

d'un seul dans une cellule.
Cordialement
Pascal

"Modeste" a écrit dans le message de
news:482a01c4a09c$2b86e6a0$
Heu!!!!....
A1="la première leTTre de la cellUle est en majuscule,
tOUtes les autres sont en MINUSCULES"
A2=NOMPROPRE(A1)
A3=MAJUSCULE(GAUCHE(A1;1))&MINUSCULE(STXT(A1;2;9^9))
A4=(A2£)
A4 égale Vrai
ceci n'est pas EXACT !!!
;o)))

A2=NOMPROPRE(A1)
"La Première Lettre De La Cellule Est En Majuscule,
Toutes Les Autres Sont En Minuscules"

A3=MAJUSCULE(GAUCHE(A1;1))&MINUSCULE(STXT(A1;2;9^9))
"La première lettre de la cellule est en majuscule,
toutes les autres sont en minuscules"

A4=EXACT(A2;A3)
FAUX

;o)))

-----Message d'origine-----
heu Modeste !!
Ben je ne sais pas si moi y en a bien compris, mais
normalement moi y en bon

aussi !!
la première lettre de la cellule est en majuscule,
toutes les autres sont en minucules
Ce qui revient à utiliser la fonction NOMPROPRE, non ?


Cordialement
Pascal

"Modeste" a écrit
dans le message de

news:084001c4a08c$6b879610$
Heu.... Pascal !!!
le môsieur il a dit le début de la cellule !!!
pas chaque mot de la cellule....
;o)))

Sub Pascal2()
Dim cell As Range
For Each cell In Selection.Cells
cell.Value=UCase(Left(cell,1)) & LCase(Mid(cell,2, 9^9))
NextNext

End Sub
@+

-----Message d'origine-----
Bonjour
Dim f
For Each f In Range("A1:A200").Cells
f.Value = Application.WorksheetFunction.Proper(f)
Next f

Cordialement
Pascal

"Fredo (67)" a écrit dans le message de
news:
Bonjour,
Je connais les différentes macros sur
majuscule/minuscules,


mais je voudrais faire la chose suivante
sur les cellules A1:A200
la première lettre de la cellule est en majuscule,
toutes les autres sont en minucules

J'avais trouvé un moyen, mais celui ci est très lourd,
et depuis peu ne


marche plus du tout.
(pour mémoire :
colonne D
Je faisait une extraction de la première lettre de
chaque cellule


"gauche(a1,1)" je met en majuscule
colonne E
je faisait une extraction de toutes les autres lettres
de chaque cellule


"stxt(a1,2,500)" je met en minuscule
Colonne F
je concaténer les colonnes D et E
je fais un copier coller de F sur A avec les valeurs
uniquement...



Pfiuuuu fini.)

Mais je suis sur qu'il y a un moyen d'intervenir
directement sur la


colonne
a..

--
**********************
Fredo
Strasbourg





.




.









Avatar
AV
[A1:A200] = [upper(left(A1))&lower(mid(A1,2,9^9))]

AV
Avatar
GD
heu!!!! AV....
sauf à utiliser une matricielle ;-)))
la plage A1:A200 recoit le contenu de A1
sous le bon format certe !!!
;-)))
modeste chirogourdiste
@+
dans news:,
AV typed:
[A1:A200] = [upper(left(A1))&lower(mid(A1,2,9^9))]

AV


Avatar
AV
Achhhhh... évidemment !

Avec insertion/suppression colonne....
[B1:B200] = "=upper(left(A1))&lower(mid(A1,2,9^9))"

AV
Avatar
Fredo \(67\)
Merci Modeste, c'est exactement ce que je cherchais..

"Modeste" a écrit dans le message de
news:084001c4a08c$6b879610$
Heu.... Pascal !!!
le môsieur il a dit le début de la cellule !!!
pas chaque mot de la cellule....
;o)))

Sub Pascal2()
Dim cell As Range
For Each cell In Selection.Cells
cell.Value=UCase(Left(cell,1)) & LCase(Mid(cell,2, 9^9))
NextNext

End Sub
@+

-----Message d'origine-----
Bonjour
Dim f
For Each f In Range("A1:A200").Cells
f.Value = Application.WorksheetFunction.Proper(f)
Next f

Cordialement
Pascal

"Fredo (67)" a écrit dans le message de
news:
Bonjour,
Je connais les différentes macros sur
majuscule/minuscules,


mais je voudrais faire la chose suivante
sur les cellules A1:A200
la première lettre de la cellule est en majuscule,
toutes les autres sont en minucules

J'avais trouvé un moyen, mais celui ci est très lourd,
et depuis peu ne


marche plus du tout.
(pour mémoire :
colonne D
Je faisait une extraction de la première lettre de
chaque cellule


"gauche(a1,1)" je met en majuscule
colonne E
je faisait une extraction de toutes les autres lettres
de chaque cellule


"stxt(a1,2,500)" je met en minuscule
Colonne F
je concaténer les colonnes D et E
je fais un copier coller de F sur A avec les valeurs
uniquement...



Pfiuuuu fini.)

Mais je suis sur qu'il y a un moyen d'intervenir
directement sur la


colonne
a..

--
**********************
Fredo
Strasbourg





.




1 2