renvoyer valeur de la cellule si couleur trouvée

[CMoa]

Bonjour le Forum
Est-il possible de renvoyer la valeur de la cellule A:A en B:B si couleur trouvée en A et si pas de couleur renvoyer en C:C
J'ai regardé les archives et je n'ai rien trouvé à adapter à mon cas.
Merci à tous et bonne journée.

 

[skoobi]

Re : renvoyer valeur de la cellule si couleur trouvée

Bonjour,

essaye ceci:

If Range("A1").Interior.ColorIndex = 2 Then
Range("C1").Value=Range("A1").Value
else: Range("B1").Value=Range("A1").Value
End If

 

[CMoa]

Re : renvoyer valeur de la cellule si couleur trouvée

Bonjour skoobi
Merci pour ta réponse mais elle ne fonctionne que pour la cellule A1.
Peut-on l'étendre à une colonne entière?
@+

 

[CMoa]

Re : renvoyer valeur de la cellule si couleur trouvée

re
j'ai réussi à l'étendre aux colonnes mais ça me copie uniquement les valeurs quel que soit la couleur ou vide.
@+

 

[skoobi]

Re : renvoyer valeur de la cellule si couleur trouvée

Re,

voici:

For lig = 1 To Range("A65536").End(xlUp).Row
    If Range("A" & lig).Interior.ColorIndex = 2 Then
        Range("C" & lig).Value = Range("A" & lig).Value
        Else: Range("C" & lig).Value = Range("A" & lig).Value
    End If
Next

 

[CMoa]

Re : renvoyer valeur de la cellule si couleur trouvée

Re
j'avais réussi à faire celà avec:

Private Sub afficher()
If Columns("L:L").Interior.ColorIndex = 1 Then
Columns("N:N").Value = Columns("L:L").Value
Else: Columns("M:M").Value = Columns("L:L").Value
End If
End Sub

Mais j'obtiens le résultat en colonne N quel que soit la couleur.

If Range("A" & lig).Interior.ColorIndex = 2 Then

Quel est la couleur utilisée ici?
Merci @+

 

[skoobi]

Re : renvoyer valeur de la cellule si couleur trouvée

Le code 2 correspond au blanc.

 

[CMoa]

Re : renvoyer valeur de la cellule si couleur trouvée

Re
décidément ça ne marche pas même si je modifie la couleur avec "<> 2"
@+

 

[CMoa]

Re : renvoyer valeur de la cellule si couleur trouvée

Re
je pense avoir trouvé une solution avec couleur = 3
Là effectivement la valeur de A avec couleur rouge s'inscrit en C
A confirmer et @+

 

[skoobi]

Re : renvoyer valeur de la cellule si couleur trouvée

Sache que par défaut les cellules ont comme couleur de fond "-4142" (aucun remplissage) donc....

 

[CMoa]

Re : renvoyer valeur de la cellule si couleur trouvée

Re skoobi
Merci pour ton aide et toutes les précisions apportées.La couleur rouge n'est pas reconnue par "Columns("L:L")." mais ta macro fonctionne et je t'en remercie.
Chouette avatar (tu l'as changé non?)
Merci et @+

 

[skoobi]

Re : renvoyer valeur de la cellule si couleur trouvée

Chouette avatar (tu l'as changé non?)

oui bien vue

trouvé Ce lien n'existe plus

 

[CMoa]

Re : renvoyer valeur de la cellule si couleur trouvée

Re
Peut-on faire la même chose avec formule?

For lig = 1 To Range("A65536").End(xlUp).Row
    If Range("A" & lig).Interior.ColorIndex = 2 Then
        Range("C" & lig).Value = Range("A" & lig).Value
        Else: Range("C" & lig).Value = Range("A" & lig).Value
    End If
Next

Merci @+

 

[Staple1600]

Re : renvoyer valeur de la cellule si couleur trouvée

Bonsoir


A tester (si j'ai bien compris la question)

For lig = 1 To Range("A65536").End(xlUp).Row
If Range("A" & lig).HasFormula Then
Range("C" & lig).Value = Range("A" & lig).Value
Else: Range("C" & lig).Value = Range("A" & lig).Value
End If
Next

 

[CMoa]

Re : renvoyer valeur de la cellule si couleur trouvée

Bonsoir Staple1600;skoobi;le fil
Je pense que je me suis encore mal exprimé d'où l'importance de l'exposé du problème.
En fait je cherche une formule qui renverrait une valeur si la couleur de la cellule est rouge par exemple .
Merci et @+