Discussion :

[Kutoh]

Bonjour,
je voudrais créer un égvènement qui, modifie ma feuille excel(changement de couleur de ma feuille) lorsque je lance l'impression. Mais je ne trouve pas dans la liste des évènements de worksheet le "beforeprint". Quelqu'un aurait-il une solution à me proposer SVP?

[Marc-L]

Bonjour,

c'est normal que tu ne trouves pas cet évènement au niveau de la feuille car il n'existe pas ‼

Il existe par contre au niveau du classeur dans son module ThisWorkbook …

Pas de souci alors s'il s'agit de la feuille active, sinon tester le nom ou le n° de la feuille …


__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[Kutoh]

Je suis allé dans Thisworkbook, j'ai écris la macro de l'évènement. Mais quand je lance l'impression, il m'imprime toute la feuille au lieu d'imprimer juste ce que j'ai sélectionné.

En fait ce que je voudrais, c'est que lorsque je lance l'impression, la couleur de ma page change(devient blanche de préférence).
J'ai donc écrit par exemple le code suivant:

Code :

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

ActiveWorkbook.Colors(3) = RGB(255, 255, 255)

ca veut dire que si ma page est de couleur rouge, lorsque je lance l'impression, je voudrais qu'elle devienne blanche. Mais ça ne marche pas. Je voudrais savoir comment y arriver.

[Mr Poulpe]

Bonjour,

Le bout de code suivant devrait permettre d'appliquer du blanc sur toutes les feuilles du classeur

Code :

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

1
2
3
4
5
For i = 1 To ActiveWorkbook.Sheets.Count
 
Sheets(i).Range("A1:eJ65000").Interior.colorindex = xl none
 
Next