Discussion :

[ggvert]

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

Code :

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

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

[mercatog]

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

Ceci suffit je pense

Code :

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

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

[ggvert]

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 ?

[mercatog]

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 :

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

1
2
3
4
5
6
Sub Test()
 
sheets("Feuil2").activate
Range("D12")="toto"
 
End sub

Regarde où est écrit "toto"

[ggvert]

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

[mercatog]

de Feuil1 ou de Feuil2?

[ggvert]

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

[mercatog]

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 :

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

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 :

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

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