Macro Majuscule

[tactic6]

Bonjour le forum

Sub Majuscules()
Dim Table() As String
    Dim Cellule As Range, Plage As Range
    Dim sStr As String, sRes As String
    Dim Cmpt As Long, Ptr As Long
   On Error Resume Next
    Set Plage = Application.InputBox( _
            "Sélectionner la plage à couvrir", _
            "Plage:", _
            ActiveWindow.Selection.Address(0, 0), _
            Type:=8)
    If Err <> 0 Then
     On Error GoTo 0
     Exit Sub
    End If
    If Not (Plage Is Nothing) Then
        For Each Cellule In Plage
            sStr = UCase(Left(Cellule.Value, 1)) & _
                    LCase(Mid(Cellule.Value, 2))
            Ptr = Len(sStr)
            For Cmpt = 1 To Ptr
                sRes = Mid(sStr, Cmpt, 1)
                If (sRes = Chr(10)) Then
                    sStr = (Mid(sStr, 1, Cmpt)) & _
                            UCase(Mid(sStr, Cmpt + 1, 1)) & _
                            Mid(sStr, Cmpt + 2)
                End If
            Next Cmpt
            Cellule.Value = sStr
        Next Cellule
    End If
End Sub

ce code permet de mettre en majuscule la premiere lettre de la cellule choisie
comment le modifier pour mettre toute la cellule en majuscule ?
Merci pour votre aide

 

[Pierrot93]

Re : Macro Majuscule

Bonjour Tactic

pour la 1ère lettre en majuscule, je coderais :

Range("A1").Value = Application.Proper(Range("A1").Value)

pour toute la cellule :

Range("A1").Value = UCase(Range("A1").Value)

bonne soirée
@+

 

[Brigitte]

Re : Macro Majuscule

Bonsoir,

Et aussi, une macro complémentaire de l'excellent Didier myDearFriend : mDF MajXL v1.0 : myDearFriend! Excel Pages

Bonne soirée.

 

[JCGL]

Re : Macro Majuscule

Bonjour à tous,
Bonjour Brigitte,

Je conseille la Version 2 du même mDF et plus complète

Bises
A+ à tous

 

[Brigitte]

Re : Macro Majuscule

Ah sorry, pardon... j'avais pas fait attention. Merci JC

 

[tactic6]

Re : Macro Majuscule

Merci à tous