Bonjour à tous
Cela devait être très simple mais cela se complique quand je lance le code suivant car sur
le code en entier
Code : Sélectionner tout - Visualiser dans une fenêtre à part .Apply '---> Msg Erreur 'Sort reference is not valide. Make sure that it's within the data you want to sort...'
Merci de votre aide sur l'erreur à corriger dans le code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19 Private Sub CommandButton1_Click() Dim oRg As Range Set oRg = ActiveSheet.Range("A1").CurrentRegion Debug.Print oRg.Address '--> Selectionne bien la plage voulue ActiveSheet.Sort.SortFields.Clear ActiveSheet.Sort.SortFields.Add _ Key:=oRg, SortOn:=xlSortOnValues, Order:=xlAscending, _ DataOption:=xlSortNormal With ActiveSheet.Sort .SortFields.Add Key:=Range("B1"), Order:=xlAscending .SetRange oRg .Header = xlYes .Apply '---------------------------------> Msg Erreur 'Sort reference is not valide. Make sure that it's within the data you want to sort...' End With End Sub
Partager