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
Je vous remercie par avance pour votre aide
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
Respectueusement
Souad
Partager