forcer des majuscules Résolu

Question

Comment forcer des majuscules dans une colonne excel

Chris 94 · Answer

Bonsoir,

En leur demandant poliment ?

Les réponses sont données par des personnes, pas par des robots. Merci d'user des formules de politesse courante (bonjour, merci, s'il vous plait...).

colibrii95 · Answer

Bonjour,
Mille excuses je pensais m'adresser à une base de données.
Par avance merci.

Raymond PENTIER · Answer

Plusieurs solutions, cependant !

La plus simple, mettre la colonne avec une police comme COPPERPLATE GOTHIC, ou ALGERIAN, ou CASTELLAR, ou encore GOUDY STOUT ...

ccm81 · Answer

Bonjour à tous

ou bien une petite macro
https://www.cjoint.com/?3ErkKMCKDnx 

Bonne suite

colibrii95 · Answer

Bonjour à tous et merci de vos réponses.

J'ai essayé les polices mais cela ne me convient pas, par contre j'opterais bien pour une macro mais étant débutant je ne sais pas comment l'insérer dans la colonne.
Si quelqu'un pouvais le donner un exemple que je puisse copier je suis preneur.

Par avance merci

ccm81 · Answer

Clic-droit sur l'onglet de la feuille à traiter-Visualiser le code
Copier/coller le code ci-dessous
Modifier éventuellement la colonne à traiter (co = "A:A")
Revenir dans la feuille
RQ1. Toute écriture dans cette colonne sera transformée en majuscule après validation par entrée dans la feuille
RQ2. Vérifier que la config d'excel accepte l'exécution des macros (Outils/macro/sécutité.niveau moyen et relancer excel)

Option Explicit

Const co = "A:A"

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range(co)) Is Nothing Then
  Target.Value = UCase(Target.Value)
End If
End Sub

bonne journée

colibrii95 · Answer

Re bonjour ccm81 et merci de m'aider,

Je suis vraiment novice mais à quel endroit doit-je copier le code que vous m'avez donné et est-ce que je dois mettre tout le code.
-------------------------------------------------------

Option Explicit

Const co = "A:A"

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range(co)) Is Nothing Then
  Target.Value = UCase(Target.Value)
End If
End Sub

-------------------------------------------------------

Je n'ai pas trouvé les Cdes (Outils/macro/sécurité.niveau moyen), j'utilise Excel 97

Par avance merci.

ccm81 · Answer

Quelques explications
https://www.cjoint.com/?3EsuH0RSaLz 

Bon courage

colibrii95 · Answer

Bonjour CCm81,

De retour d'un déplacement en province me voila revenu sur mon problème.

J'ai bien fait la manip que tu m'as donnée mais ça ne fonctionne toujours pas,
je n'ai aucun message d'erreur ou alors ça viendrai peut être de l'installation d'excel.
Te serait-il possible de créer une feuille excel avec la macro dans la colonne 1 et me l'envoyer pour voir.

Merci de t'on aide.

colibrii95 · Answer

Re bonjour ccm81,

Excuse moi mais je viens de réessayer avec la dernière feuille que tu m'as envoyé et ça fonctionne.

Un grand merci de ton aide.

colibrii95

Forcer des majuscules

10 réponses

Votre réponse

Discussions similaires

Newsletters