If Cells(x, y).propriété1 valeur1 and cells(x,y).propriété2 valeur2 then
For x = 6 To 100 For y = 6 To 55 If cells(x,y).propriété2 = ...... then ' ou propriété 2 est par exemple ta couleur select case cells(x,y).value case 100 ' ton action case 0 'ton autre action case else ' ce que tu fais alors d'autre end select End If Next Next
Sub couleur3() For x = 6 To 100 For y = 6 To 55 If Cells(x, y).Interior.ColorIndex = 36 Then '...... then ' ou propriété 2 est par exemple ta couleur Select Case Cells(x, y).Value Case 100 Cells(x, y).Offset(-1, 0).Font.ColorIndex = 43 ' ton action Case 0 Cells(x, y).Offset(-1, 0).Font.ColorIndex = 3 'ton autre action Case Else Cells(x, y).Offset(-1, 0).Font.ColorIndex = 5 ' ce que tu fais alors d'autre End Select End If Next Next End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionmais ca ne colle toujours pas