Salut du coup je fais l'exercice 2 qui est 1.
Ajustez la dimension des cellules 9×9 carrées.
2. Colorez les deux diagonales des cellules 9×9 avec une couleur en utilisant deux boucles « for … next » et le jugement « if then … end if ».
3. Colorez un quart quelconque des cellules 9×9 non diagonales avec une autre couleur en utilisant deux boucles « for … next » et le jugement « if then … end if ».
4. Copiez votre écran qui contient le bouton et les cellules colorées dans un fichier word.
j'ai commencé par ça:
Sub exercice_boucles()
Const NB_CASES As Integer = 18 'Nombre de cellules à colorer
For l = 1 To NB_CASES 'l => n° ligne
If l Mod 2 = 0 Then
Cells("A1,B2,C3,D4,E5,F6,G7,H8,I9").Interior.Color = RGB(200, 0, 0) 'Rouge
Else
Cells("A2,A3,A4,A5,A6,A7,A8,A9").Interior.Color = RGB(255, 255, 255) 'Blanc
Cells("B1,B3,B4,B5,B6,B7,B8,B9").Interior.Color = RGB(255, 255, 255) 'Blanc
Cells("C1,C2,C4,C5,C6,C7,C8,C9").Interior.Color = RGB(255, 255, 255) 'Blanc
Cells("D1,D2,D3,D5,D6,D7,D8,D9").Interior.Color = RGB(255, 255, 255) 'Blanc
Cells("E1,E2,E3,E4,E6,E7,E8,E9").Interior.Color = RGB(255, 255, 255) 'Blanc
Cells("F1,F2,F3,F4,F5,F7,F8,F9").Interior.Color = RGB(255, 255, 255) 'Blanc
Cells("G1,G2,G3,G4,G5,G6,G8,G9").Interior.Color = RGB(255, 255, 255) 'Blanc
Cells("H1,H2,H3,H4,H5,H6,H7,H9").Interior.Color = RGB(255, 255, 255) 'Blanc
Cells("I1,I2,I3,I4,I5,I6,I7,I8").Interior.Color = RGB(255, 255, 255) 'Blanc
End If
Next
End Sub
Comment je peux lui dire telle cellule je la veux en cette couleurs et telle cellule en une autre couleurs ainsi de suite ?
Merci