Forcer la Majuscule

[Lipadec]

Bonjour le Forum

Après une longue absence, me voici de nouveau parmi vous, vous demandant votre aide.
J'ai un fichier disponible pour plusieurs utilisateurs, dans mon groupe. Je voudrai forcer l'utilisateur à écrire en Majuscule.
Je ne voudrai pas utiliser la macro complémentaire "mDF Police v1.1" car je dois l'installer sur tous les postes, et certains utilisateurs ne sauront pas l'utiliser.
Je vous demande de me trouver une macro ou autre solution, pour qu'au changement de la cellule, le texte devient automatiquement en Majuscule.
Je compte sur votre aide, et je vous remercie beaucoup.

Salutations amicales
Lipadec

 

[Staple1600]

Re : Forcer la Majuscule

Bonjour le forum

Source:https://www.excel-downloads.com/thr...emiere-lettre-en-majuscule-a-la-saisie.76361/
Trouver sur le forum

En fouinant sur internet j'ai trouvé du code pour mettre tout en majuscule, ça ressemble à ceci :

Private Sub Worksheet_Change(ByVal zz As Range)
If Intersect(zz, [E2:E60000]) Is Nothing Then Exit Sub
Application.EnableEvents = False
zz = UCase(zz)
Application.EnableEvents = True
End Sub

 

[Lipadec]

Re : Forcer la Majuscule

Merci beaucoup cher ami Staple1600

Tu peux me dire où dois-je mettre ce code, dans un module, ou dans ThisWorkbook
Merci

Lipadec

 

[Staple1600]

Re : Forcer la Majuscule

Re


Dans le code de la Feuille ou a lieu la saisie
(clic-droit sur l'onglet concerné, [Visualiser le code])

(la macro citée en exemple prend en compte
les cellules E2:E60000, il faut donc adapter à ton cas)

Autre solution avec Données Validation
SOURCE:Ce lien n'existe plus
Forcer la saisie en minuscules ou en majuscules
Comment forcer dans une cellule la saisie en minuscules ?
Première solution, utiliser la validation de données :

Données/validation.../Options/autoriser: Personnalisé
Formule:

=EXACT(A1;MINUSCULE(A1)) (respectivement majuscule ou nompropre pour mettre la première lettre du mot en majuscule et le reste en minuscule)

ou, pour convertir directement les majuscules en minuscules à la sortie de la cellule?


Dans le code événementiel de la feuille en question soit pour la cellule A1 dans
l'exemple (à adapter)

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
[a1] = LCase([a1]) (Ucase pour les majuscules, Proper pour les noms propres)
End Sub

 

[Staple1600]

Re : Forcer la Majuscule

Re

Macro à tester
(théoriquement chaque cellule de la feuille concernée
sera mis en majuscule aprés la saisie)

SOURCE:Excel VBA Examples(5)

 This is a simple sub that changes what you type in a cell to upper case.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.EnableEvents = False
    Target = UCase(Target)
Application.EnableEvents = True
End Sub