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 Comment mettre une colonne en majuscule ?

Comment mettre une colonne en majuscule ?

25 réponses
Avatar
LE TROLL
Bonjour,

Comment mettre une "colonne" préalablement en majuscule, de manière à ce
que toute lettre saisie dans cette colonne soit en majuscule ?

J'ai XP(f) + PC + Xcel_2002

Merci, au revoir et à bientôt :o)
--
ng75 arobase noos.fr
------------------------------------------------------------
LE TROLL, éleveur de trolls depuis César, qui disait :
Avec une hache, celui qui tient le manche a toujours raison !
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 3
Avatar
Pounet95
Bonjour,
dans le code de la feuille, mettre :

'adapter, ici c'est pour la colonne C

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("C")) Is Nothing Then
Target = UCase(Target)
End If
End Sub


--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"LE TROLL" <le a écrit dans le message de news:

Bonjour,

Comment mettre une "colonne" préalablement en majuscule, de manière à
ce que toute lettre saisie dans cette colonne soit en majuscule ?

J'ai XP(f) + PC + Xcel_2002

Merci, au revoir et à bientôt :o)
--
ng75 arobase noos.fr
------------------------------------------------------------
LE TROLL, éleveur de trolls depuis César, qui disait :
Avec une hache, celui qui tient le manche a toujours raison !





Avatar
JièL Goubert
Bonjoir(c) LE TROLL

Sans macro et juste pour le fun...
Copie/colle ta colonne dans Word
Sélectionne tout et Maj+F3 (autant de fois que nécessaire)
et tu re copie/colle dans Excel

--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/
***********************************************************************
Enquète sur les communautés techniques en France
http://www.sphinxonline.net/sphinxbrasil/quest-cerag/questionnaire.htm
***********************************************************************

Le 18/11/2004 10:51 vous avez écrit ceci :
Bonjour,

Comment mettre une "colonne" préalablement en majuscule, de manière à ce
que toute lettre saisie dans cette colonne soit en majuscule ?

J'ai XP(f) + PC + Xcel_2002

Merci, au revoir et à bientôt :o)


Avatar
LE TROLL
Salut l'ami, ben non, je veux de l'automatiste, je passe sur l'autre poste
qui m' répondu pour la suite, tu peux suivre si tu veux :o) Bye.
-----------

"JièL Goubert" a écrit dans le
message de news:
Bonjoir(c) LE TROLL

Sans macro et juste pour le fun...
Copie/colle ta colonne dans Word
Sélectionne tout et Maj+F3 (autant de fois que nécessaire)
et tu re copie/colle dans Excel

--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/
***********************************************************************
Enquète sur les communautés techniques en France
http://www.sphinxonline.net/sphinxbrasil/quest-cerag/questionnaire.htm
***********************************************************************

Le 18/11/2004 10:51 vous avez écrit ceci :
Bonjour,

Comment mettre une "colonne" préalablement en majuscule, de manière à
ce que toute lettre saisie dans cette colonne soit en majuscule ?

J'ai XP(f) + PC + Xcel_2002

Merci, au revoir et à bientôt :o)




Avatar
LE TROLL
Salut, merci, mais:

Ah, moi je pensais qu'il y aurait la possibilité en sélectionnant la
colonne, de choisir "majuscule", comme on choisit "gras", mais je n'ai rien
trouvé à "majuscules"...

Je ne sais pas faire de macros, peux-tu me faire une procédure pour que
je mette ton code (heu, précision, c'est un classeur, il y en a plusieurs,
mais un seul est concerné, disons qu'il s'appele "classeur1"), merci :o)
-------------

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

Bonjour,
dans le code de la feuille, mettre :

'adapter, ici c'est pour la colonne C

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("C")) Is Nothing Then
Target = UCase(Target)
End If
End Sub


--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"LE TROLL" <le a écrit dans le message de news:

Bonjour,

Comment mettre une "colonne" préalablement en majuscule, de manière à
ce que toute lettre saisie dans cette colonne soit en majuscule ?

