XL 2019 Mettre en majuscule les lettres contenu dans mes codes

Phil69970 à dit:

Bonjour @KTM, le forum

Voici le code pour passer la colonne A en majuscule

VB:

Sub MajCol_A()
Dim Derlig&, i&
Derlig = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To Derlig
    Range("A" & i) = UCase(Range("A" & i))
Next i
End Sub

*Merci de ton retour
@Phil69970

Cliquez pour agrandir...

job75 à dit:

Une solution VBA très simple, sans boucle :

VB:

Sub Majuscules()
Dim tablo
With ActiveSheet.UsedRange.Columns(1)
    tablo = Evaluate("UPPER(" & .Address & ")")
    .Value = tablo
End With
End Sub

VBA évalue une matrice.

Bonne nuit.

Cliquez pour agrandir...