attribuer des couleurs suivant code

[mix770]

Bonsoir à tous,
je lance un appel au secours, j'ai eu grace à vous la solution pour colorer les cellules suivant des codes (voir tableau) à l'époque il y avait 16 lignes, aujourd'hui il faut 48 lignes et je n'arrive pas à reproduire sur le reste des lignes. je retourne le problème dans tout les sens et ne trouve pas la manip à faire
merci à vous de votre aide
bien cordialement
🙂

 

[Arpette]

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.
@+

 

[mix770]

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

 

[mix770]

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

 

[Philippe68]

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

Si ça peut aider....

 

[mix770]

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
@+

 

[Philippe68]

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..

 

[mix770]

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

 

[Arpette]

Re : Re: Re : attribuer des couleurs suivant code

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

 

[pierrejean]

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

 

[mix770]

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

 

[pierrejean]

Re : attribuer des couleurs suivant code

Re

Vois si cela te convient

 

[mix770]

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