Macro Couleur/Valeur

[ryoaa]

Bonjour,
Je possède Excel 2007 et je travaille sur Windows seven.J'aimerais pouvoir, dans le cadre de mon travail, réaliser un système qui me permette de filtrer les cellules qui comportent des couleurs en valeurs dans une autre cellule. Exemple si B3 est rouge alors la valeur en C3 sera 1. Et si B5 est Bleue en C5 sera 2 etc. J'aurai besoin d'une macro permettant de filtrer 4 couleurs. J'ai donc trouvé une macro qui aurait du faire l'affaire mais elle ne fonctionne pas chez moi, voila le résultat du code sur Visual basic :


Sub Macro1()
'
' Macro1 Macro
' Sub distri_couleur() Dim B For B = 1 To 12 Worksheets(1).Range("A" & I).Value = Worksheets(1).Range("A" & B).Interior.Color Next B End Sub
'
' Touche de raccourci du clavier: Ctrl+p
'
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Application.Run "Classeur1!Macro1"
Range("B4").Select
Application.Run "Classeur1!Macro1"
Application.Goto Reference:="Macro1"
Range("B4").Select
Range("B4").Select
Selection.ClearContents
Range("A1").Select
End Sub

Je vous remercie de votre aide et je vous souhaite une bonne continuation.

 

[Staple1600]

Re : Macro Couleur/Valeur

Bonjour


Avec un peu de retard.

Si je ne m'abuse, dans Excel 2007, il y en a natif la possibilité de filtrer par couleur, non ?