Forcer automatiquement les majuscules, majuscules ou minuscules - Exemples de code VBA

Avez-vous besoin de changer automatiquement le texte d'une cellule en casse correcte, majuscule ou minuscule après que l'utilisateur l'a saisi ? Il existe plusieurs façons d'y parvenir et plusieurs exigences sont possibles. Voici un exemple qui change automatiquement tout après qu'il est entré dans une colonne particulière. J'espère que vous pourrez construire à partir de cet exemple !

1. Appuyez sur ALT et F11 pour ouvrir la fenêtre de code

2. Double-cliquez sur le nom de la feuille que vous souhaitez automatiquement

changer de cas

3. Mettez ce code dans la fenêtre de code :

Changer le texte en casse appropriée

Code pour Cas approprié

Private Sub Worksheet_Change(ByVal Target As Excel.Range) Application.EnableEvents = False If Target.Column = 5 Then Target = StrConv(Target, vbProperCase) End If Application.EnableEvents = True End Sub

Changer le texte en majuscule

Pour Haut de casse vous pouvez changer

StrConv(cible, vbProperCase)

à

Ucase (cible)

Changer le texte en minuscules

Pour Minuscule vous pouvez changer

StrConv(cible, vbProperCase)

à

Lcase(cible)