Discussion :

[leronce]

bonjour le forum

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
With ActiveWorkbook.Sheets(2).Sort                              'tri C & D
        .SetRange Range("B2:R" & nbL)
        .SortFields.Clear
        .SortFields.Add Key:=Range("C2:C" & nbL), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SortFields.Add Key:=Range("D2:D" & nbL), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    End With
    With ActiveWorkbook.Sheets(2).Sort                              'tri
        .SetRange Range("B2:R" & nbL)
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply                                                      'erreur 1004 : référence de tri non valide en supprimant le 2ème with et setrange
    End With

merci d'avance de satisfaire ma curiosité

[jeanmidudu]

Bonjour,

Peux-tu mettre également le code sans le 2ème with, et nous dire qu'elle est l'erreur retournée?

[leronce]

merci pour ta réponse
voici 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
 
With ActiveWorkbook.Sheets(2).Sort                              'tri C & D
        .SetRange Range("B2:R" & nbL)
        .SortFields.Clear
        .SortFields.Add Key:=Range("C2:C" & nbL), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SortFields.Add Key:=Range("D2:D" & nbL), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
 
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply                                                      'erreur 1004 : référence de tri non valide en supprimant le 1er end with, le 2ème with et le 2ème setrange
    End With

c'est le même que le 1er, excepté les 3 lignes suivantes qui étaient insérées au niveau du saut de ligne

Code :

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

1
2
3
4
 
    End With
    With ActiveWorkbook.Sheets(2).Sort                              'tri
        .SetRange Range("B2:R" & nbL)

mon 1er code fonctionne correctement, mais je voudrai comprendre l'obligation de cette redondance

[el_slapper]

à vu de nez, l'objet pointé par ton with est un filtre, et tu fais des actions sur ledit filtre. Sans être sur de mon coup, j'imagine que la cible ayant changé, la cible réelle de ton With change entre les 2 occurrences ou tu l'écris. Ca pointe certes vers le même objet, mais il a changé. D'ou l'utilité de pointé sur le filtre corrigé.

(c'est juste une hypothèse, mais un objet qui est à la fois conteneur et sujet de l'action, c'est souvent dangereux - quel que soit le langage).

[leronce]

merci
mon neurone m'incline à penser qu'effectivement c'est la bonne piste
je vais passer en résolu
merci à vous 3 d'avoir répondu

[antonysansh]

Bonjour leronce,

Regarde dans l'explorateur d'objet VBA (F2 dans les fenêtres VBA).

Tu pourras voir par exemple que SetRange est un méthode de la classe Sort donc inutilisable sans être utilisée après un Sort.
Header peut lui faire référence à plusieurs classes différentes donc tu dois obligatoirement préciser la classe concernée.

Le With permet uniquement de ne pas réécrire ActiveWorkbook.Sheets(2).Sort à chaque ligne.

Idem pour le reste.

[leronce]

Bonjour leronce,

Regarde dans l'explorateur d'objet VBA (F2 dans les fenêtres VBA).

Tu pourras voir par exemple que SetRange est un méthode de la classe Sort donc inutilisable sans être utilisée après un Sort.
Header peut lui faire référence à plusieurs classes différentes donc tu dois obligatoirement préciser la classe concernée.

Le With permet uniquement de ne pas réécrire ActiveWorkbook.Sheets(2).Sort à chaque ligne.

Idem pour le reste.

merci pour ta réponse
je comprend très bien tes propos, mais pourquoi la redondance est obligatoire puisque déjà déclarée en 1ère et 2 ème ligne