Discussion :

[danisoaz]

Bonjour,

Message d'erreur :
"La méthode Range de l'objet _worksheet a échoué"

Code :

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

1
2
3
4
5
6
7
 
' Dans déclarations
Dim vBlanc1 As Range
' Dans procédure MiseEnPage
Set vBlanc1 = vWstImpression.Range("E23" & ":H" & vSautPage)
'Dans procédure Print color, ligne qui provoque l'erreur, ("Vblanc1" génère la même erreur)
vWstImpression.Range(vBlanc1).Font.ColorIndex = coul1

Si quelqu'un peut mettre le doigt sur mon erreur : merci d'avance.
Cordialement
Daniel

[mercatog]

Bonjour
vBlanc est déjà un Range
Utilise dans ta ligne 7 juste ceci

Code :

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

vBlanc1.Font.ColorIndex = coul1

[danisoaz]

Merci beaucoup !
Je ne comprends pas, l'après midi c'est toujours plus compliqué que le matin...