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
electron
Est il possible, sous excel 2002, de changer la casse d'une cellule ou d'une sélection de cellules comme sous Word ???.
1) Dans une macro :
choisi une variable dans laquelle tu vas stocker la chaîne de caractères à convertir, puis utilise la fonction UCase(chaîne) pour les majuscules ou LCase(chaîne) pour les minuscules
exemples : Chaîne_de_caractères_à_convertir = "Bonjour à tous 1234"
Mise_en_majuscules = UCase(Chaîne_de_caractères_à_convertir) ceci te renvoie : " BONJOUR À TOUS 1234 " dans la variable Mise_en_majuscules
Mise_en_minuscules = LCase(Chaîne_de_caractères_à_convertir) ceci te renvoie : " bonjour à tous 1234 " dans la variable Mise_en_minuscules
2) Dans une cellule :
utilise la fonction =MAJUSCULE(A1) où "A1" est la cellule contenant la chaîne à convertir ou alors =MINUSCULE(A1)
Bonne conversion
Est il possible, sous excel 2002, de changer la casse d'une cellule ou d'une
sélection de cellules comme sous Word ???.
1) Dans une macro :
choisi une variable dans laquelle tu vas stocker la chaîne de caractères à
convertir, puis utilise la fonction UCase(chaîne) pour les majuscules ou
LCase(chaîne) pour les minuscules
exemples :
Chaîne_de_caractères_à_convertir = "Bonjour à tous 1234"
Mise_en_majuscules = UCase(Chaîne_de_caractères_à_convertir)
ceci te renvoie : " BONJOUR À TOUS 1234 " dans la variable
Mise_en_majuscules
Mise_en_minuscules = LCase(Chaîne_de_caractères_à_convertir)
ceci te renvoie : " bonjour à tous 1234 " dans la variable
Mise_en_minuscules
2) Dans une cellule :
utilise la fonction =MAJUSCULE(A1) où "A1" est la cellule contenant la
chaîne à convertir
ou alors =MINUSCULE(A1)
Est il possible, sous excel 2002, de changer la casse d'une cellule ou d'une sélection de cellules comme sous Word ???.
1) Dans une macro :
choisi une variable dans laquelle tu vas stocker la chaîne de caractères à convertir, puis utilise la fonction UCase(chaîne) pour les majuscules ou LCase(chaîne) pour les minuscules
exemples : Chaîne_de_caractères_à_convertir = "Bonjour à tous 1234"
Mise_en_majuscules = UCase(Chaîne_de_caractères_à_convertir) ceci te renvoie : " BONJOUR À TOUS 1234 " dans la variable Mise_en_majuscules
Mise_en_minuscules = LCase(Chaîne_de_caractères_à_convertir) ceci te renvoie : " bonjour à tous 1234 " dans la variable Mise_en_minuscules
2) Dans une cellule :
utilise la fonction =MAJUSCULE(A1) où "A1" est la cellule contenant la chaîne à convertir ou alors =MINUSCULE(A1)
Bonne conversion
JB
Bonjour,
-A placer dans un module Alt+F11 puis Insertion/Module -Créer une commande dans le menu (ou une BO perso) avec Affichage/Barre outils/Personnaliser -Onglet commandes -Macros -Faire Glisser Elément personnalisé dans un menu (ou une BO) -Clic droit/Affecter une macro
L'opérateur sélectionne le champ à convertir puis macro:
Sub Majuscule() For Each c In Selection If Left(c.Formula, 1) <> "=" Then c.Value = UCase(c.Value) End If Next c End Sub
Sub Minuscule() For Each c In Selection If Left(c.Formula, 1) <> "=" Then c.Value = LCase(c.Value) End If Next c End Sub
Sub nompropre() For Each c In Selection If Left(c.Formula, 1) <> "=" Then c.Value = Application.Proper(c.Value) End If Next c End Sub
-A placer dans un module Alt+F11 puis Insertion/Module
-Créer une commande dans le menu (ou une BO perso) avec
Affichage/Barre outils/Personnaliser
-Onglet commandes
-Macros
-Faire Glisser Elément personnalisé dans un menu (ou une BO)
-Clic droit/Affecter une macro
L'opérateur sélectionne le champ à convertir puis macro:
Sub Majuscule()
For Each c In Selection
If Left(c.Formula, 1) <> "=" Then
c.Value = UCase(c.Value)
End If
Next c
End Sub
Sub Minuscule()
For Each c In Selection
If Left(c.Formula, 1) <> "=" Then
c.Value = LCase(c.Value)
End If
Next c
End Sub
Sub nompropre()
For Each c In Selection
If Left(c.Formula, 1) <> "=" Then
c.Value = Application.Proper(c.Value)
End If
Next c
End Sub
-A placer dans un module Alt+F11 puis Insertion/Module -Créer une commande dans le menu (ou une BO perso) avec Affichage/Barre outils/Personnaliser -Onglet commandes -Macros -Faire Glisser Elément personnalisé dans un menu (ou une BO) -Clic droit/Affecter une macro
L'opérateur sélectionne le champ à convertir puis macro:
Sub Majuscule() For Each c In Selection If Left(c.Formula, 1) <> "=" Then c.Value = UCase(c.Value) End If Next c End Sub
Sub Minuscule() For Each c In Selection If Left(c.Formula, 1) <> "=" Then c.Value = LCase(c.Value) End If Next c End Sub
Sub nompropre() For Each c In Selection If Left(c.Formula, 1) <> "=" Then c.Value = Application.Proper(c.Value) End If Next c End Sub
-A placer dans un module Alt+F11 puis Insertion/Module -Créer une commande dans le menu (ou une BO perso) avec Affichage/Barre outils/Personnaliser -Onglet commandes -Macros -Faire Glisser Elément personnalisé dans un menu (ou une BO) -Clic droit/Affecter une macro
L'opérateur sélectionne le champ à convertir puis macro:
Sub Majuscule() For Each c In Selection If Left(c.Formula, 1) <> "=" Then c.Value = UCase(c.Value) End If Next c End Sub
Sub Minuscule() For Each c In Selection If Left(c.Formula, 1) <> "=" Then c.Value = LCase(c.Value) End If Next c End Sub
Sub nompropre() For Each c In Selection If Left(c.Formula, 1) <> "=" Then c.Value = Application.Proper(c.Value) End If Next c End Sub
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1139715433.587296.250470@g43g2000cwa.googlegroups.com...
Bonjour,
-A placer dans un module Alt+F11 puis Insertion/Module
-Créer une commande dans le menu (ou une BO perso) avec
Affichage/Barre outils/Personnaliser
-Onglet commandes
-Macros
-Faire Glisser Elément personnalisé dans un menu (ou une BO)
-Clic droit/Affecter une macro
L'opérateur sélectionne le champ à convertir puis macro:
Sub Majuscule()
For Each c In Selection
If Left(c.Formula, 1) <> "=" Then
c.Value = UCase(c.Value)
End If
Next c
End Sub
Sub Minuscule()
For Each c In Selection
If Left(c.Formula, 1) <> "=" Then
c.Value = LCase(c.Value)
End If
Next c
End Sub
Sub nompropre()
For Each c In Selection
If Left(c.Formula, 1) <> "=" Then
c.Value = Application.Proper(c.Value)
End If
Next c
End Sub
-A placer dans un module Alt+F11 puis Insertion/Module -Créer une commande dans le menu (ou une BO perso) avec Affichage/Barre outils/Personnaliser -Onglet commandes -Macros -Faire Glisser Elément personnalisé dans un menu (ou une BO) -Clic droit/Affecter une macro
L'opérateur sélectionne le champ à convertir puis macro:
Sub Majuscule() For Each c In Selection If Left(c.Formula, 1) <> "=" Then c.Value = UCase(c.Value) End If Next c End Sub
Sub Minuscule() For Each c In Selection If Left(c.Formula, 1) <> "=" Then c.Value = LCase(c.Value) End If Next c End Sub
Sub nompropre() For Each c In Selection If Left(c.Formula, 1) <> "=" Then c.Value = Application.Proper(c.Value) End If Next c End Sub
