Discussion :

[nianko]

Bonjour,

J'ai ecrit un bout de code qui s'interrompt si la feuille n'est pas active (je dois alors manuellement clique sur l'onglet, presser F8 et le code continue).

Pour donner un exemple, le code suivant bugge:

Code :

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

If BR_list.Range(Columns(-1 + 4 * j).Cells(5), Columns(-1 + 4 * j).Cells(5).End(xlDown)).Cells.Count > 1000 Then

lorsque je ne suis pas sur la feuille BR_List, mais fonctionne si je clique sur l'onglet.

Idem, si je ne suis pas sur la feuille Summary le code suivant bug:

Code :

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

1
2
3
4
Summary.Range(Range("C8"), Range("C8").Offset(Borne - 1, i + 1)).Sort Key1:=Range("C8"), _
        Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

Comment ce fait-ce et comment remedier a cela?

Merci

[tedo01]

Bonjour,
Essaie ça :

Code :

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

If BR_list.Range(BR_list.Columns(-1 + 4 * j).Cells(5), BR_list.Columns(-1 + 4 * j).Cells(5).End(xlDown)).Cells.Count > 1000 Then

Et ça :

Code :

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

1
2
3
4
Summary.Range(Summary.Range("C8"), Summary.Range("C8").Offset(Borne - 1, i + 1)).Sort Key1:=Summary.Range("C8"), _
        Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

Range et Columns, s'ils ne sont pas préfixés par un objet feuille, font par défaut référence à la feuille active, ce qui explique les problèmes que tu as rencontrés.
Il est plus prudent de toujours préfixer ces fonctions par la feuille sur laquelle on veut travailler.

[nianko]

Genial merci!