Discussion :

[clao260]

Bonjour,

j'ai créer une liste de tache avec un tri automatique en fonction d'une priorité, grace à VBA et pour cela j'utilise le programme suivant :

Sur la feuille :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Intersect(Target, Range("D15:D40")) Is Nothing Then Exit Sub
Call macro_tri '
 
End Sub

dans un module :

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
Sub macro_tri()
''
    Range("D14:G40").Select
    ActiveWorkbook.Worksheets("Perso").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Perso").Sort.SortFields.Add Key:=Range("D14:G40") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Perso").Sort
        .SetRange Range("D15:G40")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Ce code fonctionnait parfaitement, mais du jour au lendemain il ne fonctionne plus sans que j'ai d'explication : le mesage d'erreur est le suivant :

Erreur d'execution '1004':
Erreur définie par l'application ou par l'objet

Que dois-je faire ?

Merci à vous

Je précise que le code bloque à l'étape

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Apply

[sebing]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.Worksheets("Perso").Sort.SortFields.Add Key:=Range("D14:G40") _

Bonjour,

En enlevant dans ta macro tri

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

:G40

ça devrait fonctionner mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  ActiveWorkbook.Worksheets("Perso").Sort.SortFields.Add Key:=Range("D14") _

Bonne soirée
Seb

[mercatog]

Indique la feuille à laquelle se rapporte la clé de tri
(du jour au lendemain, la feuille Perso n'est plus la feuille active)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkbook.Worksheets("Perso").Sort.SortFields.Add Key:=ThisWorkbook.Worksheets("Perso").Range("D14")