Majuscule dans cellule

Bonjour,

Je souhaite écrir en majuscule dans une cellule, en cherchant, j'obtiens le code suivant. Mais il ne fonctionne pas...

Si vous savez ou est l'erreur, merci de m'expliquer!

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C9")) Is Nothing Then

        Application.EnableEvents = False
            Target = UCase(Target)
        Application.EnableEvents = True

End Sub

vinny

Salut le forum

Et si tu rajoutais un End IF

Private Sub Worksheet_Change(ByVal Target As Range)

 If Not Application.Intersect(Target, Range("C9")) Is Nothing Then
    Application.EnableEvents = False
        Target = UCase(Target)
    Application.EnableEvents = True
 End If

End Sub

Mytå

Bonjour

Bonjour Mytå

A première vue il manque un End If

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("C9")) Is Nothing Then

            Application.EnableEvents = False
                Target = UCase(Target)
            Application.EnableEvents = True
End If
    End Sub