Forcer la Majuscule

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

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

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

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)