Appliquer un format d'une cellule suivant valeur...

[olibelle0101]

Bonjour,
Quand je rempli une cellule d'une couleur jaune, ma formule fonctionne...
=Couleurs(Saisie!D3😀5000;6)
J'en ai 3 sur une colonne ...

Mais si je met les cellule en MFC, avec la même couleur (soit le jaune standard)
ma formule ne marche plus...😕
Elle donne 0...
Quelqu'un à une idée ???
Merci beaucoup.

 

[Pierrot93]

Re : Quel code couleur à la MFC...

Bonjour,

connais pas ta fonction "couleurs"... sans doute une fonction personnalisée.... pour récupérer la couleur d'une MFC, il faut effectuer les mêmes tests / contrôles que cette dernière dans ton code....

bonne journée
@+

 

[olibelle0101]

Re : Quel code couleur à la MFC...

merci,
je ne comprend pas trop comment effectuer (les mêmes tests / contrôles que cette dernière dans ton code....)
J'ai bien choisi perso , mais j'ai pris le jaune standard...
Je cherche...

 

[Pierrot93]

Re : Quel code couleur à la MFC...

Re,

je ne comprend pas trop comment effectuer (les mêmes tests / contrôles que cette dernière dans ton code....)

elle sors d'où ta fonction "couleurs" ??? c'est son code qu'il faut modifier.....

 

[Compte Supprimé 979]

Re : Quel code couleur à la MFC...

Bonjour le fil

Olibelle, une simple recherche sur internet avec l'ami Google et tu trouves plein de choses, dont
https://www.excel-downloads.com/threads/detection-couleur-mfc.99000/

A+

 

[olibelle0101]

Re : Quel code couleur à la MFC...

Bon,
Je travaille avec plusieurs couleur,

Les code sont dans 4 modules.
Les voila:

Module1

Option Explicit

Function EcartJaune(MaPlage As Range)
Dim Cel As Range, Compteur As Long
' Permettre à la fonction de s'éxécuter à tout moment
Application.Volatile
' Initialiser le compteur
Compteur = 0
If MaPlage.Columns.Count > 1 Then
EcartJaune = "#Erreur : Une Seule colonne possible"
Exit Function
End If
' Pour chaque cellule de la colonne
For Each Cel In MaPlage
If Not Cel.EntireRow.Hidden Then
If Cel.Interior.ColorIndex = 6 Then
Compteur = 0
Else
If Cel.Value <> "" Then Compteur = Compteur + 1
End If
End If
Next Cel
EcartJaune = Compteur
End Function

Module 2

Option Explicit

Function EcartVert(MaPlage As Range)
Dim Cel As Range, Compteur As Long
' Permettre à la fonction de s'éxécuter à tout moment
Application.Volatile
' Initialiser le compteur
Compteur = 0
If MaPlage.Columns.Count > 1 Then
EcartVert = "#Erreur : Une Seule colonne possible"
Exit Function
End If
' Pour chaque cellule de la colonne
For Each Cel In MaPlage
If Not Cel.EntireRow.Hidden Then
If Cel.Interior.ColorIndex = 4 Then
Compteur = 0
Else
If Cel.Value <> "" Then Compteur = Compteur + 1
End If
End If
Next Cel
EcartVert = Compteur
End Function

Module3

Function EcartBleu(MaPlage As Range)
Dim Cel As Range, Compteur As Long
' Permettre à la fonction de s'éxécuter à tout moment
Application.Volatile
' Initialiser le compteur
Compteur = 0
If MaPlage.Columns.Count > 1 Then
EcartBleu = "#Erreur : Une Seule colonne possible"
Exit Function
End If
' Pour chaque cellule de la colonne
For Each Cel In MaPlage
If Not Cel.EntireRow.Hidden Then
If Cel.Interior.ColorIndex = 33 Then
Compteur = 0
Else
If Cel.Value <> "" Then Compteur = Compteur + 1
End If
End If
Next Cel
EcartBleu = Compteur
End Function

Module4

Option Explicit
'Ti

'noir = 1
'marron = 53
'vert olive = 52
'vert foncé = 51
'bleu-vert foncé = 49
'bleu foncé = 11
'indigo = 55
'gris 80% = 56

'rouge foncé = 9
'orange = 46
'marron clair = 12
'vert = 10
'bleu-vert = 14
'bleu = 5
'bleu-gris 47
'gris-50% = 16

'rouge = 3
'orange clair = 45
'citron vert = 43
'vert marin = 50
'vert d'eau = 42
'bleu clair = 41
'violet = 13
'gris-40% = 48

'rose = 7
'jaune d'or = 44
'jaune = 6
'vert brillant = 4
'turquoise = 8
'bleu ciel = 33
'prune = 54
'gris-25% = 15

'rose saumon = 38
'brun = 40
'jaune clair = 36
'vert clair = 35
'turquoise clair = 34
'bleu moyen = 37
'lavande = 39
'blanc = 2

'aucune couleur = -4142

Function Couleurs(plage As Range, IndexCouleur As Integer) As Long
Application.Volatile
Dim Cel As Range
For Each Cel In plage
If Not Cel.EntireRow.Hidden Then
If Cel.Interior.ColorIndex = IndexCouleur Then Couleurs = Couleurs + 1
End If
Next Cel
End Function

 

[Misange]

Re : Quel code couleur à la MFC...

Bonjour, coucou Pierrot et Bruno 🙂
La mise en forme conditionnelle met des couleurs qui en apparence sont identiques à celles que tu appliques manuellement (ou par VBA) avec la palette de couleur. Mais les codes de ces couleurs de MEFC sont différents et ne sont pas utilisables en VBA.

Tes explications ne sont pas claires : que veux tu faire avec ta mefc ? Quelle formule appliques tu ? Pourquoi veux tu mélanger une couleur appliquée par VBA et une mefc. Qui doit l'emporter ?

 

[olibelle0101]

Re : Quel code couleur à la MFC...

J'essaie de comprendre,

Je joint un fichier de ce que je voudrai...
J'ai supprimer la MFC

Exemple en AC3 et AD3 (j'ai 1 ou 2 valeurs) 14 et 7...
Dans la ligne D3:AA3 (qu'il me met en jaune (code6) quand il trouve ces valeurs...

Ainsi de suite pour chaque ligne et chaque couleur (3 au total)

Que je puisse appliquer un filtre et me donne le résultat en feuille Ecart...

Merci pour votre aide...

 

[olibelle0101]

Re : Quel code couleur à la MFC...

AC3 ou AD3 il me met en jaune (code6) si valeur trouvée en D3:AA3

AE3 ou AF3 il me met en vert (code4) si valeur trouvée en D3:AA3

AEG ou AH3 il me met en bleu (code33) si valeur trouvée en D3:AA3