Bonjour le fil, clemendo51
•>clemendo51
Quelqu'un a déjà posté la question
Il faut lire
attentivement les réponses qu'on te fait...
Relis mes messages, et tu trouveras le lien.
(au hasard, je dirais le message#10)
Salut Staple J'ai encore besoin de toi stp
1. Faites un damier d’échec en utilisant les cellules 8 8.
2. Dans les cellules diagonales blanches, mettez les chiffres 1, 2, 3, 4, 5, 6,7, 8 dans l’ordre en utilisant une boucle. Les chiffres sont en noir.
3. Dans les cellules diagonales noires, mettez les chiffres 1, 2, 3, 4, 5, 6,7, 8 dans l’ordre en utilisant une boucle. Les chiffres sont en rouge.
J'ai bien mes diagonales de chaque cotés ainsi que les chiffres et mes couleurs mais il me manque le texte en rouge sauf qu'il me mets une erreur d’exécution 438 propriété ou méthodes non générer par le projet et me souligne en jaune ce code Cells(i, j).front.Color = RGB(255, 0, 0) peux tu m'aider stp
Voici le code :
Sub Exercice_échec()
Const NB_CASES As Integer = 8 'Damier de 10x10 cellules
Dim lig As Integer, col As Integer ' => ajout de 2 variables
'Décalage (lignes) à partir de la première cellule = n° de ligne de la cellule active - 1
lig = ActiveCell.Row - 1
'Décalage (colonnes) à partir de la première cellule = n° de colonne de la cellule active - 1
col = ActiveCell.Column - 1
For l = 1 To NB_CASES 'N° ligne
For c = 1 To NB_CASES 'N° colonne
If (l + c) Mod 2 = 0 Then
'Cells(n° de ligne + décalage lignes, n° de colonne + décalage colonnes)...
Cells(l + lig, c + col).Interior.Color = RGB(255, 255, 255) 'Blanc
Else
Cells(l + lig, c + col).Interior.Color = RGB(0, 0, 0) 'Noir
End If
Next
Next
Dim i, j As Integer
For i = 1 To 8
For j = 1 To 8
If (i = j) Then
Cells(i, j) = i
End If
If i = NB_CASES - (j - 1) Then
Cells(i, j) = j
Cells(i, j).front.Color = RGB(255, 0, 0)
End If
Next
Next
End Sub