J'ai XP(f) + PC + Xcel_2002

Merci, au revoir et à bientôt :o)
--
ng75 arobase noos.fr
------------------------------------------------------------
LE TROLL, éleveur de trolls depuis César, qui disait :
Avec une hache, celui qui tient le manche a toujours raison !








Avatar
Pounet95
Re,
Pour accéder à ce que l'on appelle le module de la feuille, procéder comme
suit :
- copier le code ci-dessous entre **** ( sans les *** )

'*********
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("C")) Is Nothing Then
Target = UCase(Target)
End If
End Sub
'*********
- sélectionner la feuille Excel,
- cliquer avec le bouton droit de la souris dans l'onglet en bas de la
feuille concernée,
- dans le menu qui s'affiche, sélectionner le menu Visualiser le code
- coller le code ( CTRL V )
- éventuellement changer la colonne "C" par celle voulue "A" par
exemple
- retourner dans la feuille Excel

.......... et c'est tout !

Des problèmes ?

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"LE TROLL" <le a écrit dans le message de news:

Salut, merci, mais:

Ah, moi je pensais qu'il y aurait la possibilité en sélectionnant la
colonne, de choisir "majuscule", comme on choisit "gras", mais je n'ai
rien trouvé à "majuscules"...

Je ne sais pas faire de macros, peux-tu me faire une procédure pour que
je mette ton code (heu, précision, c'est un classeur, il y en a plusieurs,
mais un seul est concerné, disons qu'il s'appele "classeur1"), merci :o)
-------------

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

Bonjour,
dans le code de la feuille, mettre :

'adapter, ici c'est pour la colonne C

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("C")) Is Nothing Then
Target = UCase(Target)
End If
End Sub


--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"LE TROLL" <le a écrit dans le message de news:

Bonjour,

Comment mettre une "colonne" préalablement en majuscule, de manière à
ce que toute lettre saisie dans cette colonne soit en majuscule ?

J'ai XP(f) + PC + Xcel_2002

Merci, au revoir et à bientôt :o)
--
ng75 arobase noos.fr
------------------------------------------------------------
LE TROLL, éleveur de trolls depuis César, qui disait :
Avec une hache, celui qui tient le manche a toujours raison !












Avatar
twinley
Bonjour,

On lit des choses, c'est un vrai régal...Soit c'est le minimum du minimum,
soit c'est l'aisance poussé à l'extrême. Je préfère la deuxième entre les
deux.
JièL, si tu n'arrives pas suivre, n'hésite pas à poser des questions. Si tu
veux.
J'espère que les tapes dans le dos ne t'ont pas fait trop tousser.
Mais c'est parti pour recevoir des tapes sur le ventre.
On vit une époque formidable comme disait Reiser.
--
à+twinley
"JièL Goubert" a écrit dans le
message de news:
Bonjoir(c) LE TROLL

Sans macro et juste pour le fun...
Copie/colle ta colonne dans Word
Sélectionne tout et Maj+F3 (autant de fois que nécessaire)
et tu re copie/colle dans Excel

--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/
***********************************************************************
Enquète sur les communautés techniques en France
http://www.sphinxonline.net/sphinxbrasil/quest-cerag/questionnaire.htm
***********************************************************************

Le 18/11/2004 10:51 vous avez écrit ceci :
Bonjour,

Comment mettre une "colonne" préalablement en majuscule, de manière
à ce


que toute lettre saisie dans cette colonne soit en majuscule ?

J'ai XP(f) + PC + Xcel_2002

Merci, au revoir et à bientôt :o)




Avatar
LE TROLL
Ah l'ami, ça marche presque, enfin, par exemple si je supprime une
ligne je sors avec une erreur 13 "exécution: incompatibilité de type", je
mettrais bien:
On Error Resume Next
Dans le code, d'autant que ça marche (sauf l'erreur), en fait je ne fais que
du VB, je ne connais pas les directives VBA, tu en penses quoi ???
-------------


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

Re,
Pour accéder à ce que l'on appelle le module de la feuille, procéder comme
suit :
- copier le code ci-dessous entre **** ( sans les *** )

