Problème de "Range de l'objet_Global" non persistant

Version imprimable

Bonjour, comme écrit dans le titre du sujet, mon code a un problème de "Range de l'objet_Global a echoué".

Je vais essayer d'expliquer clairement le problème.
Mon module correspond juste à du code de mise en page.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Range("A2").Select With Selection.Font .Name = "Arial" .Size = 18 .ColorIndex = 11 End With Range("A10,B10,A12,B12,A14,B14,B17,B20,C20,B26,C26,C28,B33,B34:G48,F10,F12,F14,E10,E12,E14,E17,F17").Select Range("F14").Activate With Selection.Font .Name = "Arial" .Size = 12 End With
Le Range ci dessus fait bugger le code lorsque je lance la macro à partir d'une autre macro à l'aide de la fonction "Call". Mais lorsque je lance simplement la macro toute seul, celle-ci fonctionne. Je ne comprend pas d'ou peut provenir le problème de range dans ce cas présent.

Merci

Non-testé.

Essaye de préciser la feuille avec laquelle tu travailles.
Exemple :

Code:

1
2
3
4
5
6
7
8
9
10
11
 
With MonClasseur.MaFeuille 
'With ActiveWorkbook.MaFeuille   'Si le classeur est le classeur actif
'With ThisWorkbook.MaFeuille     'Si le classeur est le classeur dans lequel est ta macro
    .Range("A2").Select
    With Selection.Font
        .Name = "Arial"
        .Size = 18
        .ColorIndex = 11
    End With
End With

J'espère que ces indications pourront t'aider...

J'ajoute, que tu n'as pas besoin des Select.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
With Sheets("Feuil2")             'Nom de la feuille à adapter
    With .Range("A2").Font
        .Name = "Arial"
        .Size = 18
        .ColorIndex = 11
    End With
 
    With .Range("A10,B10,A12,B12,A14,B14,B17,B20,C20,B26,C26,C28,B33,B34:G48,F10,F12,F14,E10,E12,E14,E17,F17").Font
        .Name = "Arial"
        .Size = 12
    End With
End With

17/05/2010, 10h49
Sibuxian

ton code est sympa, ca m'épargne des ligne mais ca ne règle malheureusement pas mon problème ...
Je ne comprend toujours pas pourquoi le code bloque avec les autres macro alors que je spécifie parfaitement les feuilles.
17/05/2010, 11h05
mercatog

Si tu mets tes codes en entier, et 'indiquer où tu as mis ces macros. ça serait peut être plus aisé d'aider.
17/05/2010, 18h06
Sibuxian

J'ai fini par résoudre le problème.
j'ai inversé 2 appels de macro et le problème était réglé.

Apparament, une macro bloquait une autre quand les 2 se lancait