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