Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Couleur selon inscription dans cellules

13 réponses
Avatar
Manon
Bonjour,

J'ai un calendrier pour l'horaire des employés que je fais à la main et
j'aimerais maintenant le faire sur Excel pour plus de rapidité.

Cependant, les employés aiment bien quand j'utilise des couleurs différentes
pour les identifier.

Mon calendrier va de B 6 à AJ 28, à l'intérieur des cellules je dispose les
abréviations des employés; disons MM. J'aimerais que la cellule où je viens
d'inscrire MM puisse prendre la mise en forme (couleur) que j'ai disposé dans
les cellules de AZ 6 à AZ 15.

Dans AZ 6 à AZ 15, j'ai inscrit les abréviations des employés avec une
couleur différente. Ex. MM = rouge, AA = jaune, FF = bleu...

Merci d'avance pour le temps que vous prendrez pour m'aider.


Manon

3 réponses

1 2
Avatar
Manon
Merci JB,

C'est encore plus facile de cette façon, je n'ai pas à inscrire les initiales.
Tout se fait comme par magie !

Je vais tenter d'intégrer tes codes dans mon calendrier.

Bonne journée,

Manon


Bonsoir,


Si tu télécharges le programme joint, il apparait une barre avec les
noms (MM,..)
Il suffit de sélectionner une cellule ou un champ puis de cliquer dans
la barre pour que le nom s'inscrive automatiquement dans la cellule.
La couleur est modifié.

JB
On 12 avr, 17:22, Manon wrote:
Bonjour JB,

Je suis allée voir ton calendrier mais lorsque j'inscrit un employé dans le
tableau, la couleur ne change pas. Dois-je appuyer sur une touche après ?

J'ai oublié de vous dire que je ne connais pas vraiment les codes.

Merci,

Manon




Bonjour,

Crée une barre de saisie et de coloriage:

http://cjoint.com/?elhzREP3PN

Sub auto_open()
On Error Resume Next
CommandBars.Add ("BarreColoriage")
CommandBars("BarreColoriage").Visible = True
For i = 1 To [couleurs].Count
Set bouton > > > CommandBars("BarreColoriage").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.Tag = i
bouton.OnAction = "'Coloriage """ & bouton.Tag & """'"
bouton.Caption = Range("couleurs")(i)
Next i
End Sub

Sub Coloriage(p)
For Each C In Selection
If Not Intersect([planning], C) Is Nothing Then
Range("couleurs")(p).Copy C
End If
Next C
End Sub

Sub auto_close()
On Error Resume Next
Application.CommandBars("BarreColoriage").Delete
End Sub

Cordialement JB
On 11 avr, 01:00, Manon wrote:
Bonjour,

J'ai un calendrier pour l'horaire des employés que je fais à la main et
j'aimerais maintenant le faire sur Excel pour plus de rapidité.

Cependant, les employés aiment bien quand j'utilise des couleurs différentes
pour les identifier.

Mon calendrier va de B 6 à AJ 28, à l'intérieur des cellules je dispose les
abréviations des employés; disons MM. J'aimerais que la cellule où je viens
d'inscrire MM puisse prendre la mise en forme (couleur) que j'ai disposé dans
les cellules de AZ 6 à AZ 15.

Dans AZ 6 à AZ 15, j'ai inscrit les abréviations des employés avec une
couleur différente. Ex. MM = rouge, AA = jaune, FF = bleu...

Merci d'avance pour le temps que vous prendrez pour m'aider.

Manon- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -









Avatar
lSteph
:-[ grrrr
bin voyons!
Hyp.1
Alors là pour le coup heureusement que ma femme n'est pas tombée là-
dessus,
car selon le decoding de spécialiste de "chevalerie" disons,
elle pourrait être vraiment ravie.
Hyp.2
Faites comme JP si votre femme ne vous dit plus à quel point elle est
ravie, ayez bien en*-tête que
c'est probablement votre grande pudeur chevaleresque qui déteint sur
elle.

Sinon le truc que j'arrive le mieux à décoder maintenant c'est
pourquoi dans le
d'un certain c'est écrit vade retro.

Et j'entends....
...
...qui siffle dans le vent!

;o))

@+

lSteph


On 13 avr, 07:02, "jps" wrote:
:-)))))
finalement, c'est surtout manon que tu as ravie, même si j'avais toujou rs
cru comprendre que seule une femme pouvait dire qu'elle est "ravie",
l'homme, par lointaine et chevaleresque définition, ne pouvant se laiss er
capturer sans en prendre un coup sur son honneur (bon, pour le decoding de
la phrase, voyez LSteph, c'est un spécialiste)
jps

"tissot.emmanuel" a écrit dans le message de news:


Bonjour JPS,

Je suis ravi d'avoir été si brillamment suppléé.

Cordialement,

Manu/

"jps" a écrit dans le message de news:
upv%
bonjour manon
manu est en vacances et je suis son suppléant....
il faut que cela soit sur une seuke ligne :

Target.Interior.ColorIndex =
Range("Employes").Find(Target.Value).Interior.ColorIndex

HTH
jps

"Manon" a écrit dans le message de
news: 60F0039E-AA24-4770-9D6C-793E41303__BEGIN_MASK_n#9g02mG7!__...__EN D_MASK_i?a63jfAD$
Bonjour et Merci Manu,

J'ai fait ce que tu me dis et lorsque j'inscris un employé dans mon
calendrier, la fenêtre de code m'apparait et la ligne suivante est Rouge
:
Target.Interior.ColorIndex =

Je ne connais rien dans ces codes... mais ça ne fonctionne pas.

Merci encore pour ton aide.

Manon








Avatar
Manon
Tu as raison JPS, ta définition s'appliquait dans le "temps"; l'homme ne
pouvait se laisser capturer sans en prendre un coup sur son honneur.

Cependant, de nos jours, avec les hommes mariés ou engagés, il faudrait
changer ta phrase et dire : l'homme ne peut se laisser capturer sans en
prendre un coup sur son bonheur.

(pour le decoding, je ne connais pas de spécialiste... désolée... mais ravie
tout de même )

Merci à vous deux !

Manon


:-)))))
finalement, c'est surtout manon que tu as ravie, même si j'avais toujours
cru comprendre que seule une femme pouvait dire qu'elle est "ravie",
l'homme, par lointaine et chevaleresque définition, ne pouvant se laisser
capturer sans en prendre un coup sur son honneur (bon, pour le decoding de
la phrase, voyez LSteph, c'est un spécialiste)
jps

"tissot.emmanuel" a écrit dans le message de news:

Bonjour JPS,

Je suis ravi d'avoir été si brillamment suppléé.

Cordialement,

Manu/

"jps" a écrit dans le message de news:
upv%
bonjour manon
manu est en vacances et je suis son suppléant....
il faut que cela soit sur une seuke ligne :

Target.Interior.ColorIndex =
Range("Employes").Find(Target.Value).Interior.ColorIndex

HTH
jps

"Manon" a écrit dans le message de
news:
Bonjour et Merci Manu,

J'ai fait ce que tu me dis et lorsque j'inscris un employé dans mon
calendrier, la fenêtre de code m'apparait et la ligne suivante est Rouge
:
Target.Interior.ColorIndex > >>>
Je ne connais rien dans ces codes... mais ça ne fonctionne pas.

Merci encore pour ton aide.

Manon














1 2