Bonjour a tous ,
voila j'ai un petit probleme , je voudrait faire une formule "si la cellule c8 (par exemple)est rouge alors la copier et la coller sur une autre feuille sinon fin " en sachant que le fond de la cellule et faite par une mise en forme conditionnel.
voila ce que j'ai fait :
Dim cellule As Range
For Each cellule In Range("S7:S12")
If cellule.Font.ColorIndex = 3 Then
MsgBox "gagner"
Else
MsgBox "perdu"
End If
Next cellule
(pour le message box c'etait pour voir si ma formule marcher)
merci d'avance pour vos reponse
voila j'ai un petit probleme , je voudrait faire une formule "si la cellule c8 (par exemple)est rouge alors la copier et la coller sur une autre feuille sinon fin " en sachant que le fond de la cellule et faite par une mise en forme conditionnel.
voila ce que j'ai fait :
Dim cellule As Range
For Each cellule In Range("S7:S12")
If cellule.Font.ColorIndex = 3 Then
MsgBox "gagner"
Else
MsgBox "perdu"
End If
Next cellule
(pour le message box c'etait pour voir si ma formule marcher)
merci d'avance pour vos reponse