=Si cellule de couleur

[Rick@]

Bonjour,

J'ai besoin d'une fonction qui semble bien simple mais je ne trouve pas, je veux éviter si possible le code...

Donner valeur d'une cellule si celle-ci est en couleur.
Fichier joint.

Merci à l'avance!

 

[DoubleZero]

Re : =Si cellule de couleur

Bonjour, Rick@, le Forum,

Peut-être ainsi :

Sub Valeurs_colorées_copier()
Application.ScreenUpdating = False
For i = 6 To Range("b65536").End(xlUp).Row
    If Range("B" & i).Interior.ColorIndex <> xlNone Then Range("b" & i).Offset(0, 1).Value = Range("b" & i).Value
Next
Application.ScreenUpdating = True
End Sub

A bientôt 🙂.

 

[Rick@]

Re : =Si cellule de couleur

Merci pour le retour DoubleZero,

Mais il me faudrait une formule et non du code VBA si cela ce peut évidemment!

 

[DoubleZero]

Re : =Si cellule de couleur

Re-bonjour,

... il me faudrait une formule et non du code VBA...

Je ne sais comment procéder 😕 !

Bon courage et à bientôt 🙂.

 

[R@chid]

Re : =Si cellule de couleur

Bonjour Rick@,
Un grand salut @ la ravissante 00, j'ai l'honneur de te croiser sur ce fil...
voir PJ, @ l'aide d'une Macro XL4 et Colonne Intermédiaire...
Amicalement

 

[Rick@]

Re : =Si cellule de couleur

Bonjour Rick@,
Un grand salut @ la ravissante 00, j'ai l'honneur de te croiser sur ce fil...
voir PJ, @ l'aide d'une Macro XL4 et Colonne Intermédiaire...
Amicalement

Gros merci R@chid! Cela fera l'affaire, très fort!!!

Au plaisir à la ravissante 00 et à toi!