Discussion :

[Sibuxian]

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 :

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

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

[larryj]

Non-testé.

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

Code :

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

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

[mercatog]

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

Code :

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

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

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

[mercatog]

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

[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