[XL-2003] Coloriser une cellule sous condition [Résolu]

[cynoq]

Bonjour,
Je cherche à coloriser une cellule contenant une formule, en fonction du résultat donné par cette formule.
Mon code actuel est le suivant :

Code :

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Change(ByVal Target As Range)
Dim plage As Range, cell As Range
Dim wsbd As Worksheet
Set wsbd = Sheets("Synthèse")
Set plage = wsbd.Range("F4:O" & wsbd.Range("O65536").End(xlUp).Row)
For Each cell In plage
If cell.Value = 1 Then cell.Interior.ColorIndex = 3
If cell.Value = 2 Then cell.Interior.ColorIndex = 45
Next cell
 
End Sub

Ma plage de cellules concernées est située de F4 à O... Je ne connais pas le nombre de lignes à l'avance.
Avec ce code, rien ne se passe.
Quelqu'un pourrait-il m'aider ?
Merci par avance.

Le message d'erreur apparaît à la ligne 7 du code avec pour message d'erreur :

"Incompatibilité de type" n°13

[Gestionnaire_rh]

Bonsoir,

ça ne plante chez moi, mais avec ton code tu ne peut pas colorié juste une cellule mais toute la ligne (F4:O4),essaye de modifié ceci:

Code :

1
2
3
4
Dim Derlig As Long
Derlig = Range("O65536").End(xlUp).Row
Set wsbd = Sheets("Synthèse")
Set plage = wsbd.Range("F4:O" & Derlig)

Cordialement

[Qwazerty]

Salut

Quelle version d'Excel utilises tu?

Car dans ton cas, il me semble que le VBa n'est pas réellement utile. La mise en place de MFC (Mise en Forme Conditionnelle) seraient suffisante.

Dans le cas d'une version Excel supérieur à 2003, la mise en place de MFC serait additionnée d'un tableau qui s'adapte automatiquement lors de rajout de données.

Quand bien même tu utiliserais une version inférieur à 2007, montre nous le code que tu utilises pour ajouter les données et si les donnée sont ajouté à la main, il te suffit soit d’insérer une ligne en bas de tableau afin d'étendre automatiquement les propriétés du tableau (MFC comprises) à ta nouvelle ligne. Soit manuellement d'étendre ton tableau avant de rajouter une ligne de donnée.

++
Qwaz

[cynoq]

Merci,
Le code était bon, je l'ai testé dans un classeur vierge et tout passe.
Je l'ai réinsérer dans mon classeur d'origine et c'est OK.
Merci pour vos réponses.