completer et imprimer

[picsous]

bonjour
je vous ai mis un exemple de fiche qui a déjà été imprimée
ce n'est qu'un petit exemple
l'original est beaucoup plus important d'où ma question
est possible d'imprimer une partie d'un tableau (bleu gras) sur une feuille déjà imprimé (noir)
merci

 

[Catrice]

Re : completer et imprimer

Bonjour,

Si j'ai bien compris, oui il suffit de passer la police en blanc sauf celle en bleue.

Ci-dessous et ci-joint une macro qui fait ça :

Sub Blanc()
For Each X In Cells.SpecialCells(xlCellTypeConstants, 23)
    If X.Font.ColorIndex = -4105 Then X.Font.ColorIndex = 2
Next
End Sub

Sub Noir()
For Each X In Cells.SpecialCells(xlCellTypeConstants, 23)
    If X.Font.ColorIndex = 2 Then X.Font.ColorIndex = -4105
Next
End Sub

 

[picsous]

Re : completer et imprimer

j'ai mon ordi qui bloque les macros entrantes, donc je ne peu rien voir que ce que tu as fais
et les macros je ne sais pas les faire, mon QI ordi n'est pas très développé

 

[Catrice]

Re : completer et imprimer

Re,

Alors il faut passer la police en blanc manuellement

Selectionner les cellules en maintenant la touche CTRL enfonfée puis Format/Cellule/Police/Couleur => blanc

 

[picsous]

Re : completer et imprimer

merci catrice sa je sais le faire, dommage de mon ordi refoule les macros

 

[picsous]

Re : completer et imprimer

si je sélectionne les cellules et demande imprimer sélection, il va imprimer en haut à gauche de la feuille ??

 

[Catrice]

Re : completer et imprimer

Bonsoir,

En allant dans Outils/Macro/Sécurité, tu ne peux pas acceder au macros ?

si je sélectionne les cellules et demande imprimer sélection, il va imprimer en haut à gauche de la feuille ??

Oui

 

[JBOBO]

Re : completer et imprimer

Bonjour catrice, picsous,

C'est juste une piste de reflexion, mais ne serait il pas possible d'utiliser la fonction lire.cellule dans la mise en forme conditionnelle afin de recuperer le n° de couleur de la police et d'effectuer une mise en forme en fon ction de ce numero. (j'ai essayé sans succes mais peut-etre que les pros s'en sortirait).