completer et imprimer

C

Catrice

XLDnaute Barbatruc

• 20 Août 2009

• #2

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 :

Code:

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

 

Pièces jointes

• Classeur3.xls

  25 KB · Affichages: 40
• Classeur3.xls

  25 KB · Affichages: 43
• Classeur3.xls

  25 KB · Affichages: 42

Dernière édition: 20 Août 2009

Vote positif 0 Vote négatif

P

picsous

XLDnaute Junior

• 20 Août 2009

• #3

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é

 

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 20 Août 2009

• #4

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

 

Vote positif 0 Vote négatif

P

picsous

XLDnaute Junior

• 20 Août 2009

• #5

Re : completer et imprimer

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

 

Vote positif 0 Vote négatif

P

picsous

XLDnaute Junior

• 20 Août 2009

• #6

Re : completer et imprimer

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

 

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 20 Août 2009

• #7

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

Cliquez pour agrandir...

Oui

 

Vote positif 0 Vote négatif

JBOBO

XLDnaute Accro

• 21 Août 2009

• #8

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).

 

Vote positif 0 Vote négatif