Bloquer cellules en majuscule

[the_wax]

BONJOUR,

J'aimerai savoir comment faire pour sélectionner plusieurs céllules et les bloquer en majuscule quoi que l'on y ecrit.

Il existe surement un macro pour ca mais je n'y connais rien en language macro.

Merci à vous,

ps je vous met le fichier en question

 

[Efgé]

Re : Bloquer cellules en majuscule

Bonjour the_wax,
Une proposition à mettre dans le code la feuille (click droit sur l'onglet / Visualiser le code) et coller ceci:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B12:S12")) Is Nothing Then Exit Sub
Target.Value = UCase(Target.Value)
End Sub

Cordialement

 

[DL_13]

Re : Bloquer cellules en majuscule

Bonjour the_wax et Bienvenue

Peux tu essayer ces lignes de codes dans le Module de la Feuille

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B12:S12]) Is Nothing Then Target = UCase(Target)
End Sub

Bonne Journée

 

[klin89]

Bonjour à tous,

Une petite parenthèse :

Que vient faire le mot "urgent" dans le tag de la discussion 😎
Faut m'expliquer !

Si maintenant on se met à polluer les tags avec ce genre de mention, bonjour les recherches.

Un amateur de recherche sur le forum
Klin89 😛

 

[job75]

Re : Bloquer cellules en majuscule

Bonjour le fil,

(...) les bloquer en majuscule quoi que l'on y ecrit.

Eh bien penser aux valeurs d'erreurs, aux valeurs logiques, aux nombres...

Et puis plusieurs cellules peuvent être modifiées simultanément (Copier/Coller, effacement)...

Alors cette macro dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :

Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target, Range("B12:S12"))
If Target Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each Target In Target
If Application.IsText(Target) Then Target = UCase(Target)
Next
Application.EnableEvents = True
End Sub

A+