Discussion :

[chakev]

Bonjour, j'aimerais savoir si c'est possible de créer une formule permettant d'imprimer des feuilles excel selon la couleur de l'onglet. Par exemple, une formule qui permet d'imprimer tous les onglets bleus de mon fichier excel. Je n'ai aucune idée de la formule.

Merci à l'avance.

[casefayere]

je viens de changer pour choix couleur plus simple avec numero

Code :

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

1
2
3
4
5
6
7
8
Sub impfeuil()
Dim x As Integer
For x = 1 To Sheets.Count
If Sheets(x).Tab.ThemeColor = 5 Then'là couleur bleue claire, tu peux changer
Sheets(x).PrintOut Copies:=1
End If
Next x
End Sub

[chakev]

Ca bogue à la ligne suivante

Code :

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

If Sheets(x).Tab.ThemeColor = 37 Then

[casefayere]

il faut vérifier le numero de la couleur pour etre sur, pour tester :

Code :

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

msgbox Sheets(x).Tab.ThemeColor

ou avec colorindex

Code :

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

MsgBox Sheets(x)Tab.ColorIndex

dans ce cas reprends colorindex dans le code et son numero

Code :

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

1
2
3
4
5
6
7
8
Sub impfeuil()
Dim x As Integer
For x = 1 To Sheets.Count
If Sheets(x).Tab.ColorIndex = 5 Then
Sheets(x).PrintOut Copies:=1
End If
Next x
End Sub

[chakev]

Je l'ai testé et c'est bien 37 le code de couleur (bleu pale)

[casefayere]

re,
ça te donne 37 avec colorindex ou avec ThemeColor (le résultat n'est pas le meme, sinon je ne comprends pas car j'ai essayé et ça fonctionnait impeccable

à +