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
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
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
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 dis pose 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
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 dis pose 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
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 dis pose 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
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
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 <M...@discussions.microsoft.com> 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
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
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
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
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
Bonjour JB,
Je suis allée voir ton calendrier mais lorsque j'inscrit un employé d ans 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,
ManonBonjour,
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 m ain et
j'aimerais maintenant le faire sur Excel pour plus de rapidité.
Cependant, les employés aiment bien quand j'utilise des couleurs di ffé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 disp osé dans
les cellules de AZ 6 à AZ 15.
Dans AZ 6 à AZ 15, j'ai inscrit les abréviations des employés a vec 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 -
Bonjour JB,
Je suis allée voir ton calendrier mais lorsque j'inscrit un employé d ans 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 <M...@discussions.microsoft.com> wrote:
Bonjour,
J'ai un calendrier pour l'horaire des employés que je fais à la m ain et
j'aimerais maintenant le faire sur Excel pour plus de rapidité.
Cependant, les employés aiment bien quand j'utilise des couleurs di ffé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 disp osé dans
les cellules de AZ 6 à AZ 15.
Dans AZ 6 à AZ 15, j'ai inscrit les abréviations des employés a vec 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 -
Bonjour JB,
Je suis allée voir ton calendrier mais lorsque j'inscrit un employé d ans 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,
ManonBonjour,
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 m ain et
j'aimerais maintenant le faire sur Excel pour plus de rapidité.
Cependant, les employés aiment bien quand j'utilise des couleurs di ffé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 disp osé dans
les cellules de AZ 6 à AZ 15.
Dans AZ 6 à AZ 15, j'ai inscrit les abréviations des employés a vec 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 -
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
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" <Manon@discussions.microsoft.com> a écrit dans le message de news:
60F0039E-AA24-4770-9D6C-793E41303FAA@microsoft.com...
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
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
Bonjour JB,
Je suis allée voir ton calendrier mais lorsque j'inscrit un employé d ans 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,
ManonBonjour,
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 m ain et
j'aimerais maintenant le faire sur Excel pour plus de rapidité.
Cependant, les employés aiment bien quand j'utilise des couleurs di ffé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 disp osé dans
les cellules de AZ 6 à AZ 15.
Dans AZ 6 à AZ 15, j'ai inscrit les abréviations des employés a vec 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 -
Bonjour JB,
Je suis allée voir ton calendrier mais lorsque j'inscrit un employé d ans 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 <M...@discussions.microsoft.com> wrote:
Bonjour,
J'ai un calendrier pour l'horaire des employés que je fais à la m ain et
j'aimerais maintenant le faire sur Excel pour plus de rapidité.
Cependant, les employés aiment bien quand j'utilise des couleurs di ffé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 disp osé dans
les cellules de AZ 6 à AZ 15.
Dans AZ 6 à AZ 15, j'ai inscrit les abréviations des employés a vec 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 -
Bonjour JB,
Je suis allée voir ton calendrier mais lorsque j'inscrit un employé d ans 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,
ManonBonjour,
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 m ain et
j'aimerais maintenant le faire sur Excel pour plus de rapidité.
Cependant, les employés aiment bien quand j'utilise des couleurs di ffé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 disp osé dans
les cellules de AZ 6 à AZ 15.
Dans AZ 6 à AZ 15, j'ai inscrit les abréviations des employés a vec 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 -
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
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" <Manon@discussions.microsoft.com> a écrit dans le message de news:
60F0039E-AA24-4770-9D6C-793E41303FAA@microsoft.com...
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
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
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
Bonjour JPS,
Je suis ravi d'avoir été si brillamment suppléé.
Cordialement,
Manu/
"jps" <vaderetrosp@mas> a écrit dans le message de news:
upv%23mGSfHHA.4348@TK2MSFTNGP03.phx.gbl...
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" <Manon@discussions.microsoft.com> a écrit dans le message de
news: 60F0039E-AA24-4770-9D6C-793E41303FAA@microsoft.com...
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
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