reperage de la couleur d'une cellule

[philmaure]

bonjour,
sachant qu'une couleur verte correspond dans le VB : Color = 5287936
comment puis tester en vb la couleur d'une cellule pour mettre une indication dans une autre cellule

exemple: si la cellule A12 est verte alors mettre en B1 le chiffre 2

Merci pour aide
Cdlt
philippe

 

[philmaure]

Re : reperage de la couleur d'une cellule

j'ai oublié de dire que je souhaiterai faire le test sur toute la colonne A

 

[thebenoit59]

Re : reperage de la couleur d'une cellule

Bonjour philmaure.

Sub TestCouleur()
Dim c As Variant
Dim d As Object
    Set d = CreateObject("Scripting.Dictionary")
        For Each c In Range("b:b")
            If c.Interior.Color = 5287936 Then d(c.Row) = 2
        Next c
        For Each c In d.keys
            Cells(c, 1).Value = d(c)
        Next c
End Sub

On vérifie si l'intérieure de la cellule = 5287936, si c'est le cas, on enregistre le n° de la ligne dans un dictionary avec comme item 2.
On boucle le dictionary en ajoutant la valeur 2 aux cellules de la colonne A.

 

[philmaure]

Re : reperage de la couleur d'une cellule

bonjour et un grand merci pour la solution

A quel endroit indique t-on de mettre le chiffre 2 dans la colonne A parce que parfois je souhaiterai l'indiquer dans une autre colonne ?

Cdlt
philippe

 

[philmaure]

Re : reperage de la couleur d'une cellule

re,

j'ai trouvé il faut modifier Cells(c, 1).Value = d(c)

Encore merci pour ton aide
bonne journée
Cdlt
Philippe

 

[thebenoit59]

Re : reperage de la couleur d'une cellule

A cet endroit :

        For Each c In d.keys
            Cells(c, 1).Value = d(c)
        Next c

Le 1 de

 Cells(c,1)

est le numéro de la colonne.

 

[philmaure]

Re : reperage de la couleur d'une cellule

re bonjour,

en reprenant mon fichier test, a ton la possibilité de tester plusieurs couleurs ?
Par exemple si c'est vert on met 2 si c'est rouge ont 3 ?

Cdlt
philippe

 

[thebenoit59]

Re : reperage de la couleur d'une cellule

Bien sûr :

        For Each c In Range("b:b")
            If c.Interior.Color = "Vert" Then d(c.Row) = 2
            If c.Interior.Color = "Rouge" Then d(c.Row) = 3
        Next c

Remplace par les codes couleurs que tu souhaites.

 

[philmaure]

Re : reperage de la couleur d'une cellule

re,
encore un grand merci
bonne journée
Cdlt
Philippe

 

[thebenoit59]

Re : reperage de la couleur d'une cellule

Remplace plutôt ainsi :

Sub TestCouleur()
Dim c As Variant
Dim d As Object
    Set d = CreateObject("Scripting.Dictionary")
        For Each c In Range("b:b")
            If c.Interior.Color = 5287936 Then
                d(c.Row) = 2
            ElseIf c.Interior.Color = 5287935 Then
                d(c.Row) = 3
            End If
        Next c
        For Each c In d.keys
            Cells(c, 1).Value = d(c)
        Next c
End Sub

Ca évitera de tester la seconde condition si la première est trouvée.