Trie et majuscule

[maval]

Bonsoir

j'ai sur une feuille une liste de nom dans la colonne "A" et j'ai un code pour trie en ordre croissant et un autre code pour mettre les nom en majuscule.

Le problème est que je n'arrive pas à les unir?

Voici mon code.

'Tri automatique
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Dim LastRow As Long
    LastRow = ActiveSheet.Range("a2").End(xlDown).Row
    Range("a2:b" & LastRow).Sort Key1:=Range("a2"), Order1:=xlAscending, Key2:=Range("a2"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _
        :=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
        DataOption2:=xlSortNormal

   'Majuscule
  Dim PlageActeur As Range
Dim cell As Range
   Set PlageActeur = Range("A2:A500")
   
   'Met la plage de cellule d'Accteur en Majuscule
   For Each cell In PlageActeur
      cell = UCase(cell)
   Next
End Sub

Je vous remercie d'avance

 

[Yaloo]

Re : Trie et majuscule

Bonsoir Max,

Avec cette modification :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim LastRow As Long
Dim PlageActeur As Range
Dim cell As Range
Application.EnableEvents = 0
    LastRow = ActiveSheet.Range("a2").End(xlDown).Row
  Range("a2:b" & LastRow).Sort Key1:=Range("a2"), Order1:=xlAscending, Key2:=Range("a2"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _
    :=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
    DataOption2:=xlSortNormal
   
  Set PlageActeur = Range("A2:A500")
   
   'Met la plage de cellule d'Accteur en Majuscule
  For Each cell In PlageActeur
    cell = UCase(cell)
  Next
Application.EnableEvents = -1
End Sub

A+

Martial