Code bouton annuler

[tactic6]

Bonjour le forum et tous les autres

Voici une macro qui permet de transformer les Majuscules en Minuscules...
quand on la lance on choisi la plage à modifier et on click sur OK
mais quand je click sur annuler (comme je ne sais pas encore adapter la commande) j'ai bien évidement un message d'erreur pas gênant mais bon si quelqu'un connait les deux ou trois lignes de code à rajouter ce serait parfait
merci à tous et très bon Weekend

Sub Majuscules(ByVal control As IRibbonControl)
    Dim Cellule As Range, Plage As Range
    Dim sStr As String, sRes As String
    Dim Cmpt As Long, Ptr As Long
    Set Plage = Application.InputBox( _
            "Sélectionner la plage à couvrir", _
            "Plage:", _
            ActiveWindow.Selection.Address(0, 0), _
            Type:=8)
        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

 

[pierrejean]

Re : Code bouton annuler

bonjour tactic6

A tester:

.........
Dim Cmpt As Long, Ptr As Long
    [COLOR=blue]On Error Resume Next
[/COLOR]    Set Plage = Application.InputBox( _
            "Sélectionner la plage à couvrir", _
            "Plage:", _
            ActiveWindow.Selection.Address(0, 0), _
            Type:=8)
    [COLOR=blue]If Err <> 0 Then
     On Error GoTo 0
     Exit Sub
    End If
[/COLOR]        If Not (Plage Is Nothing) Then
 
.........

 

[tactic6]

Re : Code bouton annuler

merci pierrejean
je n'avais pas vu ta réponse
je teste
Bon Weekend

 

[tactic6]

Re : Code bouton annuler

Re
Merci C'est tout bon