=Si cellule de couleur

Rick@

XLDnaute Occasionnel
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!
 

Pièces jointes

  • Valeur si couleur..xls
    19.5 KB · Affichages: 32
  • Valeur si couleur..xls
    19.5 KB · Affichages: 36
  • Valeur si couleur..xls
    19.5 KB · Affichages: 35

DoubleZero

XLDnaute Barbatruc
Re : =Si cellule de couleur

Bonjour, Rick@, le Forum,

Peut-être ainsi :

Code:
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 :).
 

R@chid

XLDnaute Barbatruc
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
 

Pièces jointes

  • Valeur si couleur..xls
    32.5 KB · Affichages: 32
  • Valeur si couleur..xls
    32.5 KB · Affichages: 35
  • Valeur si couleur..xls
    32.5 KB · Affichages: 33

Discussions similaires

Réponses
2
Affichages
612

Statistiques des forums

Discussions
311 733
Messages
2 082 008
Membres
101 864
dernier inscrit
elrecruiter