Bonjour Ludwig, bonjour le Forum
Tu dois d'abord selectionner ta plage.
Pour tout mettre en majuscule
Sub Majuscules()
Dim Cell As Variant
Application.StatusBar = "Mise en majuscule de la sélection. Patientez SVP."
Application.ScreenUpdating = False
For Each Cell In Selection
Cell.Value = UCase(Cell.Value)
Next Cell
Application.StatusBar = False
Application.ScreenUpdating = True
End Sub
Pour avoir seulement la première lettre en majuscule:
Sub Minus1maj()
Dim Cell As Variant
On Error Resume Next
For Each Cell In Selection
Cell.Value = UCase(Left(Cell.Value, 1)) & _
LCase(Right(Cell.Value, Len(Cell.Value) - 1))
Next Cell
End Sub
Ces macros viennent des participants de ce Forum qui est une vrai mine d'information, merci encore à tous.
@+
Art