Bonsoir,
Je m'essaie a la création d'une boucle mais je n'y arrive pas.
Ce que je souhaite faire, si la cellule b2 est en fond rouge et si elle n'est pas vide alors la cellule b1 est en fond gris
ou si la cellule c2 est en fond rouge et si elle n'est pas vide alors la cellule b1 est en fond gris
ou si la cellule d2 est en fond rouge et si elle n'est pas vide alors la cellule b1 est en fond gris
ainsi de suite de suite jusqu'à k2
Et je souhaite appliquer cette formule jusqu'à la ligne 100.
Pour vous donner une idée de mon piètre niveau, voici ce que j'ai essayer et ce qui à échouer.
Je m'essaie a la création d'une boucle mais je n'y arrive pas.
Ce que je souhaite faire, si la cellule b2 est en fond rouge et si elle n'est pas vide alors la cellule b1 est en fond gris
ou si la cellule c2 est en fond rouge et si elle n'est pas vide alors la cellule b1 est en fond gris
ou si la cellule d2 est en fond rouge et si elle n'est pas vide alors la cellule b1 est en fond gris
ainsi de suite de suite jusqu'à k2
Et je souhaite appliquer cette formule jusqu'à la ligne 100.
Pour vous donner une idée de mon piètre niveau, voici ce que j'ai essayer et ce qui à échouer.
Code:
For k = 2 To 100
if feuil2.Range(cells(2,k:11,k)).Interior.ColorIndex = 3 and feuil2.Range (2,k:11,k).value <>"" then cells(1,k).Interior.ColorIndex = 48
Else: Cells(1, k).Interior.ColorIndex = xlColorIndexNone
Next k
End If