Transformer minuscules en majuscule

Bonjour,

Je souhaite transformer la cellule B3 de ma feuille en majuscule lorsque je rentre des minuscules.

Plus exactement je cherche le code VBA qui va me permettre de transformer automatiquement.

Je vous remercie!!

Bonjour,

As-tu regarder ce sujet ?

https://forum.excel-pratique.com/excel/transformer-majuscule-en-minuscule-t16905.html

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
valeur As String, i As Integer
If Target.Address = "$B$3" Then
 For i = 1 To Len(Target)
  If Asc(Mid(Target, i, 1)) >= 65 And Asc(Mid(Target, i, 1)) <= 90 Then
  valeur = valeur & Mid(Target, i, 1)
  Else
  valeur = valeur & Chr(Asc(Mid(Target, i, 1)) - 32)
  End If
 Next
 Application.EnableEvents = False
 Target = valeur
 Application.EnableEvents = True
End If
End Sub

Bonjour,

j'ai trop compliqué la solution,

en voici une beaucoup plus simple

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$3" Then
 Application.EnableEvents = False
 Target = UCase(Target)
 Application.EnableEvents = True
End If
End Sub