Microsoft 365 fonction =NO_COULEUR(D4) qui ne fonctionne pas chez moi

[Usine à gaz]

Bonjour à toutes et à tous

Chez moi, la fonction "=NO_COULEUR(D4)" ne fonctionne pas.
Malgré mes recherches, je ne comprends pas pkoi Grrrr !!!

Z'auriez une idée ?
Je joins un petit fichier test.

Merci à toutes et àt ous,
;à

 

[Dranreb]

Bonjour.
La formule renvoie 24704 une fois le classeur équipé de cette fonction perso dans un module :

Function NO_COULEUR(ByVal Rng As Range) As Long
   NO_COULEUR = Rng.Interior.Color
   End Function

 

[Usine à gaz]

Bonjour et merci Dranreb
Super,

 

[Dranreb]

Elle ne sera toutefois pas réévaluée si on change la couleur de fond de la cellule ni si celle ci résulte d'une mise en forme conditionnelle. Les caractéristiques de formats de cellules ne sont pas conceptuellement considérées comme des données inscrites dans le classeur, tout au plus des conséquences purement visuelles résultant de MeFC. Il vaut donc mieux ne pas baser de formules dessus. Il vaudrait mieux que la cellule contienne cette valeur 24704, non visible, mais qu'un dispositif approprié veille à ce que ce soit aussi la couleur de fond.

 

[Jacky67]

Bonjour.
La formule renvoie 24704 une fois le classeur équipé de cette fonction perso dans un module :

Function NO_COULEUR(ByVal Rng As Range) As Long
   NO_COULEUR = Rng.Interior.Color
   End Function

Bonjour à tous
Regarde aussi ici(non tester)

Redirecting

 

[Usine à gaz]

Bjr et merci Jacky67

 

[Usine à gaz]

Re-Bjr,

Je ne comprends pas, en partant de la fonction, j'ai fait ce code vba :

Sub Marron()
    With ActiveCell.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
    With ActiveCell.Interior
        .Color = Rng = 24704
    End With
    ActiveCell.Font.Bold = True
End Sub

Mais il me retourne du bleu foncé alors que je voudrais du marron 24704 LOL
J'ai du zapper un truc
Je remets le fichier avec le code.
Vous pouvez m'aider encore svp ?

 

[job75]

Bonjour Lionel, Bernard, Jacky67,

Bah = Rng est en trop :

Sub Marron()
    With ActiveCell.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
        .Bold = True
    End With
    ActiveCell.Interior.Color = 24704
End Sub

A+

 

[Usine à gaz]

Bonjour Gérard
Merci pour le retour.
Effectivement, c'est ça ...
Bon ! j'arrête le cognac le matin et je me remets au café au lait lol