Méthode range de l'objet global a échoué

bonjour, je suis confronté à un certain problème, voire même à un problème certain.

Code:

---

1 2 3 4 5 6 7

With Range("A3:D3,A11:D11,A41:D41").Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 5287936 .TintAndShade = 0 .PatternTintAndShade = 0 End With

---

voici le code qui pose problème. De façon totalement aléatoire, j'ai l'erreur "La méthode range de l'objet global a échoué", en surlignant la 1e ligne du code ci-dessus. Cela ne le fait pas régulièrement, mais quelque fois. Et à partir du moment où ça le fait, la seule solution, c'est de fermer Excel, de le relancer, et là tout remarche...

Plus surprenant, c'est que quand ça merde, si je remplace les virgules dans la 1e ligne par des points-virgules, et bien ça remarche... ???!!

Et pour info, si je remplace "A3 : D3, A11 : D11 , A41 : D41" par "A3 : D3", et bien cela marche.

Bref, ce que je ne comprends pas, c'est le caractère hasardeux et aléatoire de ce message d'erreur. Qu'est-ce qui fait qu'au début je ne l'ai pas, mais qu'il fait son apparition par la suite ?



Merci !!

A part indiquer la feuille, je ne vois pas d'erreur (je n'en ai pas)

Ceci suffit je pense

Code:

---

Sheets("Feuil1").Range("A3:D3,A11:D11,A41:D41").Interior.Color = 5287936

---

Merci pour ta réponse. En effet, je ne spécifie pas la feuille... mais cela peut être une source d'erreur tu penses, sachant qu'au tout début de mon code, j'ai mis un sheets("Feuil1").activate ?

C'est pour éviter des mauvaises surprises qu'il faut adresser les plages complétement.
Les Activate, Select et Selection, ne font qu’alourdir le code et le rendent instable.


Essaies ce petit code que tu mets dans le module de Feuil1

Code:

---

1 2 3 4 5 6

Sub Test()   sheets("Feuil2").activate Range("D12")="toto"   End sub

---

Regarde où est écrit "toto"

j'ai essayé et ça le met bel et bien en celulle (12,4)...

de Feuil1 ou de Feuil2?

je n'ai pas de Feuil2 dans mon classeur, donc ça m'a mis une erreur
en remplaçant Feuil2 par Feuil1, ça me le met en Feuil1

Tu pouvais créer un classeur test. quel gâchis, tu as enlevé le sens à l'exemple.

Je te donne le résultat du code qui est mis dans le module de Feuil1

Code:

---

1 2 3 4 5

Sub Test()   Sheets("Feuil2").Activate Range("D12") = "toto" End Sub

---

En principe tu aactive Feuil2 et tu écris toto dans D12 de Feuil2! (c'était ta logique avec Activate)
Mains non! toto s'écrit dans D12 de Feuil1 même si Feuil1 n'est plus la feuille active.

Pour pallier à ceci, n'utilise plus les Activate est quand tu veux appeler une cellule, mets son adresse complète

exemple

Code:

---

1 2 3 4

Sub Test()   Sheets("Feuil2").Range("D12") = "toto" End Sub

---

toto s'écrit en D12 de Feuil2 quelque soit la feuille active