Fonction IsNumeric et For Each _In _Next

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:

---

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

Salut, voir les MFC http://silkyroad.developpez.com/Exce...onditionnelle/ http://excel.developpez.com/faq/?page=mefc

Bonjour,
une solution via vba et l'utilisation de isnumeric et de isempty, regarde dans l'aide à quoi correspond ces fonctions.

La macro si dessous vérifie dans chaque cellule de la plage sélectionnée si elle n'est pas vide et si son contenu est un chiffre, puis elle vérifie si le chiffre est impair :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub changer_couleur() Dim Cell As Range, num As Long   For Each Cell In Selection If Not IsEmpty(Cell) And IsNumeric(Cell) Then 'teste si la cellule n'est pas vide et si elle contient un nombre num = Cell.Value   If (num And 1) Then 'teste si la variable num est impair Cell.Interior.ColorIndex = 3 'cellule rouge Else Cell.Interior.ColorIndex = 6 'cellule jaune End If   End If   Next   End Sub

---

A toi d'adapter si il y a besoin.
Il doit y avoir mieux mais ça fonctionne.

Merci à tous pour vos réponses!!!

Sincères salutation