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
Re,
Merci pour le compliment. J'en rougis ;-)
Hélas, je n'ai pas trop de temps. Je fais du télétravail et j'ai
2 micros en fonctionnement ( boulot et perso ). Et quand celui
du boulot rame pour me ramener les données au travers du réseau
téléphonique, j'en profites pour mettre mon grain de sel dans ce forum.
Mon "imel" grumlardchezoneadoupointfr
remplacer chez par @
oneadou par wanadoo
et point par le .

Pourquoi ne pas exposer succinctement le problème ici ?
Je suis persuadé que quelques contributeurs pourront proposer
diverses idées voire leur service pour résoudre le problème.
De plus, une telle appli existe déjà ? Alors, pas la peine de
réinventer la roue.

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

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 !


























Avatar
Cath
Ce Thu, 18 Nov 2004 11:08:19 +0100, Pounet95 nous dit :

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


Bonjour,

Désolée de m'imiscer dans votre conversation, mais est-il possible de
faire la même chose pour une seule cellule ? (je ne parle pas le VB dans
le texte :-) ).

Merci beaucoup.

--
Cath :-)
/____/ L'Australie dans tous ses états :
/ / http://perso.wanadoo.fr/cathozie/
- > O O < - Aide internet : CuteFTP, Forté Agent, ClipMate,
- o - créer votre répertoire chez Wanadoo !
v < http://perso.wanadoo.fr/cathozie/aideinternet/


Avatar
Pounet95
Bonsoir Cath,
Bien sûr, c'est possible.
Remplacer Columns("C") par Range("A1") par exemple
Bonne soirée
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"Cath" a écrit dans le message de news:

Ce Thu, 18 Nov 2004 11:08:19 +0100, Pounet95 nous dit :

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


Bonjour,

Désolée de m'imiscer dans votre conversation, mais est-il possible de
faire la même chose pour une seule cellule ? (je ne parle pas le VB dans
le texte :-) ).

Merci beaucoup.

--
Cath :-)
/____/ L'Australie dans tous ses états :
/ / http://perso.wanadoo.fr/cathozie/
- > O O < - Aide internet : CuteFTP, Forté Agent, ClipMate,
- o - créer votre répertoire chez Wanadoo !
v < http://perso.wanadoo.fr/cathozie/aideinternet/




Avatar
Cath
Ce Thu, 18 Nov 2004 20:46:14 +0100, Pounet95 nous dit :

Bonsoir Cath,
Bien sûr, c'est possible.
Remplacer Columns("C") par Range("A1") par exemple
Bonne soirée


Extra ! Merci beaucoup ! C'est exactement ce qui me manquait.
J'avais essayé de modifier en inscrivant Cell pour cellule, mais ça ne
fonctionnait pas.

Si je veux appliquer ces majuscules aux cellules B2 et E2 d'une même
feuille faut-il mettre :

Ranges ("B2";"E2")) ?

Merci encore et bonne soirée à toi aussi :-).

--
Cath :-)
/____/ L'Australie dans tous ses états :
/ / http://perso.wanadoo.fr/cathozie/
- > O O < - Aide internet : CuteFTP, Forté Agent, ClipMate,
- o - créer votre répertoire chez Wanadoo !
v < http://perso.wanadoo.fr/cathozie/aideinternet/


Avatar
jps
bonjour cath
Pounet est allé rejoindre michedenis au beaujolais et j'assure aussi son
intérim....
en premier lieu, peux-tu prendre l'habitude de répondre AU DESSUS de la
question (ou d'une réponse)...merci
ensuite, il te faut écrire ainsi :

Range("B2;E2")

un point virgule pour des cellules discontinues alors que deux points crée
une plage ; de B2 à E2, dans l'exemple s'écrira donc :

Range("B2:E2")

pour l'anecdote, je viens de me pourrir la vie à chercher un temps fou un
chibrelot dans des formules, tout ça parce que j'avais deux points au lieu
de point virgule et quand tu es à 500 m de l'écran, la différence est
infime...

voili voilou
jps

"Cath" a écrit dans le message de
news:
Ce Thu, 18 Nov 2004 20:46:14 +0100, Pounet95 nous dit :

Bonsoir Cath,
Bien sûr, c'est possible.
Remplacer Columns("C") par Range("A1") par exemple
Bonne soirée


Extra ! Merci beaucoup ! C'est exactement ce qui me manquait.
J'avais essayé de modifier en inscrivant Cell pour cellule, mais ça ne
fonctionnait pas.

Si je veux appliquer ces majuscules aux cellules B2 et E2 d'une même
feuille faut-il mettre :

Ranges ("B2";"E2")) ?