'*********
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("C")) Is Nothing Then
Target = UCase(Target)
End If
End Sub
'*********
- sélectionner la feuille Excel,
- cliquer avec le bouton droit de la souris dans l'onglet en bas de la
feuille concernée,
- dans le menu qui s'affiche, sélectionner le menu Visualiser le code
- coller le code ( CTRL V )
- éventuellement changer la colonne "C" par celle voulue "A" par
exemple
- retourner dans la feuille Excel

.......... et c'est tout !

Des problèmes ?

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"LE TROLL" <le a écrit dans le message de news:

Salut, merci, mais:

Ah, moi je pensais qu'il y aurait la possibilité en sélectionnant la
colonne, de choisir "majuscule", comme on choisit "gras", mais je n'ai
rien trouvé à "majuscules"...

Je ne sais pas faire de macros, peux-tu me faire une procédure pour
que je mette ton code (heu, précision, c'est un classeur, il y en a
plusieurs, mais un seul est concerné, disons qu'il s'appele "classeur1"),
merci :o)
-------------

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

Bonjour,
dans le code de la feuille, mettre :

'adapter, ici c'est pour la colonne C

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("C")) Is Nothing Then
Target = UCase(Target)
End If
End Sub


--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"LE TROLL" <le a écrit dans le message de news:

Bonjour,

Comment mettre une "colonne" préalablement en majuscule, de manière
à ce que toute lettre saisie dans cette colonne soit en majuscule ?

J'ai XP(f) + PC + Xcel_2002

Merci, au revoir et à bientôt :o)
--
ng75 arobase noos.fr
------------------------------------------------------------
LE TROLL, éleveur de trolls depuis César, qui disait :
Avec une hache, celui qui tient le manche a toujours raison !















Avatar
LE TROLL
Je viens de mieux étudier ton code, ça marche si je fais "on error resume
next", en fait ça se plante car il doit mettre tout en majuscule, et là,
comme il n'y a rien quand on supprime la ligne, ça le perturbe, c'est là
qu'il plante, ou alors faudrait mettre en majuscule "g" si "g" <> 0 and ""
???

Sinon, y a des truc que je ne comprends pas, ton code, des machins en trop:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Columns("G")) Is Nothing Then
Target = UCase(Target)
End If
End Sub

Moi je mettrais plutôt en VB:

Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Columns("G")) Is Nothing Then: Target =
UCase(Target)
End Sub

2 lignes en moins, quoi que t'en penses ???

In fine, où qu'il est le code si je veux y accéder direct depuis VB ???

A +, dans cette attente, merci :o)
-------------


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

Re,
Pour accéder à ce que l'on appelle le module de la feuille, procéder comme
suit :
- copier le code ci-dessous entre **** ( sans les *** )

'*********
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("C")) Is Nothing Then
Target = UCase(Target)
End If
End Sub
'*********
- sélectionner la feuille Excel,
- cliquer avec le bouton droit de la souris dans l'onglet en bas de la
feuille concernée,
- dans le menu qui s'affiche, sélectionner le menu Visualiser le code
- coller le code ( CTRL V )
- éventuellement changer la colonne "C" par celle voulue "A" par
exemple
- retourner dans la feuille Excel

.......... et c'est tout !

Des problèmes ?

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"LE TROLL" <le a écrit dans le message de news:

Salut, merci, mais:

Ah, moi je pensais qu'il y aurait la possibilité en sélectionnant la
colonne, de choisir "majuscule", comme on choisit "gras", mais je n'ai
rien trouvé à "majuscules"...

Je ne sais pas faire de macros, peux-tu me faire une procédure pour
que je mette ton code (heu, précision, c'est un classeur, il y en a
plusieurs, mais un seul est concerné, disons qu'il s'appele "classeur1"),
merci :o)
-------------

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

Bonjour,
dans le code de la feuille, mettre :

'adapter, ici c'est pour la colonne C

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("C")) Is Nothing Then
Target = UCase(Target)
End If
End Sub


