Bonsoir à tous!
Je me permets de vous proposer un petit problème que j'ai du mal à résoudre:
'Écrire une macro « changer_couleur » qui change de couleur les cellules sélectionnées (For Each In Next). Dans le cas où le contenu des cellules est une valeur numérique, Si le nombre est pair il doit être affiché en bleu, s'il est impair en rouge. Dans les autres cas, la macro ne fait rien.

Voila ce que j'ai pu faire
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub changer_couleur()
Dim Cell As Range
Dim Nun, i
For Each Cell In Range("A1:E10") 'normalement je ne dois pas définir les cellules mais pour l'instant je ne sais pas faire autrement.
i = i + 1
If Num = IsNumeric(Cell) Then 'je n'ai pas tenu compte du nombre pair ou imparire
Cell.Interior.ColorIndex = 3
End If
Next
 
End Sub
Je vous remercie par avance pour votre aide
Respectueusement

Souad