Merci encore et bonne soirée à toi aussi :-).

--
Cath :-)
/____/ L'Australie dans tous ses états :
/ / http://perso.wanadoo.fr/cathozie/
- > O O < - Aide internet : CuteFTP, Forté Agent, ClipMate,
- o - créer votre répertoire chez Wanadoo !
v < http://perso.wanadoo.fr/cathozie/aideinternet/




Avatar
Pounet95
Bonsoir JPS,
Merci pour l'intérim, et sans vouloir abuser, si tu peux continuer pour ce
soir.
Ayant eu quelques difficultés à définir les arômes cassis, banane, framboise
et autres
de la cuvée de cette année, j'ai été obligé de recommencer les tests
plusieurs fois et donc
je ne peux plus assurer pour ce soir ;o))))
Bonne nuit à toutes et tous.

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"jps" a écrit dans le message de
news:
bonjour cath
Pounet est allé rejoindre michedenis au beaujolais et j'assure aussi son
intérim....
en premier lieu, peux-tu prendre l'habitude de répondre AU DESSUS de la
question (ou d'une réponse)...merci
ensuite, il te faut écrire ainsi :

Range("B2;E2")

un point virgule pour des cellules discontinues alors que deux points crée
une plage ; de B2 à E2, dans l'exemple s'écrira donc :

Range("B2:E2")

pour l'anecdote, je viens de me pourrir la vie à chercher un temps fou un
chibrelot dans des formules, tout ça parce que j'avais deux points au lieu
de point virgule et quand tu es à 500 m de l'écran, la différence est
infime...

voili voilou
jps

"Cath" a écrit dans le message de
news:
Ce Thu, 18 Nov 2004 20:46:14 +0100, Pounet95 nous dit :

Bonsoir Cath,
Bien sûr, c'est possible.
Remplacer Columns("C") par Range("A1") par exemple
Bonne soirée


Extra ! Merci beaucoup ! C'est exactement ce qui me manquait.
J'avais essayé de modifier en inscrivant Cell pour cellule, mais ça ne
fonctionnait pas.

Si je veux appliquer ces majuscules aux cellules B2 et E2 d'une même
feuille faut-il mettre :

Ranges ("B2";"E2")) ?

Merci encore et bonne soirée à toi aussi :-).

--
Cath :-)
/____/ L'Australie dans tous ses états :
/ / http://perso.wanadoo.fr/cathozie/
- > O O < - Aide internet : CuteFTP, Forté Agent, ClipMate,
- o - créer votre répertoire chez Wanadoo !
v < http://perso.wanadoo.fr/cathozie/aideinternet/







Avatar
michdenis
Bonjour JPS,

OK pour le beaujolais ! Mais je ne partage pas mon vin avec n'importe qui !!!

Au sujet des ";" dans Range("B2;E2")

Attention de ne pas rencontrer un ordi qui utilise la virgule pour faire ce travail ... c'est défini dans le panneau de
configuration !

;-)

Au sujet d'Élodie, elle n'a eu que des bons mots pour toi ! Je te dis, tu es un crack des macros !

;-))


Salutations!




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

bonjour cath
Pounet est allé rejoindre michedenis au beaujolais et j'assure aussi son
intérim....
en premier lieu, peux-tu prendre l'habitude de répondre AU DESSUS de la
question (ou d'une réponse)...merci
ensuite, il te faut écrire ainsi :

Range("B2;E2")

un point virgule pour des cellules discontinues alors que deux points crée
une plage ; de B2 à E2, dans l'exemple s'écrira donc :

Range("B2:E2")

pour l'anecdote, je viens de me pourrir la vie à chercher un temps fou un
chibrelot dans des formules, tout ça parce que j'avais deux points au lieu
de point virgule et quand tu es à 500 m de l'écran, la différence est
infime...

voili voilou
jps

"Cath" a écrit dans le message de
news:
Ce Thu, 18 Nov 2004 20:46:14 +0100, Pounet95 nous dit :

Bonsoir Cath,
Bien sûr, c'est possible.
Remplacer Columns("C") par Range("A1") par exemple
Bonne soirée


Extra ! Merci beaucoup ! C'est exactement ce qui me manquait.
J'avais essayé de modifier en inscrivant Cell pour cellule, mais ça ne
fonctionnait pas.

Si je veux appliquer ces majuscules aux cellules B2 et E2 d'une même
feuille faut-il mettre :

Ranges ("B2";"E2")) ?

