Forcer les majuscules

Bonjour,

la fonction =EXACT(A1,MAJUSCULE(A1))

Signale l'erreur mais ne force pas les majuscules

Merci de bien vouloir me renseigner

Bonjour,

si tu veux modifier à la saisie sans utiliser de formule dans une colonne adjacente, ça ne peut être fait que par macro.
Exemple sur colonne A, à mettre dans le module de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim pl As Range, c As Range
    Set pl = Intersect(Target, Columns(1))
    If Not pl Is Nothing Then
        For Each c In pl
            If Not c.HasFormula Then c.Value = UCase(c)
        Next c
    End If
End Sub

eric

Merci pour la réponse

La macro devrait s'appliquer sur une cellule seulement

Il existe une fonction pour "nom propre"

Merci de bien vouloir me renseigner

remplace Columns(1) par la référence à surveiller.

Nom propre : c.value = Application.Proper(c)