attribuer des couleurs suivant code

A

Arpette

XLDnaute Impliqué

• 9 Décembre 2011

• #2

Re : attribuer des couleurs suivant code

Bonsoir Mix, à l'ouverture de ton fichier "Workbook_open" demande d'activer la feuil "Acceuil". elle n'existe pas.
@+

 

Vote positif 0 Vote négatif

M

mix770

XLDnaute Impliqué

• 9 Décembre 2011

• #3

Re: Re : attribuer des couleurs suivant code

bonsoir j'avais enlevé le maximum d'onglet pour alléger le fichier, je tente le coup avec la page accueil
autrement je sais qu'il y a possibilité de mettre sur un site d accueil mais je ne me souviens plus du nom

 

Pièces jointes

• TRAVAUX_9_12_ Support Organisation Travail.xls

  630 KB · Affichages: 84
• TRAVAUX_9_12_ Support Organisation Travail.xls

  630 KB · Affichages: 87
• TRAVAUX_9_12_ Support Organisation Travail.xls

  630 KB · Affichages: 87

Vote positif 0 Vote négatif

M

mix770

XLDnaute Impliqué

• 9 Décembre 2011

• #4

Re: Re : attribuer des couleurs suivant code

j'ai une autre demande, j'ai créer un bouton pour fusionner des cellules, je voudrais qu'il me mette des bordures à gauche et à droite des cellules fusionnées, ci dessous la macro actuelle
merci a vous, je me lance un peu pour comprendre les macro mais je rame

Sub fusioncellule()
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
End Sub

 

Vote positif 0 Vote négatif

Philippe68

XLDnaute Occasionnel

• 9 Décembre 2011

• #5

Re : Re: Re : attribuer des couleurs suivant code

Bonsoir le forum,

Moi j'aurais ceci avec les 56 codes de couleurs possibles :

Sub StockInf50()
For Each Cell In Range("A5:B5") 'selection de cellule, ligne ou colonne
If Cell.Value < 30 Then
Cell.Select
With Selection.Interior
.ColorIndex = 1 'code de la couleur de 1 à 56
.Pattern = xlSolid
End With
End If
Next
End Sub

Cliquez pour agrandir...

Si ça peut aider....

 

Vote positif 0 Vote négatif

M

mix770

XLDnaute Impliqué

• 9 Décembre 2011

• #6

Re: Re : Re: Re : attribuer des couleurs suivant code

Bonsoir divers68,
merci pour ta proposition, cela serait en complément de ma feuille ou tu es sur une autre réflexion ?
merci
@+

 

Vote positif 0 Vote négatif

Philippe68

XLDnaute Occasionnel

• 9 Décembre 2011

• #7

Re : Re: Re : Re: Re : attribuer des couleurs suivant code

C'est en rapport à ton sujet initial "Attibuer des couleurs suivant code"
il existe les codes de 1 à 56, suffit de changer le chiffre dans "colorindex" du code

ou alors j'ai pas compris ce que tu voulais..

 

Vote positif 0 Vote négatif

M

mix770

XLDnaute Impliqué

• 9 Décembre 2011

• #8

Re: Re : Re: Re : Re: Re : attribuer des couleurs suivant code

merci à toi pour le temps que tu prends,
je te mets le vba qui correspond à l'onglet support orga de travail, dans la partie du tableau qui fonctionne jusqu'à la ligne 16, dans la ligne code tache quand on tape ex: B1 celle ci se colore en bleu, je voudrais garder les memes couleurs, je suis désolé si je suis un peu long à comprendre, ci dessous la macro:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("Taches")) Is Nothing And Target.Count = 1 Then
If Target <> "" Then
With Sheets("Params")
Target.Interior.ColorIndex = .Range("ListeCouleurs")(Application.Match(Target, .Range("listeCouleurs"), 0)).Interior.ColorIndex
End With
Else
Target.Interior.ColorIndex = xlNone
End If
End If
End Sub

 

Vote positif 0 Vote négatif

A

Arpette

XLDnaute Impliqué

• 10 Décembre 2011

• #9

Re : Re: Re : attribuer des couleurs suivant code

Bonjour Mix, pour le dépot de fichier, cijoint.fr étant fermé aller ici
@+

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 10 Décembre 2011

• #10

Re : attribuer des couleurs suivant code

Bonjour à tous

Pas facile de trouver ou se situait ton problème !!

Vois si cela va mieux comme cela
Explication: EXcel peinant à nommer des plages non contigues j'ai divisé Taches en 3 plages distinctes Taches1 Taches2 Taches3 puis les ai regroupées par Union dans la macro Change

 

Pièces jointes

• TRAVAUX_9_12_ Support Organisation Travail.xls

  644.5 KB · Affichages: 76
• TRAVAUX_9_12_ Support Organisation Travail.xls

  644.5 KB · Affichages: 78
• TRAVAUX_9_12_ Support Organisation Travail.xls

  644.5 KB · Affichages: 81

Vote positif 0 Vote négatif

M

mix770

XLDnaute Impliqué

• 11 Décembre 2011

• #11

Re: Re : attribuer des couleurs suivant code

Bonjour à tous,
merci à vous de votre aide et un grand merci PierreJean c'est exactement ce que je souhaitais, j'admire ta maitrise, j'aimerais toujours dans ce tableau avec mon bouton fusionner cellules que les bordures soient automatique et savoir si il y a une possibilité de supprimer cette fusion si on se trompe, voila et avec mes excuses pour le temps de réaction samedi de course surtout avec Noël qui arrive
cordialement

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 11 Décembre 2011

• #12

Re : attribuer des couleurs suivant code

Re

Vois si cela te convient

 

Pièces jointes

• TRAVAUX_9_12_ Support Organisation Travail.xls

  651 KB · Affichages: 77
• TRAVAUX_9_12_ Support Organisation Travail.xls

  651 KB · Affichages: 79
• TRAVAUX_9_12_ Support Organisation Travail.xls

  651 KB · Affichages: 84

Vote positif 0 Vote négatif

M

mix770

XLDnaute Impliqué

• 11 Décembre 2011

• #13

PierreJean,
que dire...,aller c'est d'actualité, mieux que le père noël, je galère depuis des mois sur ce fichier et vous m'avez aidé, alors un grand merci à tous, plus particulièrement à toi pierrejean et joyeuses fêtes de fin d'années à tous.
et bravo pour la qualité du forum

 

Vote positif 0 Vote négatif