Majuscule tout simplement

quelqu'un peut me dire comment on traduit "majuscule" en visaul basic et pour ne plus vous embeter, y a t'il dans excel un fichier qui traduit les formule en langage VBA

Sub DATA()

lettre = InputBox(" lettre")

If lettre = "" Then Range("E21") = "T" Else majuscule(Range("e21")) = lettre

Merci

BONSOIR où BONJOUR,

Cela ne fait du tort.

Code a coller dans VBA

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then 'Si la modification de la cellule est dans la colonne 2 (B)
    Target = UCase(Target) 'la cellule modifiée passe en majuscule

End If
End Sub

A +

Bonsoir,

Essaie avec UPPER a lieu de "majuscules".

Cordialement,

Salut le forum

vbUpperCase - Convertit la chaîne en majuscules.

vbLowerCase - Convertit la chaîne en minuscules.

vbProperCase - Convertit la première lettre de chaque mot de la chaîne en majuscule.

A utiliser avec StrConv

Exemple : StrConv(Target, vbProperCase)

Pour Novivevba45, tu peux simplifier avec ceci

Sub DATA()
Dim Lettre As String
Lettre = InputBox(" lettre")
With Range("E21")
If Lettre = "" Then .Value = "T" Else .Value = UCase(Lettre)
End With
End Sub

Mytå