XL 2010 Majuscule

[captainejack]

Bonsoir à tous

Dans la colonne A, je souhaiterai que la saisi texte soit toujours en majuscule.
J'ai essayé plusieurs solutions du net, dont la fonction =MAJUSCULE(A1; A4), mais rien y fait
Pouvez vous m'aider?
En vous remerciant

 

[chris]

Bonjour

Soit appliquer une validation, soit VBA.

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

=EXACT(MAJUSCULE(A1);A1)

 

[ericcool]

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

 

[job75]

Bonjour captainejack, chris, ericcool,

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

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+

 

[Yurperqod]

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.