[XL-2007] Fonction IsNumeric et For Each _In _Next [Résolu]

[souad12]

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

[kiki29]

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

[rvtoulon]

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.

[souad12]

Merci à tous pour vos réponses!!!

Sincères salutation