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

Dranreb

XLDnaute Barbatruc

• 20 Février 2023

• #2

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

 

Vote positif 0 Vote négatif

Solution

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 20 Février 2023

• #3

Bonjour et merci Dranreb
Super,

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 20 Février 2023

• #4

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: 20 Février 2023

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 20 Février 2023

• #5

Dranreb à dit:

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

Cliquez pour agrandir...

Bonjour à tous
Regarde aussi ici(non tester)

Redirecting

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 20 Février 2023

• #6

Bjr et merci Jacky67

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 20 Février 2023

• #7

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: 3

Dernière édition: 20 Février 2023

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 20 Février 2023

• #8

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+

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 20 Février 2023

• #9

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

 

Vote positif 0 Vote négatif