Bonsoir tout le monde
je n'arrive pas à trouver comment faire pour
passer du texte saisi (n'importe comment, il faut
le dire) dans un tableau en format : Majuscules,
minuscules ou de type nom-propre avec ma macro
vba qui selectionne et traite la colonne ad hoc.
(plusieurs utilisateurs qui écrivent soit tout en
majus, tout en minus ou en partie...l'un ou
l'autre)
ex : colonne J débute par:
saisie : TOTO ou toto ou Toto ou encore ToTo, je
voudrais obtenir TOTO est c'est tout.
et ainsi de suite (là j'arrive à 600 lignes pour
aujourd'hui)
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
ChrisV
Bonjour Michel,
Sur la plage sélectionnée...
Sub maJ() Dim c As Range Application.ScreenUpdating = False Selection.SpecialCells(xlCellTypeConstants, 23).Select For Each c In Selection c.Value = UCase(c) Next c End Sub
ChrisV
"Michel" a écrit dans le message de news:
Bonsoir tout le monde je n'arrive pas à trouver comment faire pour passer du texte saisi (n'importe comment, il faut le dire) dans un tableau en format : Majuscules, minuscules ou de type nom-propre avec ma macro vba qui selectionne et traite la colonne ad hoc. (plusieurs utilisateurs qui écrivent soit tout en majus, tout en minus ou en partie...l'un ou l'autre)
ex : colonne J débute par: saisie : TOTO ou toto ou Toto ou encore ToTo, je voudrais obtenir TOTO est c'est tout. et ainsi de suite (là j'arrive à 600 lignes pour aujourd'hui)
merci du coup de pousse..
-- Amicalement Michel . P
Bonjour Michel,
Sur la plage sélectionnée...
Sub maJ()
Dim c As Range
Application.ScreenUpdating = False
Selection.SpecialCells(xlCellTypeConstants, 23).Select
For Each c In Selection
c.Value = UCase(c)
Next c
End Sub
ChrisV
"Michel" <prive.ma-boite_sans_spam@laposte.net> a écrit dans le message de
news:mn.555d7d4697f6444c.11921@laposte.net...
Bonsoir tout le monde
je n'arrive pas à trouver comment faire pour
passer du texte saisi (n'importe comment, il faut
le dire) dans un tableau en format : Majuscules,
minuscules ou de type nom-propre avec ma macro
vba qui selectionne et traite la colonne ad hoc.
(plusieurs utilisateurs qui écrivent soit tout en
majus, tout en minus ou en partie...l'un ou
l'autre)
ex : colonne J débute par:
saisie : TOTO ou toto ou Toto ou encore ToTo, je
voudrais obtenir TOTO est c'est tout.
et ainsi de suite (là j'arrive à 600 lignes pour
aujourd'hui)
Sub maJ() Dim c As Range Application.ScreenUpdating = False Selection.SpecialCells(xlCellTypeConstants, 23).Select For Each c In Selection c.Value = UCase(c) Next c End Sub
ChrisV
"Michel" a écrit dans le message de news:
Bonsoir tout le monde je n'arrive pas à trouver comment faire pour passer du texte saisi (n'importe comment, il faut le dire) dans un tableau en format : Majuscules, minuscules ou de type nom-propre avec ma macro vba qui selectionne et traite la colonne ad hoc. (plusieurs utilisateurs qui écrivent soit tout en majus, tout en minus ou en partie...l'un ou l'autre)
ex : colonne J débute par: saisie : TOTO ou toto ou Toto ou encore ToTo, je voudrais obtenir TOTO est c'est tout. et ainsi de suite (là j'arrive à 600 lignes pour aujourd'hui)
merci du coup de pousse..
-- Amicalement Michel . P
Michel
ChrisV avait soumis l'idée :
Bonjour Michel,
Sur la plage sélectionnée...
Sub maJ() Dim c As Range Application.ScreenUpdating = False Selection.SpecialCells(xlCellTypeConstants, 23).Select For Each c In Selection c.Value = UCase(c) Next c End Sub
ChrisV
"Michel" a écrit dans le message de news:
Bonsoir tout le monde je n'arrive pas à trouver comment faire pour passer du texte saisi (n'importe comment, il faut le dire) dans un tableau en format : Majuscules, minuscules ou de type nom-propre avec ma macro vba qui selectionne et traite la colonne ad hoc. (plusieurs utilisateurs qui écrivent soit tout en majus, tout en minus ou en partie...l'un ou l'autre)
ex : colonne J débute par: saisie : TOTO ou toto ou Toto ou encore ToTo, je voudrais obtenir TOTO est c'est tout. et ainsi de suite (là j'arrive à 600 lignes pour aujourd'hui)
merci du coup de pousse..
-- Amicalement Michel . P
merci Chris, cela tourne super
-- Amicalement Michel . P
ChrisV avait soumis l'idée :
Bonjour Michel,
Sur la plage sélectionnée...
Sub maJ()
Dim c As Range
Application.ScreenUpdating = False
Selection.SpecialCells(xlCellTypeConstants, 23).Select
For Each c In Selection
c.Value = UCase(c)
Next c
End Sub
ChrisV
"Michel" <prive.ma-boite_sans_spam@laposte.net> a écrit
dans le message de
news:mn.555d7d4697f6444c.11921@laposte.net...
Bonsoir tout le monde
je n'arrive pas à trouver comment faire pour
passer du texte saisi (n'importe comment, il faut
le dire) dans un tableau en format : Majuscules,
minuscules ou de type nom-propre avec ma macro
vba qui selectionne et traite la colonne ad hoc.
(plusieurs utilisateurs qui écrivent soit tout en
majus, tout en minus ou en partie...l'un ou
l'autre)
ex : colonne J débute par:
saisie : TOTO ou toto ou Toto ou encore ToTo, je
voudrais obtenir TOTO est c'est tout.
et ainsi de suite (là j'arrive à 600 lignes pour
aujourd'hui)
Sub maJ() Dim c As Range Application.ScreenUpdating = False Selection.SpecialCells(xlCellTypeConstants, 23).Select For Each c In Selection c.Value = UCase(c) Next c End Sub
ChrisV
"Michel" a écrit dans le message de news:
Bonsoir tout le monde je n'arrive pas à trouver comment faire pour passer du texte saisi (n'importe comment, il faut le dire) dans un tableau en format : Majuscules, minuscules ou de type nom-propre avec ma macro vba qui selectionne et traite la colonne ad hoc. (plusieurs utilisateurs qui écrivent soit tout en majus, tout en minus ou en partie...l'un ou l'autre)
ex : colonne J débute par: saisie : TOTO ou toto ou Toto ou encore ToTo, je voudrais obtenir TOTO est c'est tout. et ainsi de suite (là j'arrive à 600 lignes pour aujourd'hui)
