Discussion :

[TomSawyer76]

Bonjour à tous / toutes
Voici mon projet..Dans mon fichier, vous pouvez voir que j'ai une formule qui me permet de trouver la couleur de fond d'une cellule. La formule fonctionne correctement a condition que le parametre qui désigne la cellule soit inscrit en dur.
Exemple : =Couleur(Feuil2!B10) ) marche car B10 est écrit en dur..

Dans mon projet pour trouver B10, j'utilise une formule "B" &EQUIV(Valeur à trouver;Feuil2!$A$2:$A$5;0)+1
J'obtiens donc je pense une chaîne de caractère..Si j'ai bien compris la formule =Couleur(Feuil2!B10) , la valeur B10 est un "Range"
Pour que ma formule fonctionne , il faudrait donc transformer ma chaine de caractère en Range..Du moins ,je crois..

Est ce qu'il est possible de transformer le résultat de ma formule ("B" &EQUIV.........) en un range ?

Je met en pièce jointe mon projet....
Merci d'avance à tous ceux / celles qui pourront m'aider..
Cordialement

[Serendipity]

Bonjour,

je n'ai pas vraiment regardé ton fichier, en revanche j'utilise cette fonction dans un de mes fichiers pour compter le nombre de cellule dans un range, peut être ça peut t'aider si tu l'adaptes.

Code :

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

1
2
3
4
5
6
7
8
9
10
Function CountCcolor(range_data As Range, criteria As Range) As Long
    Dim datax As Range
    Dim xcolor As Long
xcolor = criteria.Interior.ColorIndex
For Each datax In range_data
    If datax.Interior.ColorIndex = xcolor Then
        CountCcolor = CountCcolor + 1
    End If
Next datax
End Function

Source :

https://support.microsoft.com/en-us/...r-by-using-vba

[jlg91]

Bonjour,

Il y a la formule à modifier et une simple macro VBA.
Formule:

Code :

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

=Couleur(INDIRECT("Feuil2!B"&TEXTE(EQUIV(Valeur_à_trouver;Feuil2!$A$2:$A$5;0)+1;0)))

VBA:

Code :

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

1
2
3
Function Couleur(Cellule As Range)
    Couleur = Cellule.Interior.ColorIndex
End Function

Je joins le fichier en version xlsm: Récuper la ligne et colonne.xlsm

Cordialement

[Algoplus]

Bonjour à tous,

une autre solution pour récupérer l'adresse de B5 ( et autres cellules !) est d'utiliser la fonction Adresse.

Code :

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

=Couleur(ADRESSE(EQUIV(A2;Feuil2!$A$2:$A$5;0)+1;2;;;"Feuil2"))

pour la ligne2 de la feuille 1.

Je ne connais pas la fonction Couleur qui n'existe pas en natif avec ma vieille version Excel.

[TomSawyer76]

Bonjour à tous / Toutes
Merciiiiiiiiiii beaucoup pour votre aide...J'ai utilisé vos formules et ça marche exactement comme je le souhaitais..

J'ai encore une petite question pour vous..
Dans mon projet, j'utilise le bout de code suivant pour récupérer la couleur de fond d'une cellule

Code :

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

1
2
3
4
Function Couleur(CL As Range) As Long
Application.Volatile
Couleur = CL.Interior.ColorIndex
End Function

Ce que je souhaite faire maintenant, c'est pouvoir modifier le fond de couleur d'une cellule, ça donnerait un truc comme ça

Code :

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

1
2
3
4
Function CouleurDeFond (CL As Range) As Long
Application.Volatile
CouleurDeFond = CL.Interior.ColorIndex
End Function

Est-ce que cela est possible ?
Merci d'avance pour votre aide.
Cordialement

[Philippe Tulliez]

Bonjour,
Une fonction personnalisée d'excel peut renvoyer une information mais ne peut modifier la propriété des objets.
La seule possibilité est d'utiliser une procédure VBA Sub ou Function que l'on active par exemple avec un bouton.

Petite remarque : Il est préférable d'utiliser la propriété Color avec son code RGB que la propriété Index et son numéro. La palette de couleur peut varier d'un PC et d'une version alors que le code RGB est le même

A lire sur le sujet Les couleurs en VBA Excel: Les équivalences Hex-Long-RGB

[TomSawyer76]

Bonjour Philippe,
Merci d'avoir pris le temps d'étudier mon problème..
J'ai lu le lien que tu m'as fourni, malheureusement mon niveau de programmation ne me permet pas de tout comprendre..
Aurais tu la possibilité de me proposer un bout de code qui réalise cette fonction, stp ?

Ce que je souhaite faire, c'est :
*Dans une cellule X de mon ma feuil1, si la cellule X de la feuil2 est de couleur blanche avec le texte N.A alors le fond de couleur de ma cellule X de la feuil1 sera de la couleur que je veux choisir...Je sais pas si j'ai été très clair

En tout cas merci pour ton aide.

[Philippe Tulliez]

Bonjour,

mon niveau de programmation ne me permet pas de tout comprendre..
Aurais tu la possibilité de me proposer un bout de code qui réalise cette fonction, stp ?

Si tu as pu écrire la fonction utilisant la propriété ColorIndex et bien c'est la même chose sauf qu'on utilise la propriété Color à laquelle on passe comme valeur un nombre qui équivaut à son code RGB
Ainsi si tu veux colorer la cellule A2 en jaune, tu écriras

Code :

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

Range("A4").Interior.Color = 16777215

ou

Code :

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

Range("A4").Interior.Color = vbYellow

où vbYellow est l'une des huit constantes de couleur de vba qui sont (vbBlack, vbRed, vbGreen, vbYellow, vbBlue, vbMagenta, vbCyan, vbWhite)

On peut aussi modifier la propriété Color de la cellule B4 par celle de A4 comme ceci

Code :

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

Range("B4").Interior.Color = Range("A4").Interior.Color

et si tu veux afficher le code RGB de la cellule A4

Code :

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

 MsgBox "Code RGB de la cellule A4 = " & Range("A4").Interior.Color

[TomSawyer76]

Bonjour Philippe,
Merci pour les exemples..
Peux tu me dire pourquoi ça marche pas avec ma formule, stp ?

Pour trouver la couleur d'une cellule, j'utilise le code ci-dessous

Code :

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

1
2
3
4
Function Couleur(CL As Range) As Long
Application.Volatile
Couleur = CL.Interior.ColorIndex
End Function

Dans une cellule de la feuil, si j'écris =Couleur(Feuil1;B3), j'obtiens la valeur de la couleur de fond de la case B3

J'ai donc utilisé le code que tu m'as donné de cette facon :

Code :

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

1
2
3
4
Function CouleurFond(CL As Range) As Long
Application.Volatile
CouleurFond = CL.Interior.Color
End Function

Si j'écris dans une cellule de la feuil = CouleurFond (16777215) , la cellule devient pas jaune.
as tu une idée d'ou vient mon problème, stp ?
Merci d'avance pour ton aide.
cordialement

[Philippe Tulliez]

Bonjour,

Si j'écris dans une cellule de la feuil = CouleurFond (16777215) , la cellule devient pas jaune.
as tu une idée d'ou vient mon problème, stp ?

Il n'y a pas de problème, il y a juste une impossibilité.
Comme, je te l'ai écrit dans le fil #6

Une fonction personnalisée d'excel peut renvoyer une information mais ne peut modifier la propriété des objets.
La seule possibilité est d'utiliser une procédure VBA Sub ou Function que l'on active par exemple avec un bouton.