Majuscule +nompropre meme feuille

Résolu
surplus Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   -  
surplus Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

j'ai un petit soucis sur une macro avec excel qui met en majuscule ma plage C4:O39

Private Sub Worksheet_Change(ByVal zz As Range)
If Intersect(zz, [C4:O39]) Is Nothing Then Exit Sub
Application.EnableEvents = False
zz = UCase(zz)
Application.EnableEvents = True
End Sub
qui fonctionne bien
mon soucis c'est que je veux mettre en NOMpropre sur la même feuille ma colonne AA4:AA39
que dois je rajouter ?
merci
a bientot

1 réponse

  1. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    Bonjour,

    Private Sub Worksheet_Change(ByVal zz As Range)
        Dim c As Range
        Application.EnableEvents = False
        For Each c In zz
            If Not Intersect(c, [C4:O39]) Is Nothing Then
                c = UCase(c)
            ElseIf Not Intersect(c, [AA4:AA39]) Is Nothing Then
                c = Application.Proper(c)
            End If
        Next c
        Application.EnableEvents = True
    End Sub

    De plus cette version fonctionnera si tu colles une plage au lieu de planter...

    eric
    1
    1. surplus Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   4
       
      ca marche impec
      merci bonne journée
      a bientot
      0