Fonction qui marchait sous Excel 2003 et plus sous Windows7

Bonjour

J'avais créé cette fonction sous Excel 2003 et Windows XP
et sous Excel 2007 et Windows 7, j'obtiens un message d'erreur :
Pourquoi ?

par exemple CouleurFond("A1:E5",20) coloriait auparavant la zone A1:E5 de la feuille active

et Erreur de compilation : Incompatibilité de type

Code:

---

1 2 3 4 5 6 7

Function CouleurFond(Plage As Range, NumeroDeCouleur%) Application.Volatile True Dim wCell As Range For Each wCell In Plage Range(wCell).Interior.ColorIndex = NumeroDeCouleur% Next End Function

---

Sauriez-vous me dire ce qui gêne Excel 2007 ?
Merci à vous
Cordialement:cry:

Cette fonction est censée faire quoi?
C'est plutôt une Sub qu'il te faut codée comme ceci

Code:

---

1 2 3 4 5 6 7

Sub CouleurFond(ByVal Plage As Range, ByVal NumeroDeCouleur As Byte) Dim wCell As Range   For Each wCell In Plage wCell.Interior.ColorIndex = NumeroDeCouleur Next End Sub

---

Edit

Ou simplement

Code:

---

1 2 3 4

Sub CouleurFond(ByVal Plage As Range, ByVal NumeroDeCouleur As Byte)   Plage.Interior.ColorIndex = NumeroDeCouleur End Sub

---

Merci pour la réponse
Mais en sub ou en function, le message est le même :
incompatibilité de type

Bonjour,

Ce qui gêne, c'est que tu passes une String là où un Range est attendu.