Application d'une couleur sur 2 feuilles différentes

[Airone784]

Bonjour,

Je vous joins ci-dessous mon fichier pour lequel je rencontre une erreur 1004, erreur définie par l'application ou par l'objet.

Mon souci, quand on est sur l'onglet dimanche si l'agent 6 commence à 22h et fini à 5h, je veux que soit coloré la partie du dimanche soir de 22h à 00h et sur l'onglet lundi de 0h à 5h pour ce même agent 6.

Mais j'ai donc ce code erreur pour lequel je ne trouve pas la solution.

Merci d'avance pour votre aide

 

[Dranreb]

Bonjour.
Le plantage vient de ce que Me.Name c'est "Dimanche" tandis que ActiveSheet.Name c'est "Lundi".
Vous ne pouvez donc pas définir ActiveSheet.Range(Me.Cells(a, "D"), Me.Cells(a, fin))
(En rouge: assumé car non spécifié)

 

[Airone784]

Bonjour Dranreb,

J'ai pas bien compris la réponse. Concrètement qu'est ce que je dois faire ??

Merci en tout cas de te pencher sur mon pb.

 

[Dranreb]

Comme cellules de début et de fin vous devez en spécifier de la feuille dont vous voulez établir un Range et non pas des cellules d'une autre feuille.

 

[Airone784]

Oui sauf que je veux vraiment colorer à la fois sur la feuille dimanche mais aussi sur la feuille lundi puisque la plage horaire va de dimanche 22H à lundi 5h...

 

[Dranreb]

Soit F2 une variable déclarée As Worksheet,
Initialisée Set F2 = ThisWorkBook.Worksheets("Lundi"),
Vous pourriez prendre F2.Range(F2.Cells(a, "D"), F2.Cells(a, fin)) dans tous les modules.
À la rigueur aussi Application.Range(F2.Cells(a, "D"), F2.Cells(a, fin))
Mais dans un module attaché à une feuille différente vous ne pourriez pas prendre F2.Range(Me.Cells(a, "D"), Me.Cells(a, fin))
ni Me.Range(F2.Cells(a, "D"), F2.Cells(a, fin)). Et si vous ne précisez rien devant Range ou Cells il assume Me dans un module de feuille. Dans un module standard par contre il assume Application.

 

[Airone784]

Soit F2 une variable déclarée As Worksheet,
Initialisée Set F2 = ThisWorkBook.Worksheets("Lundi"),
Vous pourriez prendre F2.Range(F2.Cells(a, "D"), F2.Cells(a, fin)) dans tous les modules.
À la rigueur aussi Application.Range(F2.Cells(a, "D"), F2.Cells(a, fin))
Mais dans un module attaché à une feuille différente vous ne pourriez pas prendre F2.Range(Me.Cells(a, "D"), Me.Cells(a, fin))
ni Me.Range(F2.Cells(a, "D"), F2.Cells(a, fin)). Et si vous ne précisez rien devant Range ou Cells il assume Me dans un module de feuille. Dans un module standard par contre il assume Application.

Ok je vais tester cela du coup.

Merci bien