[Résolu]Affecter une couleur par nom

[3xceln4ute]

Salut tout le monde ,

Je souhaiterais qu'une couleur soit affectée automatiquement en choisissant le nom d'un conseiller.
Aussi, avant d'affecter un numéro à un conseiller, que la case soit remplie par "1 place", par exemple dans le tableau joint, à la cellule E5, I9, K5... s'affiche la mention "1 place".
Également, dans la cellule N5 ça met à jour le nombre total des évaluations de la semaine, et la cellule N6, le nombre de places disponibles.

Le lien du tableau: Ce lien n'existe plus

PS: je ne pouvais pas le joindre parce que ça dépassait les 295ko

Merci.

 

[DoubleZero]

Re : Affecter une couleur par nom

Bonjour à toutes et à tous,

... mettre une instruction pour afficher "1 place" à la 2e cellule, comme par exemple, les cellules D5, F5, H5, F5, L5, D16...

Remarque prise en compte.

... lorsque je ne sélectionne aucun nom, et que je mette à jour les données, le mot "1 place" reste affiché, et ça fausse le calcul des places dispos...

Remarque prise en compte.

... automatiser l'affichage des dates...

Je ne sais comment faire.

Une couleur particulière est attribuée aux dates "samedi" et "dimanche"... à condition, toutefois, que le format date soit respecté.

A bientôt

P. S. : penser à mon Dlicrâne ! Merci...

 

[DoubleZero]

Re : Affecter une couleur par nom

Bonjour à toutes et à tous,

... Aussi, y aurait-il moyen d'automatiser l'affichage des dates...

Un essai en pièce jointe.

A bientôt

 

[3xceln4ute]

Re : Affecter une couleur par nom

Un Gros merci pour ton aide
Au plaisir !

 

[3xceln4ute]

Re : [Résolu]Affecter une couleur par nom

Bonjour 00,

Je te remercie pour le superbe travail que t'as fait.

Cependant, comme je dois partager le fichier, apparemment la macro ne fonctionnerait pas (quand j'appuie sur Upload, l'erreur 1004 s'affiche). Y a-t-il moyen pour y remédier ?

Merci.

 

[DoubleZero]

Re : [Résolu]Affecter une couleur par nom

Bonjour, subirubi, le Forum,

Le fichier contient-il une quelconque protection ?

A bientôt

 

[3xceln4ute]

Re : [Résolu]Affecter une couleur par nom

Re bonjour, 00, le Forum,

En fait, il n'y a pas de protection.

Voici le code:

Sub Colorer_compter()
Dim c As Range
With Application: .ScreenUpdating = False: .Calculation = xlManual: .EnableEvents = False: End With
Range("c:l").Interior.ColorIndex = xlNone: Range("m:n") = ""
For Each c In Range("c:l").SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants)
If c = "Louis" Then
c.Resize(, 2).Interior.Color = 10284031
c.MergeCells = False
c.Offset(1, 0).Resize(, 2).Interior.Color = RGB(255, 218, 101): c.Offset(1, 0).Resize(, 2).Font.Color = RGB(0, 0, 0)
If c.Offset(1, 0) = "" Then c.Offset(1, 0) = "1 place"
If c.Offset(1, 1) = "" Then c.Offset(1, 1) = "1 place"
End If
If c = "Sonia" Then
c.Resize(, 2).Interior.Color = 11851260
c.MergeCells = False
c.Offset(1, 0).Resize(, 2).Interior.Color = RGB(0, 176, 240): c.Offset(1, 0).Resize(, 2).Font.Color = RGB(255, 255, 255)
If c.Offset(1, 0) = "" Then c.Offset(1, 0) = "1 place"
If c.Offset(1, 1) = "" Then c.Offset(1, 1) = "1 place"
End If
If c = "France" Then
c.Resize(, 2).Interior.Color = 13561798
c.MergeCells = False
c.Offset(1, 0).Resize(, 2).Interior.Color = RGB(208, 0, 0): c.Offset(1, 0).Resize(, 2).Font.Color = RGB(255, 255, 255)
If c.Offset(1, 0) = "" Then c.Offset(1, 0) = "1 place"
If c.Offset(1, 1) = "" Then c.Offset(1, 1) = "1 place"
End If
If c = "Thierry" Then
c.Resize(, 2).Interior.Color = 6750156
c.MergeCells = False
c.Offset(1, 0).Resize(, 2).Interior.Color = RGB(251, 81, 5): c.Offset(1, 0).Resize(, 2).Font.Color = RGB(0, 0, 0)
If c.Offset(1, 0) = "" Then c.Offset(1, 0) = "1 place"
If c.Offset(1, 1) = "" Then c.Offset(1, 1) = "1 place"
If c = "Louis" Or c = "Sonia" Or c = "France" Or c = "Thierry" Then c.MergeCells = True
End If
Next
For Each c In Range("b:b").SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants)
If c = "Eval." Then
c.Offset(, 1).Resize(4, 10).Name = "ici"
c.Offset(, 11) = "Evaluation(s)"
c.Offset(, 12).FormulaR1C1 = "=COUNTIF(RC[-11]:R[3]C[-2],"">0"")"
c.Offset(1, 12).Offset(-3, -1) = "Disponible(s)"
c.Offset(1, 12).Offset(-3, 1).Offset(, -1).FormulaR1C1 = "=COUNTIF(R[-1]C[-11]:R[2]C[-2],""1 place"")"
End If
If c = "Rétro." Then
With c.Offset(, 1).Resize(6, 10).Font: .Italic = -1: End With
With c.Resize(6, 11).Interior: .Pattern = xlGray8: .PatternColor = RGB(75, 172, 198): End With
End If
Next
For Each c In Range("c:l").SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants)
If c.Interior.ColorIndex = xlNone And Not IsDate(c) Then c = ""
If c = "Thierry" Or c = "Louis" Or c = "France" Or c = "Sonia" Then
With c: .Resize(, 2).Merge: .Font.Bold = True: .Interior.ColorIndex = xlNone: End With
End If
Next
On Error Resume Next
For Each c In ActiveSheet.UsedRange
If IsDate(c) Then
If Weekday(c) = 7 Or Weekday(c) = 1 Then
c.Interior.ColorIndex = 3
End If
End If
Next c
With Application: .EnableEvents = True: .Calculation = xlAutomatic: .ScreenUpdating = True: End With
End Sub

 

[DoubleZero]

Re : [Résolu]Affecter une couleur par nom

Bonjour, subirubi, le Forum,

Trois liens vers le partage de fichier :

- 1 ;
- 2 ;
- 3.

J'espère que l'un des trois permettra de résoudre le problème.

A bientôt

P. S. : Merci de bien vouloir nous "dire" quelle "recette" est fonctionnelle.

 

[3xceln4ute]

Re : [Résolu]Affecter une couleur par nom

Bonjour 00, Le forum,

Je cite le message d'erreur peut-être ça pourrait aider.

Erreur d'exécution '1004':
Impossible de définir la propriété MergeCelles de la classe Range.

Espérant que ça aboutisse sur une solution.

 

[DoubleZero]

Re : [Résolu]Affecter une couleur par nom

Bonjour, subirubi, le Forum,

Un autre lien qui, je l'espère, permettra de résoudre le problème de partage.

A bientôt