Majuscule en temps réel

[halfer]

Bonjour,

Je souhaiterais savoir comment mettre en majuscule automatiquement une colonne entière par exemple si j'écris "e" j'aurais "E" à la place.

Par avance, Merci

 

[kiki29]

Re : Majuscule en temps réel

Salut,sans doute à adapter

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Inter As Range
    Set Inter = Application.Intersect(Target, Columns(2))
    If Not Inter Is Nothing Then
        Target = UCase$(Target)
    End If
End Sub

ou peut-être

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Inter As Range
Dim LastRow As Long, i As Long
    Set Inter = Application.Intersect(Target, Columns(2))
    If Inter Is Nothing Then Exit Sub
    LastRow = Feuil1.Range("B" & Rows.Count).End(xlUp).Row
    For i = 1 To LastRow
        Feuil1.Range("B" & i) = UCase$(Feuil1.Range("B" & i))
    Next i
End Sub

 

[halfer]

Re : Majuscule en temps réel

Merci, j'essaye ça de suite !