--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"LE TROLL" <le a écrit dans le message de news:

Bonjour,

Comment mettre une "colonne" préalablement en majuscule, de manière
à ce que toute lettre saisie dans cette colonne soit en majuscule ?

J'ai XP(f) + PC + Xcel_2002

Merci, au revoir et à bientôt :o)
--
ng75 arobase noos.fr
------------------------------------------------------------
LE TROLL, éleveur de trolls depuis César, qui disait :
Avec une hache, celui qui tient le manche a toujours raison !















Avatar
Pounet95
Re,

Effectivement le On error ... résoud le problème des cellules vides.
Effectivement, 2 lignes en moins ça marche aussi, mais, les : ne sont pas
nécessaires, je pense.
Je n'ai jamais essayé de supprimer le Private de cette procédure dont le nom
est mis par Excel
quand on sélectionne l'évènement dans la liste des évènements du workbook

Tu parles bien d'accéder au code via VB ? Alors là, je donne ma langue au
chat !
Le VBE ressemble à celui de VB, il est possible de sauvegarder les modules
standard
en .bas, mais c'est tout ce que j'en sais.
Les spécialistes présents sur ce forum vont sûrement réagir à ces lignes et
ne manqueront pas
de te donner des précisions.

A+
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/

"LE TROLL" <le a écrit dans le message de news:
%
Je viens de mieux étudier ton code, ça marche si je fais "on error resume
next", en fait ça se plante car il doit mettre tout en majuscule, et là,
comme il n'y a rien quand on supprime la ligne, ça le perturbe, c'est là
qu'il plante, ou alors faudrait mettre en majuscule "g" si "g" <> 0 and ""
???

Sinon, y a des truc que je ne comprends pas, ton code, des machins en
trop:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Columns("G")) Is Nothing Then
Target = UCase(Target)
End If
End Sub

Moi je mettrais plutôt en VB:

Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Columns("G")) Is Nothing Then: Target =
UCase(Target)
End Sub

2 lignes en moins, quoi que t'en penses ???

In fine, où qu'il est le code si je veux y accéder direct depuis VB ???

A +, dans cette attente, merci :o)
-------------


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

Re,
Pour accéder à ce que l'on appelle le module de la feuille, procéder
comme suit :
- copier le code ci-dessous entre **** ( sans les *** )

'*********
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("C")) Is Nothing Then
Target = UCase(Target)
End If
End Sub
'*********
- sélectionner la feuille Excel,
- cliquer avec le bouton droit de la souris dans l'onglet en bas de la
feuille concernée,
- dans le menu qui s'affiche, sélectionner le menu Visualiser le code
- coller le code ( CTRL V )
- éventuellement changer la colonne "C" par celle voulue "A" par
exemple
- retourner dans la feuille Excel

.......... et c'est tout !

Des problèmes ?

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"LE TROLL" <le a écrit dans le message de news:

Salut, merci, mais:

Ah, moi je pensais qu'il y aurait la possibilité en sélectionnant la
colonne, de choisir "majuscule", comme on choisit "gras", mais je n'ai
rien trouvé à "majuscules"...

Je ne sais pas faire de macros, peux-tu me faire une procédure pour
que je mette ton code (heu, précision, c'est un classeur, il y en a
plusieurs, mais un seul est concerné, disons qu'il s'appele
"classeur1"), merci :o)
-------------

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

Bonjour,
dans le code de la feuille, mettre :

'adapter, ici c'est pour la colonne C

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("C")) Is Nothing Then
Target = UCase(Target)
End If
End Sub


--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"LE TROLL" <le a écrit dans le message de news:

Bonjour,

Comment mettre une "colonne" préalablement en majuscule, de manière
à ce que toute lettre saisie dans cette colonne soit en majuscule ?

J'ai XP(f) + PC + Xcel_2002

Merci, au revoir et à bientôt :o)
--
ng75 arobase noos.fr
------------------------------------------------------------
LE TROLL, éleveur de trolls depuis César, qui disait :
Avec une hache, celui qui tient le manche a toujours raison !



















