licwimi
XLDnaute Nouveau
Bonjour à tous,
Selon mes paramètres, mes cellules ont un fond vert, orange, ou rouge.
J'aimerais mettre en début de ligne une cellule verte, orange ou rouge en fonction des couleurs de fond des cellules de cette ligne.
Si il y a au moins une case rouge dans la ligne, mettre la cellule de début en rouge
sinon si il y a au moins une case orange dans la ligne, mettre la cellule de début en orange
sinon si il y a au moins une case vert dans la ligne, mettre la cellule de début en vert
sinon mettre la cellule de début en blanc
Voici mon ébauche de code qui ne marche pas...
PS: mes cellcouleurs sont initialisées en Integer, i est la ligne en cours
Selon mes paramètres, mes cellules ont un fond vert, orange, ou rouge.
J'aimerais mettre en début de ligne une cellule verte, orange ou rouge en fonction des couleurs de fond des cellules de cette ligne.
Si il y a au moins une case rouge dans la ligne, mettre la cellule de début en rouge
sinon si il y a au moins une case orange dans la ligne, mettre la cellule de début en orange
sinon si il y a au moins une case vert dans la ligne, mettre la cellule de début en vert
sinon mettre la cellule de début en blanc
Voici mon ébauche de code qui ne marche pas...
Code:
cellvert = 0
cellorange = 0
cellrouge = 0
For j = 2 To 100
If Cells(i, j).Interior.ColorIndex = vert Then
cellvert = cellvert + 1
Else
If Cells(i, j).Interior.ColorIndex = orange Then
cellorange = cellorange + 1
Else
If Cells(i, j).Interior.ColorIndex = rouge Then
cellrouge = cellrouge + 1
End If
End If
End If
Next j
If cellrouge > 1 Then
Cells(i, 1).Interior.ColorIndex = 3
Else
If cellorange > 1 Then
Cells(i, 1).Interior.ColorIndex = 46
Else
If cellvert > 1 Then
Cells(i, 1).Interior.ColorIndex = 10
Else
Cells(i, 1).Interior.ColorIndex = blanc
End If
End If
End If