Formule Excel permettant de reconnaitre la couleur d´une cellule

Question

Salut &#224; tous

voila mon probleme, j&#180;ai un tableau avec des donn&#233;es, et dans la colonne 10,il y a une seule cellule color&#233;e en jaune entre la ligne 1 et 9 (je ne sais bien entendu pas d&#180;avance de quelle cellule il s&#180;agit), je voudrais multiplier le contenu de cette cellule avec la cellule de la colonne 10 ligne 10. comment faire ?
merci d&#180;avance
Ludo

jrivet · Answer

Salut,

Connais tu le code couleur du jaune (ou est ce que ca peut etre n'importe quel jaune)
Sinon  si les autres cellules n'ont pas de couleur de remplissage

Essaie:

Dim i As Integer
For i = 1 To 9
    If Cells(i, 10).Interior.ColorIndex <> xlNone Then
        Cells(i, 10).Value = Cells(i, 10).Value + Cells(10, 10).Value
    End If
Next

Voila

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

ludo_wob · Answer

Merci beaucoup pour ton aide ?
quelqu&#180;un connait il les codes couleurs des cellules ?

d&#180;autres part n&#180;est pas possible avec une Formule ?
Ludo

jrivet · Answer

SAlut,

Pour connaitre l'index de couleur tu peux utiliser l'"enregistreur de macro" d'Excel.

Menu Outils => Macros => Nouvelle Macro.

Ensuite Excel enregistre dans un module, a peu pr&#232;s tout ce que tu fais pendant l'enregistrement (Tr&#232;s utile lorsque tu ne sais pas exactement comment faire qqchose)

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

ludo_wob · Answer

merci beaucoup pour le conseil

encore une fois je souhaiterais plutot cr&#233;er une fonction qui me permette de realiser mon operation
comment faire 

Function Farbig(CL As Range) As Long
Dim i As Integer
For i = 1 To 9
    If Cells(i, CL).Interior.ColorIndex = 6 Then
        Cells(i, CL).Value = Cells(i, CL).Value + Cells(10, CL).Value
    End If
Next


End Function

Ca e fontionne pas car Range me permet de selectionner qu&#180;une cellule or je voudrais recuperer le numero de colonne

jrivet · Answer

Salut,

Essaie un truc du genre:

Function Farbig(CL As Range) As Long If CL.Interior.ColorIndex 6 Then CL.Value CL.Value + Cells(10, 10).Value
End Function

Notes simplement que ta boucle doit &#234;tre effectu&#233;e en dehors de l'appel de fonction:

For i = 1 to 9
   Call FarBig(Range("J" & i))
next

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

Formule Excel permettant de reconnaitre la couleur d´une cellule

5 réponses

Discussions similaires