Discussion :

[Miraie]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Option Compare Text

Pour des informations sur Compare

Pour la façon de le faire:

[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.

[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

[Miraie]

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

[clementmarcotte]

Bonjour,

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 ?

[Miraie]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Option Compare Text

Pour des informations sur Compare

Pour la façon de le faire:

J'ai toujours la même erreur

[clementmarcotte]

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.

[Ericcool02]

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

[Miraie]

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