XL 2010 Majuscule

chris

XLDnaute Barbatruc

• 24 Août 2017

• #2

Bonjour

Soit appliquer une validation, soit VBA.

Appliquer une validation sur les cellules concernées avec comme formule de validation

Code:

=EXACT(MAJUSCULE(A1);A1)

 

Vote positif 0 Vote négatif

E

ericcool

XLDnaute Nouveau

• 24 Août 2017

• #3

Bonsoir le forum
Bonsoir capitainejack

Essaie ce code :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then Target = UCase(Target)
End Sub
@+ Eric c

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 25 Août 2017

• #4

Bonjour captainejack, chris, ericcool,

@ ericcool : mettez une MsgBox dans votre macro, vous verrez qu'elle boucle...

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
Set r = Intersect(Target, [A:A], UsedRange) 'colonne A
If r Is Nothing Then Exit Sub
Application.EnableEvents = False 'désactive les évènements
For Each r In r 'si entrées/effacements multiples
  r = UCase(r.Formula)
Next
Application.EnableEvents = True 'réactive les évènements
End Sub

A+

 

Vote positif 0 Vote négatif

Yurperqod

XLDnaute Occasionnel

• 25 Août 2017

• #5

Bonjour à tous

On peut aussi mettre la police Stencil par défaut dans Excel
Comme çà, la saisie sera toujours en capital dans tous les documents Excel.

 

Vote positif 0 Vote négatif