Discussion :

[LentilleLocale]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[LentilleLocale]

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

[AlainTech]

Bonjour,

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