Code VBA interrompu quand la feuille excel n'est pas active

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:

---

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:

---

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

Bonjour,
Essaie ça :

Code:

---

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:

---

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.

Genial merci!