Merci encore et bonne soirée à toi aussi :-).

--
Cath :-)
/____/ L'Australie dans tous ses états :
/ / http://perso.wanadoo.fr/cathozie/
- > O O < - Aide internet : CuteFTP, Forté Agent, ClipMate,
- o - créer votre répertoire chez Wanadoo !
v < http://perso.wanadoo.fr/cathozie/aideinternet/




Avatar
jps
:-)))))))
que bacchus veille sur ta nuit, pounet!
jps

"Pounet95" a écrit dans le message de
news:%
Bonsoir JPS,
Merci pour l'intérim, et sans vouloir abuser, si tu peux continuer pour ce
soir.
Ayant eu quelques difficultés à définir les arômes cassis, banane,
framboise

et autres
de la cuvée de cette année, j'ai été obligé de recommencer les tests
plusieurs fois et donc
je ne peux plus assurer pour ce soir ;o))))
Bonne nuit à toutes et tous.

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"jps" a écrit dans le message de
news:
bonjour cath
Pounet est allé rejoindre michedenis au beaujolais et j'assure aussi son
intérim....
en premier lieu, peux-tu prendre l'habitude de répondre AU DESSUS de la
question (ou d'une réponse)...merci
ensuite, il te faut écrire ainsi :

Range("B2;E2")

un point virgule pour des cellules discontinues alors que deux points
crée


une plage ; de B2 à E2, dans l'exemple s'écrira donc :

Range("B2:E2")

pour l'anecdote, je viens de me pourrir la vie à chercher un temps fou
un


chibrelot dans des formules, tout ça parce que j'avais deux points au
lieu


de point virgule et quand tu es à 500 m de l'écran, la différence est
infime...

voili voilou
jps

"Cath" a écrit dans le message de
news:
Ce Thu, 18 Nov 2004 20:46:14 +0100, Pounet95 nous dit :

Bonsoir Cath,
Bien sûr, c'est possible.
Remplacer Columns("C") par Range("A1") par exemple
Bonne soirée


Extra ! Merci beaucoup ! C'est exactement ce qui me manquait.
J'avais essayé de modifier en inscrivant Cell pour cellule, mais ça ne
fonctionnait pas.

Si je veux appliquer ces majuscules aux cellules B2 et E2 d'une même
feuille faut-il mettre :

Ranges ("B2";"E2")) ?

Merci encore et bonne soirée à toi aussi :-).

--
Cath :-)
/____/ L'Australie dans tous ses états :
/ / http://perso.wanadoo.fr/cathozie/
- > O O < - Aide internet : CuteFTP, Forté Agent, ClipMate,
- o - créer votre répertoire chez Wanadoo !
v < http://perso.wanadoo.fr/cathozie/aideinternet/










Avatar
LE TROLL
Bonsoir,

Oui, mais non, lol, sinon dans ton système il faut sans cesse tirer les
cellules suivant les besoins, avec la macro on ne tire rien :o)
--------------


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

Ce Thu, 18 Nov 2004 11:08:19 +0100, Pounet95 nous dit :

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


Bonjour,

Désolée de m'imiscer dans votre conversation, mais est-il possible de
faire la même chose pour une seule cellule ? (je ne parle pas le VB dans
le texte :-) ).

Merci beaucoup.

--
Cath :-)
/____/ L'Australie dans tous ses états :
/ / http://perso.wanadoo.fr/cathozie/
- > O O < - Aide internet : CuteFTP, Forté Agent, ClipMate,
- o - créer votre répertoire chez Wanadoo !
v < http://perso.wanadoo.fr/cathozie/aideinternet/




