XL 2019 Mettre en majuscule les lettres contenu dans mes codes

[KTM]

Bonsoir chers tous
Des codes de patients sont écris en colonne A avec des lettres en minuscule.
je voudrais à l'aide d'une macro les corriger en mettant les lettres en majuscule.
exemple : 268/as/296 devient 268/AS/296
e9818/01/69A/02s devient E9818/01/69A/02S
MERCI et Bonne soirée!!

 

[job75]

Bonsoir KTM,

Pas besoin de VBA :

- formule en B1 à tirer vers le bas =MAJUSCULE(A1)

- copier la colonne B et collage spécial-Valeurs sur la colonne A.

Faire tourner l'enregistreur de macro si l'on veut obtenir un code VBA.

A+

 

[Phil69970]

Bonjour @KTM, le forum
Edit : Bonjour Job

Voici le code pour passer la colonne A en majuscule

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

 

[KTM]

Bonjour @KTM, le forum

Voici le code pour passer la colonne A en majuscule

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

Super Merci
c'est ce que je voulais.

 

[job75]

Une solution VBA très simple, sans boucle :

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.

 

[KTM]

Une solution VBA très simple, sans boucle :

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.

 

[KTM]

Merci job75