[XL-2003] recopier des couleurs ?

[claudenord]

Salut a tous
Je voudrais faire un classeur avec plusieurs feuilles ,
des feuilles eleve ou on trouverait ses notes par matiere et des feuilles prof ou chaque feuille aurait une liste d'eleve pour un prof .
avec des notes tout est ok; seulement on doit evaluer les elèves par competences et donner des ceintures de couleurs :
rouge = pas acquis et vert = acquis pour des competences données.
alors un prof peut mettre des couleurs (remplissage) dans des cellules mais je n'arrive pas à renvoyer ces cellules vers les feuilles eleves (lol)

j'ai voulu recopier en fait le contenu des cellules "profs" vers les cellules eleves mais ca renvoie les contenus et non les couleurs de remplissage

Qui peut m'aider ?
CDT
Claude

[corona]

Bonjour,
Voici deux exemples de code.
Exemple 1 : Copie le format d'un cellule sélectionnée et le recopie à la même adresse sur la feuille 3

Code :

1
2
3
4
5
6
7
 
Sub CopyFormat()
  With Selection
  .Copy
  Sheets("Feuil3").Range(.Address).PasteSpecial Paste:=xlPasteFormats
  End With
End Sub

Exemple 2 : Copie la couleur intérieure de la cellule sélectionnée ainsi que la couleur de sa police et recopie à la même adresse sur la feuille 3

Code :

1
2
3
4
5
6
7
 
Sub CopyColor()
  With Selection
   Sheets("Feuil3").Range(.Address).Interior.Color = .Interior.Color
   Sheets("Feuil3").Range(.Address).Font.Color = .Font.Color
  End With
End Sub

A adapter selon tes besoins.