Bonjour à tous
je viens vous demandez un petit coup de main pour trier plusieurs colonne par ordre alphabetique.
je m'explique j'ai des colonne avec des nom sur un tableau B3:CP50 je souhaiterais grace à une macro proceder au trie de chaque colonne par ordre alphabetique j'ai essayer en enregistrant une macro mais sa me trie que la premiere colonne
Sub Triealpha()
With Sheets("Dispo").Select
Range("B3").Select
Range("B3:CP117").Select
ActiveWorkbook.Worksheets("Dispo").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Dispo").Sort.SortFields.Add Key:=Range("B3"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Dispo").Sort
.SetRange Range("B3:CP50")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("Dispo").Select
Range("B3").Select
End With
End Sub
pouvez vous m'aider svp merci
je viens vous demandez un petit coup de main pour trier plusieurs colonne par ordre alphabetique.
je m'explique j'ai des colonne avec des nom sur un tableau B3:CP50 je souhaiterais grace à une macro proceder au trie de chaque colonne par ordre alphabetique j'ai essayer en enregistrant une macro mais sa me trie que la premiere colonne
Sub Triealpha()
With Sheets("Dispo").Select
Range("B3").Select
Range("B3:CP117").Select
ActiveWorkbook.Worksheets("Dispo").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Dispo").Sort.SortFields.Add Key:=Range("B3"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Dispo").Sort
.SetRange Range("B3:CP50")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("Dispo").Select
Range("B3").Select
End With
End Sub
pouvez vous m'aider svp merci