XL 2013 Mettre une plage de cellule en majuscule

[Jojo973]

Bonjour à tous,
je souhaiterai mettre une plage de cellule en majuscule. J'utilise un code VBA pour le faire pour une plage correspondant à une partie d'une colonne :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range, C As Range
If Target.Address(0, 0) = "D14" Then Target = UCase(Target)
Set Rg = Intersect(Target, Range("D14:D41"))
If Not Rg Is Nothing Then
    Application.EnableEvents = False
    For Each C In Rg
        If C <> "" Then
            Select Case C.Column
                Case 4 'Pour la colonne D
                    C.Value = UCase(C.Value)
            End Select
        End If
    Next
       Application.EnableEvents = True
End If
End Sub

Je souhaiterai adapter ce code pour une plage de cellule, par exemple E14:L41, merci d'avance !😎

 

[Pierrot93]

Re : Mettre une plage de cellule en majuscule

Bonjour,

bah... moduifie le "range" de cette instruction avec la nouvelle plage de cellule :

Set Rg = Intersect(Target, Range("D14:D41"))

et supprime la 1èer ligne de test sur la cellule D14...

bonne journée
@+

 

[Pierrot93]

Re : Mettre une plage de cellule en majuscule

Re,

ceci devrait suffire :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E14:L41")) Is Nothing And Target.Count = 1 Then
    Application.EnableEvents = False
    Target = UCase(Target)
    Application.EnableEvents = True
End If
End Sub

 

[Jojo973]

Re : Mettre une plage de cellule en majuscule

Merci à tous les deux, le première solution ne fonctionne que si on spécifie toutes les colonnes dans la boucle. La deuxième fonctionne impec.😉, merci, problème résolu.