Avatar
jps
salut michel!!!
je voulais surtout attirer l'attention de cath sur sa mauvaise façon de
positionner les " " dans sa proc ; on aurait plutôt cru que ce fût elle qui
était allée fêter le beaujolais...
quant à élodie, je te remercie de relever les bons mots qui furent les siens
à mon égard car je ne les avais pas vus et quand bien même, ma timidité
légendaire m'aurait interdit de lui répondre "c'était avec plaisir" (je dis
cela comme j'aurais dit autre chose, bien sûr) ; un adage grec dit "quand je
fais le bien, je le jette à la mer" ; je remarque que toi, par contre, tu
serais plutôt un adepte de la pensée de beaumarchais qui disait "quand un
sot me parle, je lui cède" ; moi, je ne peux pas, c'est plus fort que moi,
j'ai envie de lui rentrer dans le lard car trop, c'est trop, bénévole ou pas
bénévole, con ou pas con, formateur ou pas formateur, O ou pas O, 0 ou pas
0...ou bien, ce truc n'est qu'un canular monté par MS ou quelque
contributeur agitateur car, allons, entre nous, tu arrives à suivre le
cheminement de la pensée de testousazimuts, toi? peux-tu tenter de cerner le
travail de ce monsieur qui écrit le français comme je l'efface, qui n'a
jamais (ou presque) un mot aimable pour ceux (tu en fais partie) qui
l'aident, surtout si ce qu'on lui a soufflé ne fonctionne pas et qui, cerise
sur le gâteau, est parvenu à faire se quereller les braves gens qui
sévissent sur ce forum?
ils sont nombreux ici, je suis sûr, ceux qui pensent comme moi mais ne le
disent pas, soit parce qu'ils sont plus polis que moi, soit parce que leur
silence en dit encore plus long que mes mots mais tous doivent se dire :
Dieu garde de m'adjoindre un tel patron, un tel collaborateur, un tel
collègue, un tel proche, un tel parent, un tel charlot...
jps


"michdenis" a écrit dans le message de
news:%
Bonjour JPS,

OK pour le beaujolais ! Mais je ne partage pas mon vin avec n'importe qui
!!!


Au sujet des ";" dans Range("B2;E2")

Attention de ne pas rencontrer un ordi qui utilise la virgule pour faire
ce travail ... c'est défini dans le panneau de

configuration !

;-)

Au sujet d'Élodie, elle n'a eu que des bons mots pour toi ! Je te dis, tu
es un crack des macros !


;-))


Salutations!




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


bonjour cath
Pounet est allé rejoindre michedenis au beaujolais et j'assure aussi son
intérim....
en premier lieu, peux-tu prendre l'habitude de répondre AU DESSUS de la
question (ou d'une réponse)...merci
ensuite, il te faut écrire ainsi :

Range("B2;E2")

un point virgule pour des cellules discontinues alors que deux points crée
une plage ; de B2 à E2, dans l'exemple s'écrira donc :

Range("B2:E2")

pour l'anecdote, je viens de me pourrir la vie à chercher un temps fou un
chibrelot dans des formules, tout ça parce que j'avais deux points au lieu
de point virgule et quand tu es à 500 m de l'écran, la différence est
infime...

voili voilou
jps

"Cath" a écrit dans le message de
news:
Ce Thu, 18 Nov 2004 20:46:14 +0100, Pounet95 nous dit :

Bonsoir Cath,
Bien sûr, c'est possible.
Remplacer Columns("C") par Range("A1") par exemple
Bonne soirée


Extra ! Merci beaucoup ! C'est exactement ce qui me manquait.
J'avais essayé de modifier en inscrivant Cell pour cellule, mais ça ne
fonctionnait pas.

Si je veux appliquer ces majuscules aux cellules B2 et E2 d'une même
feuille faut-il mettre :

Ranges ("B2";"E2")) ?

Merci encore et bonne soirée à toi aussi :-).

--
Cath :-)
/____/ L'Australie dans tous ses états :
/ / http://perso.wanadoo.fr/cathozie/
- > O O < - Aide internet : CuteFTP, Forté Agent, ClipMate,
- o - créer votre répertoire chez Wanadoo !
v < http://perso.wanadoo.fr/cathozie/aideinternet/








1 2 3