OVH Cloud OVH Cloud

Majuscule...

5 réponses
Avatar
bulrog
Bonjour,

Existe-il une macro ou un petit truc simple qui permettrait de mettre tout
le texte d'une ou de
plusieurs cellules en majuscules ?

--
bulrog@teledisnet.be

5 réponses

Avatar
ROCHE Pierre
Bonjour

En B1 : =MAJUSCULE(A1) ou MINUSCULE(A1) si ton texte est en A1
A recopier pour toutes tes cellules

Cordialement


"bulrog" a écrit dans le message de news:
41f3837c$0$17413$
Bonjour,

Existe-il une macro ou un petit truc simple qui permettrait de mettre tout
le texte d'une ou de
plusieurs cellules en majuscules ?

--




Avatar
Rai
Bonjour,

Une solution, parmi d'autres, en programmation.
Pratique si la feuille comporte une multitude de zones à mettre en majuscules ...

Créer un nouveau module et y insérer le code suivant :
Sub majuscules()
For Each c In Selection
Range(c.Address).Formula = UCase(c.Formula)
Next c
End Sub

Sélectionner la (ou les) zone(s) à mettre en majuscules, exécuter la macro.

Cette macro garde intact les formules.

Bon dimanche

Rai

"bulrog" a écrit dans le message de news: 41f3837c$0$17413$
Bonjour,

Existe-il une macro ou un petit truc simple qui permettrait de mettre tout
le texte d'une ou de
plusieurs cellules en majuscules ?

--





Avatar
bulrog
Merci mais ce que je cherche, c'est à mettre le contenu d'une cellule en
majuscule. Pas recopier le contenu d'une cellule dans une autre qui sera en
majuscule... Heu, c'est clair ?

En d'autres termes, si la cellule A1 contient le texte "hello", je voudrais
qu'après la macro, la cellule A1 contienne le texte "HELLO".

"ROCHE Pierre" a écrit dans le message de news:

Bonjour

En B1 : =MAJUSCULE(A1) ou MINUSCULE(A1) si ton texte est en A1
A recopier pour toutes tes cellules

Cordialement


"bulrog" a écrit dans le message de news:
41f3837c$0$17413$
Bonjour,

Existe-il une macro ou un petit truc simple qui permettrait de mettre
tout le texte d'une ou de
plusieurs cellules en majuscules ?

--








Avatar
bulrog
Peux-tu me dire comment je peux faire pour sélectionner automatiquement un
ensemble de cellules qui ne se touchent pas pour les mettre en majuscule ?
J'ai un formulaire dans lequel certains champs doivent être en majuscule
mais pas tous. J'essaye de faire cela avec une macro qui serai activée par
un bouton.

Merci d'avance.


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

Bonjour,

Une solution, parmi d'autres, en programmation.
Pratique si la feuille comporte une multitude de zones à mettre en
majuscules ...

Créer un nouveau module et y insérer le code suivant :
Sub majuscules()
For Each c In Selection
Range(c.Address).Formula = UCase(c.Formula)
Next c
End Sub

Sélectionner la (ou les) zone(s) à mettre en majuscules, exécuter la macro.

Cette macro garde intact les formules.

Bon dimanche

Rai

"bulrog" a écrit dans le message de news:
41f3837c$0$17413$
Bonjour,

Existe-il une macro ou un petit truc simple qui permettrait de mettre tout
le texte d'une ou de
plusieurs cellules en majuscules ?

--





Avatar
Céline Brien
Bonjour,
Sélectionne les cellules à mettre en majuscule en utilisant la touche
Ctrl+glisser.
Donne un nom à ce champ de cellules : Menu Insertion, Nom, Définir.
Modifie la macro proposée par Rai :
For Each c In Selection
devient
For Each c In Range("NomDonnéAuChampDeCellules")
Bonne chance,
Céline

Sub majuscules()
For Each c In Range("NomDonnéAuChampDeCellules")
Range(c.Address).Formula = UCase(c.Formula)
Next c
End Sub

"bulrog" a écrit dans le message de
news:41f39053$0$17407$
Peux-tu me dire comment je peux faire pour sélectionner
automatiquement un

ensemble de cellules qui ne se touchent pas pour les mettre en
majuscule ?

J'ai un formulaire dans lequel certains champs doivent être en
majuscule

mais pas tous. J'essaye de faire cela avec une macro qui serai
activée par

un bouton.

Merci d'avance.


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

Bonjour,

Une solution, parmi d'autres, en programmation.
Pratique si la feuille comporte une multitude de zones à mettre en
majuscules ...

Créer un nouveau module et y insérer le code suivant :
Sub majuscules()
For Each c In Selection
Range(c.Address).Formula = UCase(c.Formula)
Next c
End Sub

Sélectionner la (ou les) zone(s) à mettre en majuscules, exécuter la
macro.


Cette macro garde intact les formules.

Bon dimanche

Rai

"bulrog" a écrit dans le message de news:
41f3837c$0$17413$
Bonjour,

Existe-il une macro ou un petit truc simple qui permettrait de
mettre tout


le texte d'une ou de
plusieurs cellules en majuscules ?

--