Forcer l'écriture cellule en majuscule

[framan]

Bonjour à tous,

grand débutant en vba, j'aimerais savoir quelles sont les étapes pour appliquer une routine dans une feuille excel.


J'aimerais en effet forcer l'écriture en majuscule pour un ensemble de cellules (par ex A1:A10), je suis allé voir certaines réponses :

PrivateSub Worksheet_Change(ByVal Target As Range)
* * IfNot Intersect(Target, Range('A1')) IsNothingThen Target = UCase(Target)
EndSub

mais je ne comprends pas où je dois insérer ces lignes et comment je dois les utiliser par la suite.

Je vous remercie

Framan

 

[noviceAG]

Re : Forcer l'écriture cellule en majuscule

Bonjour framan, le Forum,
en utilisant une police uniquement en majuscule par exemple
Voir fichier joint
Bonne journée

 

[framan]

Re : Forcer l'écriture cellule en majuscule

Merci pour cette police, je pense que je vais me servir de ça.

Par contre, pour progresser un peu, saurais-tu répondre à ma première question, liée à la routine en vba ?

Merci

 

[Pierrot93]

Re : Forcer l'écriture cellule en majuscule

Bonjour Framan, Noviceag

en vba, par macro événementielle, click droit sur le nom de l'onglet, visualiser le code, et tu colles la macro ci dessous pour controle des cellules A1 à A10 :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:A10")) Is Nothing Then Target = UCase(Target)
End Sub

Bon après midi
@=

 

[framan]

Re : Forcer l'écriture cellule en majuscule

Parfait, je te remercie beaucoup

a+

 

[tsgri]

Re : Forcer l'écriture cellule en majuscule

Bonjour framan, le Forum,
en utilisant une police uniquement en majuscule par exemple
Voir fichier joint
Bonne journée

Bonjour,
J'ai essayé de mettre dans ma base de contacts les polices "majuscules" du type Engravers MT ou Castellar, sur ma colonne "nom" pour forcer la saisie du texte en majuscule, cependant dès qu'il y a une nouvelle entrée cela ne marche pas ?
Quelqu'un peut il soit me donner plus d'info sur cette solution, soit me donner un autre moyen soit par la valdiation de données ou formule ou autre...mais sans macro. merci.
p.s : la fonction MAJUSCULE ne répond pas à mon besoin puisque qu'elle sert à convertir.
Merci

 

[nicxls]

Re : Forcer l'écriture cellule en majuscule

Bonjour à tous,

Egalement débutant en macro excel, j'ai le même besoin que "framan" : lorsque je saisi une lettre ou un mot dans une plage de cellule. je voudrais que le contenu se mettre en majuscule quand je quitte ou valide la cellule.
J'ai donc entré le code donnée par "pierrot93" appliqué à ma plage. ça marche à moitié, càd que je suis obligé de repasser sur la cellule pour que le contenu se mettre en majuscule.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("I31:R50")) Is Nothing Then Target = UCase(Target)
End Sub

Merci de votre aide en retour.
Nicxls

 

[nicxls]

Re : Forcer l'écriture cellule en majuscule

bonjour à tous,

J'ai donc entré le code donnée par "pierrot93" appliqué à ma plage. ça marche à moitié, càd que je suis obligé de repasser sur la cellule pour que le contenu se mettre en majuscule.

J'ai encore parlé trop vite. finalement le code de pierrot 93 fonctionne chez moi ! il aurait fallu d'un enregistrement !!

merci
@+