[résolu] attribué un nombre à une couleur

[truquemuche]

Bonjour ,

Certaines personnes ici m'ont enlevé une épine du pied il y a quelques semaines en résolvant mon problème, je reviens donc avec dans ma besace un autre soucis lié à excel .

j'ai des tableaux avec des couleurs de fond dans les cellules , celles ci sont récurrentes (bleu,orange,rouge) , je désire leur attribuée automatiquement un nombre , toujours le même , pour obtenir :
bleu=1 ;orange=2 ;rouge=3 .

exemple ci joint .

Cordialement.

 

[JCGL]

Re : attribué un nombre à une couleur

Bonjour à tous,

Peux-tu essayer dans un module :

Option Explicit
Sub Couleur_Ciffres()
Dim Cel As Range
For Each Cel In Range("C1:W29")
If Cel.Interior.Color = 255 Then Cel = 3
If Cel.Interior.Color = 15773696 Then Cel = 1
If Cel.Interior.Color = 49407 Then Cel = 2
Next Cel
Range("A1").Select
End Sub

A+ à tous

 

[Theze]

Re : attribué un nombre à une couleur

Bonjour,

Dans le même esprit que JCGL mais avec ColorIndex :

Sub NumCouleur()
    
    Dim Plage As Range
    Dim Cel As Range
    
    Set Plage = Range("C1:W29")
    
    'Plage.ClearContents
    
    For Each Cel In Plage
    
        Select Case Cel.Interior.ColorIndex
        
            Case 3: Cel.Value = 3
            Case 44: Cel.Value = 2
            Case 33: Cel.Value = 1
            
        End Select
        
    Next Cel

End Sub

Hervé.

 

[truquemuche]

Re : attribué un nombre à une couleur

Génial !

Bonjour à vous deux ,

Clair , net,précis , qui fonctionne et de surcroit rapidité de réponse , que demander de plus?

Encore merci!

Cordialement.