Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Avoir directement des majuscules lors d'une saisie

Avoir directement des majuscules lors d'une saisie

4 réponses
Avatar
Hervé
Bonjour.
Je ne me rappelle plus comment avoir une plage de cellule
avec directement la police en majuscule.
Merci
Hervé
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
AV
Dans le module de la feuille et pour la plage A1:B10

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

AV
Avatar
Hervé
Merci beaucoup
Hervé

"AV" a écrit dans le message de news:
OQiQVbj$
Dans le module de la feuille et pour la plage A1:B10

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

AV




Avatar
Hervé
Au fait AV pourquoi
Application.EnableEvents = False
Application.EnableEvents = True
Hervé

"AV" a écrit dans le message de news:
OQiQVbj$
Dans le module de la feuille et pour la plage A1:B10

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

AV




Avatar
AV
Au fait AV pourquoi
Application.EnableEvents = False
Application.EnableEvents = True


Parceque l'instruction
zz = UCase(zz)
redéclenche inutilement l'évènement Worksheet_Change
donc -->
"Application.EnableEvents = False" --> désactive les évènements
"zz = UCase(zz)" --> met en majuscule
"Application.EnableEvents = True" --> réactive les évènements

AV