Avatar
LE TROLL
Merci, oui, en VB le private est implicite, c'est si tu veux autre
chose qu'il faut le mettre, comme "public"...
Dis-moi, tu as l'air bon, peux-tu m'écrire et me donner ton adresse
email, j'ai à te soumettre un problème d'automatisme (de tirage de cellule
par un bouton avec une aide aussi), veux-tu ?
moi:
ng75AROBASEnoos.fr
-----------


"Pounet95" a écrit dans le message de news:
%
Re,

Effectivement le On error ... résoud le problème des cellules vides.
Effectivement, 2 lignes en moins ça marche aussi, mais, les : ne sont pas
nécessaires, je pense.
Je n'ai jamais essayé de supprimer le Private de cette procédure dont le
nom est mis par Excel
quand on sélectionne l'évènement dans la liste des évènements du workbook

Tu parles bien d'accéder au code via VB ? Alors là, je donne ma langue au
chat !
Le VBE ressemble à celui de VB, il est possible de sauvegarder les modules
standard
en .bas, mais c'est tout ce que j'en sais.
Les spécialistes présents sur ce forum vont sûrement réagir à ces lignes
et ne manqueront pas
de te donner des précisions.

A+
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/

"LE TROLL" <le a écrit dans le message de news:
%
Je viens de mieux étudier ton code, ça marche si je fais "on error resume
next", en fait ça se plante car il doit mettre tout en majuscule, et là,
comme il n'y a rien quand on supprime la ligne, ça le perturbe, c'est là
qu'il plante, ou alors faudrait mettre en majuscule "g" si "g" <> 0 and
"" ???

Sinon, y a des truc que je ne comprends pas, ton code, des machins en
trop:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Columns("G")) Is Nothing Then
Target = UCase(Target)
End If
End Sub

Moi je mettrais plutôt en VB:

Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Columns("G")) Is Nothing Then: Target =
UCase(Target)
End Sub

2 lignes en moins, quoi que t'en penses ???

In fine, où qu'il est le code si je veux y accéder direct depuis VB ???

A +, dans cette attente, merci :o)
-------------


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

Re,
Pour accéder à ce que l'on appelle le module de la feuille, procéder
comme suit :
- copier le code ci-dessous entre **** ( sans les *** )

'*********
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("C")) Is Nothing Then
Target = UCase(Target)
End If
End Sub
'*********
- sélectionner la feuille Excel,
- cliquer avec le bouton droit de la souris dans l'onglet en bas de la
feuille concernée,
- dans le menu qui s'affiche, sélectionner le menu Visualiser le code
- coller le code ( CTRL V )
- éventuellement changer la colonne "C" par celle voulue "A" par
exemple
- retourner dans la feuille Excel

.......... et c'est tout !

Des problèmes ?

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"LE TROLL" <le a écrit dans le message de news:

Salut, merci, mais:

Ah, moi je pensais qu'il y aurait la possibilité en sélectionnant la
colonne, de choisir "majuscule", comme on choisit "gras", mais je n'ai
rien trouvé à "majuscules"...

Je ne sais pas faire de macros, peux-tu me faire une procédure pour
que je mette ton code (heu, précision, c'est un classeur, il y en a
plusieurs, mais un seul est concerné, disons qu'il s'appele
"classeur1"), merci :o)
-------------

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

Bonjour,
dans le code de la feuille, mettre :

'adapter, ici c'est pour la colonne C

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("C")) Is Nothing Then
Target = UCase(Target)
End If
End Sub


--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"LE TROLL" <le a écrit dans le message de news:

Bonjour,

Comment mettre une "colonne" préalablement en majuscule, de
manière à ce que toute lettre saisie dans cette colonne soit en
majuscule ?

J'ai XP(f) + PC + Xcel_2002

Merci, au revoir et à bientôt :o)
--
ng75 arobase noos.fr
------------------------------------------------------------
LE TROLL, éleveur de trolls depuis César, qui disait :
Avec une hache, celui qui tient le manche a toujours raison !






















1 2 3