reperage de la couleur d'une cellule

philmaure · 25 Mars 2016

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 · 25 Mars 2016

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 · 25 Mars 2016

Re : reperage de la couleur d'une cellule

Bonjour philmaure.

Code:

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 · 25 Mars 2016

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 · 25 Mars 2016

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 · 25 Mars 2016

Re : reperage de la couleur d'une cellule

A cet endroit :

Code:

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

Le 1 de

Code:

 Cells(c,1)

est le numéro de la colonne.

philmaure · 25 Mars 2016

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 · 25 Mars 2016

Re : reperage de la couleur d'une cellule

Bien sûr :

Code:

        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 · 25 Mars 2016

Re : reperage de la couleur d'une cellule

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

thebenoit59 · 25 Mars 2016

Re : reperage de la couleur d'une cellule

Remplace plutôt ainsi :

Code:

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.

reperage de la couleur d'une cellule

philmaure

XLDnaute Impliqué

Pièces jointes

philmaure

XLDnaute Impliqué

thebenoit59

XLDnaute Accro

philmaure

XLDnaute Impliqué

philmaure

XLDnaute Impliqué

thebenoit59

XLDnaute Accro

philmaure

XLDnaute Impliqué

thebenoit59

XLDnaute Accro

philmaure

XLDnaute Impliqué

thebenoit59

XLDnaute Accro

Discussions similaires