Utiliser des cellules dans des feuilles différentes pour lancer une macro

Bonjour,

Je tente de créer une macro afin de lancer une autre macro selon si les cellules D8 de deux feuilles différentes ont le même contenu (texte). Je reçois un message d'erreur quand je lance ma macro. Je dois vous avouer que je ne comprends pas mon erreur. Pourriez-vous, éclairer ma lanterne?

Merci d'avance pour votre précieuse aide.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub Selection_Semaine()   Dim Route10A As String, Route10B As String   Route10A = Sheets("Route 10A").Range("D8")   Route10B = Sheets("Route 10B").Range("D8")   If Route10A = Route10B Then   ImprimerRoute10Semaine   Else   Imprimer_Semaine   End If     End Sub

---

Bonjour,

Ce serait préférable que tu nous donnes le message d'erreur, ainsi que la ligne. Pour peu que je puisse voir, le test fonctionne correctement et l'erreur semble être dans une des macros d'impression.
Si tu mets un point d'arrêt au début de tes macros d'impression et que tu les exécutes au pas-à-pas avec F8, cela donne quoi ?
As-tu essayé de cliquer sur Débogage quand tu as ton message d'horreur ? En principe, tu devrais te retrouver sur la ligne en erreur.

Mais, je viens de relire la question et j'ai retesté avec du vrai texte:
Hector et Hector : égal
hector et Hector : différent

Donc, cela pourrait aussi être une différence d'orthographe.

Ou bien tu t'assures qu'il n'y aucune différence dans tes textes : minuscule, majuscules, accents, virgules etc. tout pareil. Ou pour avoir un peu de tolérance, tu essaies avec:

Code:

---

Option Compare Text

---

Pour des informations sur Compare

Pour la façon de le faire:

Pièce jointe 506996

Le message d'horreur est:

Erreuer d'exécution '9':

L'indice n'appartient pas à la sélection.

Quand je rendre en débug, c'est la *ligne Route10A = Sheets("Route 10 A").range("D8")* qui est surlignié. je dois vous avouer que je suis vraiment perdu.

Pour ce qui est des macro d'imprésions, eux fonctionne quand je les utilise seul. donc je ne crois pas que le problème sois dans ces macros.

Bonsoir le forum
Bonsoir Miraie, bonsoir clementmarcotte

Je suis presque sûr que le nom de tes onglets de feuilles y est pour quelque chose. Es tu certain que l'espace entre Route & 10A ou 10B est présent dans le nom de tes feuilles?
Bonne soirée
@+ Eric c

Bonjour,

Citation:

---

Envoyé par Miraie

Le message d'horreur est:

Erreuer d'exécution '9':

L'indice n'appartient pas à la sélection.

Quand je rendre en débug, c'est la *ligne Route10A = Sheets("Route 10 A").range("D8")* qui est surlignié. je dois vous avouer que je suis vraiment perdu.

Pour ce qui est des macro d'imprésions, eux fonctionne quand je les utilise seul. donc je ne crois pas que le problème sois dans ces macros.

---

J'ai revu ma copie entre les deux messages. Est-ce que ma réponse modifiée fonctionne ?

Citation:

---

Envoyé par Ericcool02

Bonsoir le forum
Bonsoir Miraie, bonsoir clementmarcotte

Je suis presque sûr que le nom de tes onglets de feuilles y est pour quelque chose. Es tu certain que l'espace entre Route & 10A ou 10B est présent dans le nom de tes feuilles?
Bonne soirée
@+ Eric c

---

oui il y a l'espace dans le nom des mes feuilles

Citation:

---

Envoyé par clementmarcotte

Bonjour,

Ce serait préférable que tu nous donnes le message d'erreur, ainsi que la ligne. Pour peu que je puisse voir, le test fonctionne correctement et l'erreur semble être dans une des macros d'impression.
Si tu mets un point d'arrêt au début de tes macros d'impression et que tu les exécutes au pas-à-pas avec F8, cela donne quoi ?
As-tu essayé de cliquer sur Débogage quand tu as ton message d'horreur ? En principe, tu devrais te retrouver sur la ligne en erreur.

Mais, je viens de relire la question et j'ai retesté avec du vrai texte:
Hector et Hector : égal
hector et Hector : différent

Donc, cela pourrait aussi être une différence d'orthographe.

Ou bien tu t'assures qu'il n'y aucune différence dans tes textes : minuscule, majuscules, accents, virgules etc. tout pareil. Ou pour avoir un peu de tolérance, tu essaies avec:

Code:

---

Option Compare Text

---

Pour des informations sur Compare

Pour la façon de le faire:

Pièce jointe 506996

---

J'ai toujours la même erreur

Pièce jointe 507003Pièce jointe 507007

Bonjour,

J'ai fait in copier-coller de tes noms de feuille dans mon classeur et un copier-coller de ton code. Donc, en principe, il me semble qu'il ne reste que le contenu de tes cellules.

Fais un copier-coller de tes deux cellules dans le bloc-notes, chacune sur une ligne. Juste pour voir s'il n'y pas pas une espace de trop ou un caractère parasite.

Au pire, fais un copier-coller des noms de feuilles de ton code, ou même directement de ta question, et renomme chaque feuille dans ton classeur; d'un coup que ce soit une différence dans le nom des feuilles du classeur et des noms de feuille dans la macro.

Sinon, je donne ma langue au chat.

Je suis le raisonnement de clementmarcotte, il y a une poussière quelque part soit dans le nom des onglets ou dans les cellules. J'ai fait et refait le test et ça fonctionne très bien chez moi.
@+ Ericcool02

Il y avait effectivement un espacement avant Route dans mon onglet Route 10A. Un énorme merci à vous deux.:mrgreen: