cellule avec contenu couleur

[bruno66]

bonjour, j'ai une formule pour récupérer un contenu d'une cellule dans un fichier...


=SI(E6=0;" ";RECHERCHE(E6;Nuancier!D😀;Nuancier!C:C))

j'aimerais savoir comment procéder pour récupérer la couleur personnalisé de cette cellule qui correspond a un la couleur de peinture..
si quelqu'un a une idée merci

pour des soucis de sécurité je ne peux pas mettre de fichier joint juste des imprim écran(logiciel de gestion stock en cours d'assemblage)

 

[R@chid]

Re : cellule avec contenu couleur

Bonjour,
J'ai pas compris pourquoi tu as imprime l’écran et tu l'as inséré sur un classeur Excel ???
essayer de joindre le classeur anonymisé c'est mieux...
Amicalement

 

[bruno66]

Re : cellule avec contenu couleur

bonsoir

pourquoi imprim ecran... tu as tout les éléments dans les deux fichiers la formule et l'autre feuille avec les couleurs personnalisé
et la formule que je cherche aussi .. il me renvoie bien le contenu mais pas la couleur de fond
merci

 

[Misange]

Re : cellule avec contenu couleur

Bonjour
A quelques exceptions près, c.a.d. les couleurs système, voir ici
Ce lien n'existe plus
on ne peut pas récupérer le format d'une cellule par une formule, juste son contenu.

 

[bruno66]

Re : cellule avec contenu couleur

bonjour je reposte avec un petit morceau de fichier .. pour bien voir ce que je recherche exactement... il est sous excel 2010 en binaire ... je regarde par ailleurs le lien ci dessus en attendant et voir de mon cote ..si possibilité aussi en vba .. suis preneur


mercid'avance et bonne journée

j'ai trouvé cela aussi .. en lien mais bon comment faire...
Ce lien n'existe plus

 

[Misange]

Re : cellule avec contenu couleur

Répondre à ta question demande un temps que je n'ai pas. MAis regarde ces différentes pages

Ce lien n'existe plus

Ce lien n'existe plus

Ce lien n'existe plus

tape aussi couleur dans la boite de recherche ça devrait t'aider ou... te montrer l'ampleur de la tâche.

 

[bruno66]

Re : cellule avec contenu couleur

Bonjour
pourquoi renvoyer sur un autre site .... concernant tous les liens a chaque fois.... je vois pas l’intérêt de poster les meme questions a plusieurs endroit avec inscription

 

[Misange]

Re : cellule avec contenu couleur

Je ne te renvoie pas sur un forum où reposer ta question, il n'y a PAS de forum sur excelabo. En revanche j'y ai mis une compilation d'exemples et de tutoriels sur des tas de sujets excel.
Tu as l'air de croire que ta question se résous en quelques minutes, c'est loin d'être le cas. Les liens que je t'ai fournis te montrent des solutions développées par d'autres pour répondre au même type de question que la tienne. Si ça ne t'intéresse pas libre à toi de ne pas regarder, personne ne t'y oblige.
Le premier lien ne demande pas que tu t'inscrives pour le lire. Le 3° c'est un classeur que j'ai développé pour mettre en application des macros de John Walkenbach qui est certainement une des références mondiales sur excel.

 

[bruno66]

Re : cellule avec contenu couleur

re bonjour.. j'ai trouvé cela sur vb source ..
peut être un début de solution en vba pour moi .;
sub
' en excell
' col col+1 col+2 col+3
'-------------------------------------
'cell coloré | val:r | val:g | val b |
'-------------------------------------
'
'
lign = 1 'ligne de départ
col =1 'col de départ
r=cells(lign,col+1).value
g=cells(lign,col+2).value
b=cells(lign,col+3).value

cells(lign, col).interior.color=RGB(r,g,b)

end sub
' si on veut on peut faire des while, for pour remplir tout

mais au vu de mon fichier du nuancier j'ai quand meme plus de 600 couleurs ... possible au mini

merci du temps passé

 

[Misange]

Re : cellule avec contenu couleur

Ceci colorie les cellules en fonction du code RGB, il me semblait que ce qui t'intéressait c'était l'inverse, connaitre la couleur d'une cellule.

 

[Si...]

Re : cellule avec contenu couleur

salut

Si... j'ai bien compris : Clic droit sur le nom de la feuille, Visualiser le code et recopie de :

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Cel As Range
  If Target.Count > 1 Or Target.Address <> "$E$6" Then Exit Sub
  If Target = "" Then
    Range("G10:I10") = ""
    Range("G12:I12").Interior.Color = 12566463
  End If
  Set Cel = Sheets("Nuancier").Columns(4).Find(Target)
  If Cel Is Nothing Then
    Range("G10") = ""
    Range("G12:I12").Interior.Color = 12566463
  Else
    Range("G10") = Cel.Offset(, -1)
    Range("G12:I12").Interior.Color = Cel.Offset(, 2).Interior.Color
  End If
End Sub

 

[bruno66]

Re : cellule avec contenu couleur

Merci du coup de main c'est exactement ce que je recherchais
merci encore
pour info.. ça me sert a avoir un aperçu de la couleur que je recherche dans mes articles ...au lieu de prendre une palette des couleurs physiquement