Je cherche =E0 avoir une petite macro me permettant de=20
mettre en majuscule les cellules s=E9lectionn=E9es.=20
J'ai enregistr=E9 une macro qui ins=E9re une colonne vierge =E0=20
c=F4te de la s=E9lection puis qui inscrit la fonction mise en=20
majuscule de la cellule de droite (fonction upper) puis=20
j'en r=E9alise un collage sp=E9cial : valeur et enfin je=20
supprime la colonne initialement ins=E9r=E9e (le tout bien s=FBr=20
en r=E9f=E9rence relative)
1. N'existe-t-il pas une proc=E9dure plus simple en VBA
2. Je ne peux appliquer cette macro qu'une cellule par une=20
cellule. J'aimerais l'appliquer =E0 une plage de cellule et=20
l=E0 je ne vois pas comment m'en sortir avec la methode=20
utilis=E9e
Pourriez vous m'aidez (j'ai de vagues notions des boucles=20
mais c'est assez brumeux
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
Emcy
salut
sub main()
dim Cellule as range
for each Cellule in Range("A1:D10")
Cellule.value = application.proper(Cellule.value)
next
end sub
ça devrait marcher ça te va ?
-----Message d'origine----- Je cherche à avoir une petite macro me permettant de mettre en majuscule les cellules sélectionnées. J'ai enregistré une macro qui insére une colonne vierge à
côte de la sélection puis qui inscrit la fonction mise en
majuscule de la cellule de droite (fonction upper) puis j'en réalise un collage spécial : valeur et enfin je supprime la colonne initialement insérée (le tout bien sûr
en référence relative) 1. N'existe-t-il pas une procédure plus simple en VBA 2. Je ne peux appliquer cette macro qu'une cellule par une
cellule. J'aimerais l'appliquer à une plage de cellule et
là je ne vois pas comment m'en sortir avec la methode utilisée Pourriez vous m'aidez (j'ai de vagues notions des boucles
mais c'est assez brumeux .
salut
sub main()
dim Cellule as range
for each Cellule in Range("A1:D10")
Cellule.value = application.proper(Cellule.value)
next
end sub
ça devrait marcher
ça te va ?
-----Message d'origine-----
Je cherche à avoir une petite macro me permettant de
mettre en majuscule les cellules sélectionnées.
J'ai enregistré une macro qui insére une colonne vierge
à
côte de la sélection puis qui inscrit la fonction mise
en
majuscule de la cellule de droite (fonction upper) puis
j'en réalise un collage spécial : valeur et enfin je
supprime la colonne initialement insérée (le tout bien
sûr
en référence relative)
1. N'existe-t-il pas une procédure plus simple en VBA
2. Je ne peux appliquer cette macro qu'une cellule par
une
cellule. J'aimerais l'appliquer à une plage de cellule
et
là je ne vois pas comment m'en sortir avec la methode
utilisée
Pourriez vous m'aidez (j'ai de vagues notions des
boucles
-----Message d'origine----- Je cherche à avoir une petite macro me permettant de mettre en majuscule les cellules sélectionnées. J'ai enregistré une macro qui insére une colonne vierge à
côte de la sélection puis qui inscrit la fonction mise en
majuscule de la cellule de droite (fonction upper) puis j'en réalise un collage spécial : valeur et enfin je supprime la colonne initialement insérée (le tout bien sûr
en référence relative) 1. N'existe-t-il pas une procédure plus simple en VBA 2. Je ne peux appliquer cette macro qu'une cellule par une
cellule. J'aimerais l'appliquer à une plage de cellule et
là je ne vois pas comment m'en sortir avec la methode utilisée Pourriez vous m'aidez (j'ai de vagues notions des boucles
mais c'est assez brumeux .
denis.lair
Bonjour, ceci peut dépanner, il suffit de créer un bouton et de lui affecter cette macro. Mais cela ne fonctionne que pour une seule cellule à la fois (celle sur laquelle ion est au moment où on appuie sur le bouton).
Sub MettreEnMajuscules() With Selection .Value = UCase(.Value) End With End Sub
Amicalement. DL
-----Message d'origine----- Je cherche à avoir une petite macro me permettant de mettre en majuscule les cellules sélectionnées. J'ai enregistré une macro qui insére une colonne vierge à côte de la sélection puis qui inscrit la fonction mise en majuscule de la cellule de droite (fonction upper) puis j'en réalise un collage spécial : valeur et enfin je supprime la colonne initialement insérée (le tout bien sûr
en référence relative) 1. N'existe-t-il pas une procédure plus simple en VBA 2. Je ne peux appliquer cette macro qu'une cellule par une
cellule. J'aimerais l'appliquer à une plage de cellule et là je ne vois pas comment m'en sortir avec la methode utilisée Pourriez vous m'aidez (j'ai de vagues notions des boucles mais c'est assez brumeux .
Bonjour, ceci peut dépanner, il suffit de créer un bouton
et de lui affecter cette macro. Mais cela ne fonctionne
que pour une seule cellule à la fois (celle sur laquelle
ion est au moment où on appuie sur le bouton).
Sub MettreEnMajuscules()
With Selection
.Value = UCase(.Value)
End With
End Sub
Amicalement.
DL
-----Message d'origine-----
Je cherche à avoir une petite macro me permettant de
mettre en majuscule les cellules sélectionnées.
J'ai enregistré une macro qui insére une colonne vierge à
côte de la sélection puis qui inscrit la fonction mise en
majuscule de la cellule de droite (fonction upper) puis
j'en réalise un collage spécial : valeur et enfin je
supprime la colonne initialement insérée (le tout bien
sûr
en référence relative)
1. N'existe-t-il pas une procédure plus simple en VBA
2. Je ne peux appliquer cette macro qu'une cellule par
une
cellule. J'aimerais l'appliquer à une plage de cellule et
là je ne vois pas comment m'en sortir avec la methode
utilisée
Pourriez vous m'aidez (j'ai de vagues notions des boucles
mais c'est assez brumeux
.
Bonjour, ceci peut dépanner, il suffit de créer un bouton et de lui affecter cette macro. Mais cela ne fonctionne que pour une seule cellule à la fois (celle sur laquelle ion est au moment où on appuie sur le bouton).
Sub MettreEnMajuscules() With Selection .Value = UCase(.Value) End With End Sub
Amicalement. DL
-----Message d'origine----- Je cherche à avoir une petite macro me permettant de mettre en majuscule les cellules sélectionnées. J'ai enregistré une macro qui insére une colonne vierge à côte de la sélection puis qui inscrit la fonction mise en majuscule de la cellule de droite (fonction upper) puis j'en réalise un collage spécial : valeur et enfin je supprime la colonne initialement insérée (le tout bien sûr
en référence relative) 1. N'existe-t-il pas une procédure plus simple en VBA 2. Je ne peux appliquer cette macro qu'une cellule par une
cellule. J'aimerais l'appliquer à une plage de cellule et là je ne vois pas comment m'en sortir avec la methode utilisée Pourriez vous m'aidez (j'ai de vagues notions des boucles mais c'est assez brumeux .
ru-th
Complément (si cela n'a pas déjà été dit, comme je ne vois que quelques messages ces temps-ci)
pour éviter quelques désagréments si la selection se fait sur la colonne entière Sub majuscule() On Error Resume Next For Each c In Selection.SpecialCells(xlCellTypeConstants, 23) c.Value = UCase(c.Value) Next For Each c In Selection.SpecialCells(xlCellTypeFormulas, 23) c.Value = UCase(c.Value) Next End Sub
a+ rural thierry
"Emcy" a écrit dans le message de news: 267801c3869a$350fa850$ salut
sub main()
dim Cellule as range
for each Cellule in Range("A1:D10")
Cellule.value = application.proper(Cellule.value)
next
end sub
ça devrait marcher ça te va ?
-----Message d'origine----- Je cherche à avoir une petite macro me permettant de mettre en majuscule les cellules sélectionnées. J'ai enregistré une macro qui insére une colonne vierge à
côte de la sélection puis qui inscrit la fonction mise en
majuscule de la cellule de droite (fonction upper) puis j'en réalise un collage spécial : valeur et enfin je supprime la colonne initialement insérée (le tout bien sûr
en référence relative) 1. N'existe-t-il pas une procédure plus simple en VBA 2. Je ne peux appliquer cette macro qu'une cellule par une
cellule. J'aimerais l'appliquer à une plage de cellule et
là je ne vois pas comment m'en sortir avec la methode utilisée Pourriez vous m'aidez (j'ai de vagues notions des boucles
mais c'est assez brumeux .
Complément (si cela n'a pas déjà été dit, comme je ne vois que quelques
messages ces temps-ci)
pour éviter quelques désagréments si la selection se fait sur la colonne
entière
Sub majuscule()
On Error Resume Next
For Each c In Selection.SpecialCells(xlCellTypeConstants, 23)
c.Value = UCase(c.Value)
Next
For Each c In Selection.SpecialCells(xlCellTypeFormulas, 23)
c.Value = UCase(c.Value)
Next
End Sub
a+
rural thierry
"Emcy" <emcy@voila.com> a écrit dans le message de news:
267801c3869a$350fa850$a301280a@phx.gbl...
salut
sub main()
dim Cellule as range
for each Cellule in Range("A1:D10")
Cellule.value = application.proper(Cellule.value)
next
end sub
ça devrait marcher
ça te va ?
-----Message d'origine-----
Je cherche à avoir une petite macro me permettant de
mettre en majuscule les cellules sélectionnées.
J'ai enregistré une macro qui insére une colonne vierge
à
côte de la sélection puis qui inscrit la fonction mise
en
majuscule de la cellule de droite (fonction upper) puis
j'en réalise un collage spécial : valeur et enfin je
supprime la colonne initialement insérée (le tout bien
sûr
en référence relative)
1. N'existe-t-il pas une procédure plus simple en VBA
2. Je ne peux appliquer cette macro qu'une cellule par
une
cellule. J'aimerais l'appliquer à une plage de cellule
et
là je ne vois pas comment m'en sortir avec la methode
utilisée
Pourriez vous m'aidez (j'ai de vagues notions des
boucles
Complément (si cela n'a pas déjà été dit, comme je ne vois que quelques messages ces temps-ci)
pour éviter quelques désagréments si la selection se fait sur la colonne entière Sub majuscule() On Error Resume Next For Each c In Selection.SpecialCells(xlCellTypeConstants, 23) c.Value = UCase(c.Value) Next For Each c In Selection.SpecialCells(xlCellTypeFormulas, 23) c.Value = UCase(c.Value) Next End Sub
a+ rural thierry
"Emcy" a écrit dans le message de news: 267801c3869a$350fa850$ salut
sub main()
dim Cellule as range
for each Cellule in Range("A1:D10")
Cellule.value = application.proper(Cellule.value)
next
end sub
ça devrait marcher ça te va ?
-----Message d'origine----- Je cherche à avoir une petite macro me permettant de mettre en majuscule les cellules sélectionnées. J'ai enregistré une macro qui insére une colonne vierge à
côte de la sélection puis qui inscrit la fonction mise en
majuscule de la cellule de droite (fonction upper) puis j'en réalise un collage spécial : valeur et enfin je supprime la colonne initialement insérée (le tout bien sûr
en référence relative) 1. N'existe-t-il pas une procédure plus simple en VBA 2. Je ne peux appliquer cette macro qu'une cellule par une
cellule. J'aimerais l'appliquer à une plage de cellule et
là je ne vois pas comment m'en sortir avec la methode utilisée Pourriez vous m'aidez (j'ai de vagues notions des boucles
mais c'est assez brumeux .
Philippe.R
Bonsoir Christelle, (Expression toujours optionnelle, mais néanmoins toujours appréciée ici) Ce code à copier dans un module standard met les cellules sélectionnées en majuscules, que la plage soit constituée de cellules contiguës ou pas.
Sub majtout() For Each c In Selection c.Value = UCase(c.Value) Next c End Sub
-- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"christele" a écrit dans le message de news:258601c38697$ae69aa50$ Je cherche à avoir une petite macro me permettant de mettre en majuscule les cellules sélectionnées. J'ai enregistré une macro qui insére une colonne vierge à côte de la sélection puis qui inscrit la fonction mise en majuscule de la cellule de droite (fonction upper) puis j'en réalise un collage spécial : valeur et enfin je supprime la colonne initialement insérée (le tout bien sûr en référence relative) 1. N'existe-t-il pas une procédure plus simple en VBA 2. Je ne peux appliquer cette macro qu'une cellule par une cellule. J'aimerais l'appliquer à une plage de cellule et là je ne vois pas comment m'en sortir avec la methode utilisée Pourriez vous m'aidez (j'ai de vagues notions des boucles mais c'est assez brumeux
Bonsoir Christelle,
(Expression toujours optionnelle, mais néanmoins toujours appréciée ici)
Ce code à copier dans un module standard met les cellules sélectionnées en majuscules, que la plage soit
constituée de cellules contiguës ou pas.
Sub majtout()
For Each c In Selection
c.Value = UCase(c.Value)
Next c
End Sub
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"christele" <christeleguillouet@hotmail.com> a écrit dans le message de
news:258601c38697$ae69aa50$a301280a@phx.gbl...
Je cherche à avoir une petite macro me permettant de
mettre en majuscule les cellules sélectionnées.
J'ai enregistré une macro qui insére une colonne vierge à
côte de la sélection puis qui inscrit la fonction mise en
majuscule de la cellule de droite (fonction upper) puis
j'en réalise un collage spécial : valeur et enfin je
supprime la colonne initialement insérée (le tout bien sûr
en référence relative)
1. N'existe-t-il pas une procédure plus simple en VBA
2. Je ne peux appliquer cette macro qu'une cellule par une
cellule. J'aimerais l'appliquer à une plage de cellule et
là je ne vois pas comment m'en sortir avec la methode
utilisée
Pourriez vous m'aidez (j'ai de vagues notions des boucles
mais c'est assez brumeux
Bonsoir Christelle, (Expression toujours optionnelle, mais néanmoins toujours appréciée ici) Ce code à copier dans un module standard met les cellules sélectionnées en majuscules, que la plage soit constituée de cellules contiguës ou pas.
Sub majtout() For Each c In Selection c.Value = UCase(c.Value) Next c End Sub
-- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"christele" a écrit dans le message de news:258601c38697$ae69aa50$ Je cherche à avoir une petite macro me permettant de mettre en majuscule les cellules sélectionnées. J'ai enregistré une macro qui insére une colonne vierge à côte de la sélection puis qui inscrit la fonction mise en majuscule de la cellule de droite (fonction upper) puis j'en réalise un collage spécial : valeur et enfin je supprime la colonne initialement insérée (le tout bien sûr en référence relative) 1. N'existe-t-il pas une procédure plus simple en VBA 2. Je ne peux appliquer cette macro qu'une cellule par une cellule. J'aimerais l'appliquer à une plage de cellule et là je ne vois pas comment m'en sortir avec la methode utilisée Pourriez vous m'aidez (j'ai de vagues notions des boucles mais c'est assez brumeux
Philippe.R
Abusé je suis, par le serveur de MS, qui n'affichait aucune réponse !
"Philippe.R" a écrit dans le message de news:%
Bonsoir Christelle, (Expression toujours optionnelle, mais néanmoins toujours appréciée ici) Ce code à copier dans un module standard met les cellules sélectionnées en majuscules, que la plage soit
constituée de cellules contiguës ou pas.
Sub majtout() For Each c In Selection c.Value = UCase(c.Value) Next c End Sub
-- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"christele" a écrit dans le message de news:258601c38697$ae69aa50$ Je cherche à avoir une petite macro me permettant de mettre en majuscule les cellules sélectionnées. J'ai enregistré une macro qui insére une colonne vierge à côte de la sélection puis qui inscrit la fonction mise en majuscule de la cellule de droite (fonction upper) puis j'en réalise un collage spécial : valeur et enfin je supprime la colonne initialement insérée (le tout bien sûr en référence relative) 1. N'existe-t-il pas une procédure plus simple en VBA 2. Je ne peux appliquer cette macro qu'une cellule par une cellule. J'aimerais l'appliquer à une plage de cellule et là je ne vois pas comment m'en sortir avec la methode utilisée Pourriez vous m'aidez (j'ai de vagues notions des boucles mais c'est assez brumeux
Abusé je suis, par le serveur de MS, qui n'affichait aucune réponse !
"Philippe.R" <A_S_rauphil@wanadoo.fr> a écrit dans le message de
news:%23MdujRthDHA.884@TK2MSFTNGP10.phx.gbl...
Bonsoir Christelle,
(Expression toujours optionnelle, mais néanmoins toujours appréciée ici)
Ce code à copier dans un module standard met les cellules sélectionnées en majuscules, que la plage
soit
constituée de cellules contiguës ou pas.
Sub majtout()
For Each c In Selection
c.Value = UCase(c.Value)
Next c
End Sub
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"christele" <christeleguillouet@hotmail.com> a écrit dans le message de
news:258601c38697$ae69aa50$a301280a@phx.gbl...
Je cherche à avoir une petite macro me permettant de
mettre en majuscule les cellules sélectionnées.
J'ai enregistré une macro qui insére une colonne vierge à
côte de la sélection puis qui inscrit la fonction mise en
majuscule de la cellule de droite (fonction upper) puis
j'en réalise un collage spécial : valeur et enfin je
supprime la colonne initialement insérée (le tout bien sûr
en référence relative)
1. N'existe-t-il pas une procédure plus simple en VBA
2. Je ne peux appliquer cette macro qu'une cellule par une
cellule. J'aimerais l'appliquer à une plage de cellule et
là je ne vois pas comment m'en sortir avec la methode
utilisée
Pourriez vous m'aidez (j'ai de vagues notions des boucles
mais c'est assez brumeux
Abusé je suis, par le serveur de MS, qui n'affichait aucune réponse !
"Philippe.R" a écrit dans le message de news:%
Bonsoir Christelle, (Expression toujours optionnelle, mais néanmoins toujours appréciée ici) Ce code à copier dans un module standard met les cellules sélectionnées en majuscules, que la plage soit
constituée de cellules contiguës ou pas.
Sub majtout() For Each c In Selection c.Value = UCase(c.Value) Next c End Sub
-- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"christele" a écrit dans le message de news:258601c38697$ae69aa50$ Je cherche à avoir une petite macro me permettant de mettre en majuscule les cellules sélectionnées. J'ai enregistré une macro qui insére une colonne vierge à côte de la sélection puis qui inscrit la fonction mise en majuscule de la cellule de droite (fonction upper) puis j'en réalise un collage spécial : valeur et enfin je supprime la colonne initialement insérée (le tout bien sûr en référence relative) 1. N'existe-t-il pas une procédure plus simple en VBA 2. Je ne peux appliquer cette macro qu'une cellule par une cellule. J'aimerais l'appliquer à une plage de cellule et là je ne vois pas comment m'en sortir avec la methode utilisée Pourriez vous m'aidez (j'ai de vagues notions des boucles mais c'est assez brumeux
