Transformer les minuscules en majuscule

[BAT]

Bonjour à tous,

Je cherche un macro (soit à lancer, soit qui fait le travail toute seule lorsque l'on validele contenu de la cellule) qui vas transformer les lettre minuscules en majuscule dans ma celule. SAchant que :
- L'action porte uniquement sur les celules de la colonne C, à partir de la ligne 2
- Dans la celule il y aura généralement ds chiffres et une ou deux lettre. Par exemple B01P015648.

Le résultat attendu est donc pour toutes les celules non vides de la colone C, à partir de la ligne 2, une transformation des lettre minuscules en majuscule comme par exemple : b01p015648 en B01P015648

Merci par avance pour votre aide. Ma recherche sur le forum n'à rien donnée hormis ce post qui ne corespond pas.
https://www.excel-downloads.com/thr...cule-_majuscule-_-majuscule-minuscule.183218/

A +

 

[Regueiro]

Re : Transformer les minuscules en majuscule

Bonjour à Tous.

Sub Majuscule()
'Majuscule toute les lettres
Dim c As Range
For Each c In Selection
If Not c.HasFormula Then
c.Value = UCase(c.Value)
End If
Next c
End Sub
Sub Minuscule()
'Minuscule toute les lettres
Dim c As Range
For Each c In Selection
If Not c.HasFormula Then
c.Value = LCase(c.Value)
End If
Next c
End Sub
Sub Majuscule1er()
'Majuscule 1ere Lettre
Dim c As Range
For Each c In Selection
If Not c.HasFormula Then
s = c.Value
c.Value = UCase(Left(s, 1)) & LCase(Right(s, Len(s) - 1))

End If
Next c
End Sub

Voilà quelques façon de faire.
A+

 

[phlaurent55]

Re : Transformer les minuscules en majuscule

Bonjour à tous,

plus simple:

Sub Majuscule()
For i = 2 To Range("C65535").End(xlUp).Row
Cells(i, 3) = UCase(Cells(i, 3))
Next i
End Sub

à+
Philippe

 

[Staple1600]

Re : Transformer les minuscules en majuscule

Bonsoir à tous


Une autre façon de faire (procédure événementielle à mettre dans la feuille et pas dans un module)
Code vb:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 And Target.Count = 1 Then
Application.EnableEvents = False
Target = StrConv(Target.Text, vbUpperCase)
Application.EnableEvents = True
End If
End Sub

 

[BAT]

Re : Transformer les minuscules en majuscule

Excel-ent ! c'est super. Exactement ce qu'il me fallait.
Merci beaucoup pour cette aide précieuse.
A bientôt