Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Usine à gaz

XLDnaute Barbatruc
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,
 

Pièces jointes

  • n°couleur test.xlsm
    9.6 KB · Affichages: 9
Dernière édition:

Dranreb

XLDnaute Barbatruc
Bonjour.
La formule renvoie 24704 une fois le classeur équipé de cette fonction perso dans un module :
VB:
Function NO_COULEUR(ByVal Rng As Range) As Long
   NO_COULEUR = Rng.Interior.Color
   End Function
 

Dranreb

XLDnaute Barbatruc
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.
 
Dernière édition:

Usine à gaz

XLDnaute Barbatruc
Re-Bjr,

Je ne comprends pas, en partant de la fonction, j'ai fait ce code vba :
VB:
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 ?
 

Pièces jointes

  • n°couleur test.xlsm
    19.8 KB · Affichages: 4
Dernière édition:

job75

XLDnaute Barbatruc
Bonjour Lionel, Bernard, Jacky67,

Bah = Rng est en trop :
VB:
Sub Marron()
    With ActiveCell.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
        .Bold = True
    End With
    ActiveCell.Interior.Color = 24704
End Sub
A+
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…