Bonjour,
J'utilise excel 2000 et je voudrais colorier en rouge un enregistrement
complet (30 cellules en ligne) selon que la valeur contenue dans un
cellule
donnée est de 1, en vert si elle est de 2, en jaune, sielleest de 3 etc
( 5
valeurs possibles dans les cellules de la colonne R).
Comment dois-je faire ?
Merci de votre aide,
Bruno
Bonjour,
J'utilise excel 2000 et je voudrais colorier en rouge un enregistrement
complet (30 cellules en ligne) selon que la valeur contenue dans un
cellule
donnée est de 1, en vert si elle est de 2, en jaune, sielleest de 3 etc
( 5
valeurs possibles dans les cellules de la colonne R).
Comment dois-je faire ?
Merci de votre aide,
Bruno
Bonjour,
J'utilise excel 2000 et je voudrais colorier en rouge un enregistrement
complet (30 cellules en ligne) selon que la valeur contenue dans un
cellule
donnée est de 1, en vert si elle est de 2, en jaune, sielleest de 3 etc
( 5
valeurs possibles dans les cellules de la colonne R).
Comment dois-je faire ?
Merci de votre aide,
Bruno
Bonjour Bruno
Tu crées d'abord ta MEFC sur une cellule de la ligne pour la mettre au
point : il utiliser "La formule est" au lieu de "la valeur de la cellule
est" ;
Dans la condition 1 tu écris =??=1 ou ?? est la référence (par exemple
$D7) à la cellule contenant la valeur 1
Dans la condition 2 tu écris =??=2 ou ?? est la référence à la cellule
contenant la valeur 2
Dans la condition 3 tu écris =??=3 ou ?? est la référence à la cellule
contenant la valeur 3
Tu mets ton motif en couleur
Ensuite tu sélectionnes toute la ligne, tu affiches la MEFC tu dois voir
les 3 conditions que tu as saisis ; OK (cela reproduit la MEFC sur toute
la sélection en cours)
Et tu revérifies le fonctionnement
PS : 3 valeurs possibles seulement en plus de la couleur standard
--
P a p y j a c
"Bruno" a écrit dans le message de
news:Bonjour,
J'utilise excel 2000 et je voudrais colorier en rouge un enregistrement
complet (30 cellules en ligne) selon que la valeur contenue dans un
cellule
donnée est de 1, en vert si elle est de 2, en jaune, sielleest de 3 etc
( 5
valeurs possibles dans les cellules de la colonne R).
Comment dois-je faire ?
Merci de votre aide,
Bruno
Bonjour Bruno
Tu crées d'abord ta MEFC sur une cellule de la ligne pour la mettre au
point : il utiliser "La formule est" au lieu de "la valeur de la cellule
est" ;
Dans la condition 1 tu écris =??=1 ou ?? est la référence (par exemple
$D7) à la cellule contenant la valeur 1
Dans la condition 2 tu écris =??=2 ou ?? est la référence à la cellule
contenant la valeur 2
Dans la condition 3 tu écris =??=3 ou ?? est la référence à la cellule
contenant la valeur 3
Tu mets ton motif en couleur
Ensuite tu sélectionnes toute la ligne, tu affiches la MEFC tu dois voir
les 3 conditions que tu as saisis ; OK (cela reproduit la MEFC sur toute
la sélection en cours)
Et tu revérifies le fonctionnement
PS : 3 valeurs possibles seulement en plus de la couleur standard
--
P a p y j a c
"Bruno" <Bruno@discussions.microsoft.com> a écrit dans le message de
news:36602CF1-CF9D-48E0-A43A-5ED5F0BFB03C@microsoft.com...
Bonjour,
J'utilise excel 2000 et je voudrais colorier en rouge un enregistrement
complet (30 cellules en ligne) selon que la valeur contenue dans un
cellule
donnée est de 1, en vert si elle est de 2, en jaune, sielleest de 3 etc
( 5
valeurs possibles dans les cellules de la colonne R).
Comment dois-je faire ?
Merci de votre aide,
Bruno
Bonjour Bruno
Tu crées d'abord ta MEFC sur une cellule de la ligne pour la mettre au
point : il utiliser "La formule est" au lieu de "la valeur de la cellule
est" ;
Dans la condition 1 tu écris =??=1 ou ?? est la référence (par exemple
$D7) à la cellule contenant la valeur 1
Dans la condition 2 tu écris =??=2 ou ?? est la référence à la cellule
contenant la valeur 2
Dans la condition 3 tu écris =??=3 ou ?? est la référence à la cellule
contenant la valeur 3
Tu mets ton motif en couleur
Ensuite tu sélectionnes toute la ligne, tu affiches la MEFC tu dois voir
les 3 conditions que tu as saisis ; OK (cela reproduit la MEFC sur toute
la sélection en cours)
Et tu revérifies le fonctionnement
PS : 3 valeurs possibles seulement en plus de la couleur standard
--
P a p y j a c
"Bruno" a écrit dans le message de
news:Bonjour,
J'utilise excel 2000 et je voudrais colorier en rouge un enregistrement
complet (30 cellules en ligne) selon que la valeur contenue dans un
cellule
donnée est de 1, en vert si elle est de 2, en jaune, sielleest de 3 etc
( 5
valeurs possibles dans les cellules de la colonne R).
Comment dois-je faire ?
Merci de votre aide,
Bruno
Pour info Xl2007 offre beaucoup + de possibilités et un détail assez
intéressant, lorsque l'on veut copier un format d'une certaine cellule sur
d'autres, la copie se fait en addition des formats déjà existant (pour des
critères différents bien évidement).
"Papyjac" <papyjac(supprimerceci)@free.fr> a écrit dans le message de
news:Bonjour Bruno
Tu crées d'abord ta MEFC sur une cellule de la ligne pour la mettre au
point : il utiliser "La formule est" au lieu de "la valeur de la cellule
est" ;
Dans la condition 1 tu écris =??=1 ou ?? est la référence (par exemple
$D7) à la cellule contenant la valeur 1
Dans la condition 2 tu écris =??=2 ou ?? est la référence à la cellule
contenant la valeur 2
Dans la condition 3 tu écris =??=3 ou ?? est la référence à la cellule
contenant la valeur 3
Tu mets ton motif en couleur
Ensuite tu sélectionnes toute la ligne, tu affiches la MEFC tu dois voir
les 3 conditions que tu as saisis ; OK (cela reproduit la MEFC sur toute
la sélection en cours)
Et tu revérifies le fonctionnement
PS : 3 valeurs possibles seulement en plus de la couleur standard
--
P a p y j a c
"Bruno" a écrit dans le message de
news:Bonjour,
J'utilise excel 2000 et je voudrais colorier en rouge un enregistrement
complet (30 cellules en ligne) selon que la valeur contenue dans un
cellule
donnée est de 1, en vert si elle est de 2, en jaune, sielleest de 3 etc
( 5
valeurs possibles dans les cellules de la colonne R).
Comment dois-je faire ?
Merci de votre aide,
Bruno
Pour info Xl2007 offre beaucoup + de possibilités et un détail assez
intéressant, lorsque l'on veut copier un format d'une certaine cellule sur
d'autres, la copie se fait en addition des formats déjà existant (pour des
critères différents bien évidement).
"Papyjac" <papyjac(supprimerceci)@free.fr> a écrit dans le message de
news: A7E6F895-84DC-41E1-8514-25BFC15029EA@microsoft.com...
Bonjour Bruno
Tu crées d'abord ta MEFC sur une cellule de la ligne pour la mettre au
point : il utiliser "La formule est" au lieu de "la valeur de la cellule
est" ;
Dans la condition 1 tu écris =??=1 ou ?? est la référence (par exemple
$D7) à la cellule contenant la valeur 1
Dans la condition 2 tu écris =??=2 ou ?? est la référence à la cellule
contenant la valeur 2
Dans la condition 3 tu écris =??=3 ou ?? est la référence à la cellule
contenant la valeur 3
Tu mets ton motif en couleur
Ensuite tu sélectionnes toute la ligne, tu affiches la MEFC tu dois voir
les 3 conditions que tu as saisis ; OK (cela reproduit la MEFC sur toute
la sélection en cours)
Et tu revérifies le fonctionnement
PS : 3 valeurs possibles seulement en plus de la couleur standard
--
P a p y j a c
"Bruno" <Bruno@discussions.microsoft.com> a écrit dans le message de
news:36602CF1-CF9D-48E0-A43A-5ED5F0BFB03C@microsoft.com...
Bonjour,
J'utilise excel 2000 et je voudrais colorier en rouge un enregistrement
complet (30 cellules en ligne) selon que la valeur contenue dans un
cellule
donnée est de 1, en vert si elle est de 2, en jaune, sielleest de 3 etc
( 5
valeurs possibles dans les cellules de la colonne R).
Comment dois-je faire ?
Merci de votre aide,
Bruno
Pour info Xl2007 offre beaucoup + de possibilités et un détail assez
intéressant, lorsque l'on veut copier un format d'une certaine cellule sur
d'autres, la copie se fait en addition des formats déjà existant (pour des
critères différents bien évidement).
"Papyjac" <papyjac(supprimerceci)@free.fr> a écrit dans le message de
news:Bonjour Bruno
Tu crées d'abord ta MEFC sur une cellule de la ligne pour la mettre au
point : il utiliser "La formule est" au lieu de "la valeur de la cellule
est" ;
Dans la condition 1 tu écris =??=1 ou ?? est la référence (par exemple
$D7) à la cellule contenant la valeur 1
Dans la condition 2 tu écris =??=2 ou ?? est la référence à la cellule
contenant la valeur 2
Dans la condition 3 tu écris =??=3 ou ?? est la référence à la cellule
contenant la valeur 3
Tu mets ton motif en couleur
Ensuite tu sélectionnes toute la ligne, tu affiches la MEFC tu dois voir
les 3 conditions que tu as saisis ; OK (cela reproduit la MEFC sur toute
la sélection en cours)
Et tu revérifies le fonctionnement
PS : 3 valeurs possibles seulement en plus de la couleur standard
--
P a p y j a c
"Bruno" a écrit dans le message de
news:Bonjour,
J'utilise excel 2000 et je voudrais colorier en rouge un enregistrement
complet (30 cellules en ligne) selon que la valeur contenue dans un
cellule
donnée est de 1, en vert si elle est de 2, en jaune, sielleest de 3 etc
( 5
valeurs possibles dans les cellules de la colonne R).
Comment dois-je faire ?
Merci de votre aide,
Bruno
Bonjour,
J'utilise excel 2000 et je voudrais colorier en rouge un enregistrement
complet (30 cellules en ligne) selon que la valeur contenue dans un cellule
donnée est de 1, en vert si elle est de 2, en jaune, sielleest de 3 etc ( 5
valeurs possibles dans les cellules de la colonne R).
Comment dois-je faire ?
Merci de votre aide,
Bruno
Bonjour,
J'utilise excel 2000 et je voudrais colorier en rouge un enregistrement
complet (30 cellules en ligne) selon que la valeur contenue dans un cellule
donnée est de 1, en vert si elle est de 2, en jaune, sielleest de 3 etc ( 5
valeurs possibles dans les cellules de la colonne R).
Comment dois-je faire ?
Merci de votre aide,
Bruno
Bonjour,
J'utilise excel 2000 et je voudrais colorier en rouge un enregistrement
complet (30 cellules en ligne) selon que la valeur contenue dans un cellule
donnée est de 1, en vert si elle est de 2, en jaune, sielleest de 3 etc ( 5
valeurs possibles dans les cellules de la colonne R).
Comment dois-je faire ?
Merci de votre aide,
Bruno
Bruno a écrit :
Bonjour,
Jusqu'à 2007, on ne peut utiliser que trois mises en forme
conditionnelles (plus la mise en forme par défaut).
Il faut donc passer par une procédure évènementielle en VBA.
Code ci-dessous adapté à la mise en forme des cellules de la colonne R
'---------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("R:R")) Is Nothing And Target.Count = 1 Then
With Target
Select Case .Value
Case 1
.Interior.Color = vbRed
Case 2
.Interior.Color = vbBlue
Case 3
.Interior.Color = vbGreen
Case 4
.Interior.Color = vbYellow
Case 5
.Interior.Color = vbMagenta
Case Else
.Interior.ColorIndex = xlNone
End Select
End With
End If
End Sub
'---------------------------------------------------
--
François L
> Bonjour,
> J'utilise excel 2000 et je voudrais colorier en rouge un enregistrement
> complet (30 cellules en ligne) selon que la valeur contenue dans un cellule
> donnée est de 1, en vert si elle est de 2, en jaune, sielleest de 3 etc ( 5
> valeurs possibles dans les cellules de la colonne R).
> Comment dois-je faire ?
>
> Merci de votre aide,
> Bruno
Bruno a écrit :
Bonjour,
Jusqu'à 2007, on ne peut utiliser que trois mises en forme
conditionnelles (plus la mise en forme par défaut).
Il faut donc passer par une procédure évènementielle en VBA.
Code ci-dessous adapté à la mise en forme des cellules de la colonne R
'---------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("R:R")) Is Nothing And Target.Count = 1 Then
With Target
Select Case .Value
Case 1
.Interior.Color = vbRed
Case 2
.Interior.Color = vbBlue
Case 3
.Interior.Color = vbGreen
Case 4
.Interior.Color = vbYellow
Case 5
.Interior.Color = vbMagenta
Case Else
.Interior.ColorIndex = xlNone
End Select
End With
End If
End Sub
'---------------------------------------------------
--
François L
> Bonjour,
> J'utilise excel 2000 et je voudrais colorier en rouge un enregistrement
> complet (30 cellules en ligne) selon que la valeur contenue dans un cellule
> donnée est de 1, en vert si elle est de 2, en jaune, sielleest de 3 etc ( 5
> valeurs possibles dans les cellules de la colonne R).
> Comment dois-je faire ?
>
> Merci de votre aide,
> Bruno
Bruno a écrit :
Bonjour,
Jusqu'à 2007, on ne peut utiliser que trois mises en forme
conditionnelles (plus la mise en forme par défaut).
Il faut donc passer par une procédure évènementielle en VBA.
Code ci-dessous adapté à la mise en forme des cellules de la colonne R
'---------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("R:R")) Is Nothing And Target.Count = 1 Then
With Target
Select Case .Value
Case 1
.Interior.Color = vbRed
Case 2
.Interior.Color = vbBlue
Case 3
.Interior.Color = vbGreen
Case 4
.Interior.Color = vbYellow
Case 5
.Interior.Color = vbMagenta
Case Else
.Interior.ColorIndex = xlNone
End Select
End With
End If
End Sub
'---------------------------------------------------
--
François L
> Bonjour,
> J'utilise excel 2000 et je voudrais colorier en rouge un enregistrement
> complet (30 cellules en ligne) selon que la valeur contenue dans un cellule
> donnée est de 1, en vert si elle est de 2, en jaune, sielleest de 3 etc ( 5
> valeurs possibles dans les cellules de la colonne R).
> Comment dois-je faire ?
>
> Merci de votre aide,
> Bruno
Bonjour,
C'est cette macro qui me sera utile : Comment puis-je l'adapter pour mettre
dans la couleur adéquate tout l'enregistrement de ma base de données dès lors
que le celule x dans la colonne R est de la valeur 1 ou 2 ou 3 ou 4 ou 5 ,
selon l'exemple ?
PS : Je ne suis pas tres doué dans ce domaine.
Merci de votre aide,
Bruno
"Francois L" a écrit :Bruno a écrit :
Bonjour,
Jusqu'à 2007, on ne peut utiliser que trois mises en forme
conditionnelles (plus la mise en forme par défaut).
Il faut donc passer par une procédure évènementielle en VBA.
Code ci-dessous adapté à la mise en forme des cellules de la colonne R
'---------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("R:R")) Is Nothing And Target.Count = 1 Then
With Target
Select Case .Value
Case 1
.Interior.Color = vbRed
Case 2
.Interior.Color = vbBlue
Case 3
.Interior.Color = vbGreen
Case 4
.Interior.Color = vbYellow
Case 5
.Interior.Color = vbMagenta
Case Else
.Interior.ColorIndex = xlNone
End Select
End With
End If
End Sub
'---------------------------------------------------
--
François LBonjour,
J'utilise excel 2000 et je voudrais colorier en rouge un enregistrement
complet (30 cellules en ligne) selon que la valeur contenue dans un cellule
donnée est de 1, en vert si elle est de 2, en jaune, sielleest de 3 etc ( 5
valeurs possibles dans les cellules de la colonne R).
Comment dois-je faire ?
Merci de votre aide,
Bruno
Bonjour,
C'est cette macro qui me sera utile : Comment puis-je l'adapter pour mettre
dans la couleur adéquate tout l'enregistrement de ma base de données dès lors
que le celule x dans la colonne R est de la valeur 1 ou 2 ou 3 ou 4 ou 5 ,
selon l'exemple ?
PS : Je ne suis pas tres doué dans ce domaine.
Merci de votre aide,
Bruno
"Francois L" a écrit :
Bruno a écrit :
Bonjour,
Jusqu'à 2007, on ne peut utiliser que trois mises en forme
conditionnelles (plus la mise en forme par défaut).
Il faut donc passer par une procédure évènementielle en VBA.
Code ci-dessous adapté à la mise en forme des cellules de la colonne R
'---------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("R:R")) Is Nothing And Target.Count = 1 Then
With Target
Select Case .Value
Case 1
.Interior.Color = vbRed
Case 2
.Interior.Color = vbBlue
Case 3
.Interior.Color = vbGreen
Case 4
.Interior.Color = vbYellow
Case 5
.Interior.Color = vbMagenta
Case Else
.Interior.ColorIndex = xlNone
End Select
End With
End If
End Sub
'---------------------------------------------------
--
François L
Bonjour,
J'utilise excel 2000 et je voudrais colorier en rouge un enregistrement
complet (30 cellules en ligne) selon que la valeur contenue dans un cellule
donnée est de 1, en vert si elle est de 2, en jaune, sielleest de 3 etc ( 5
valeurs possibles dans les cellules de la colonne R).
Comment dois-je faire ?
Merci de votre aide,
Bruno
Bonjour,
C'est cette macro qui me sera utile : Comment puis-je l'adapter pour mettre
dans la couleur adéquate tout l'enregistrement de ma base de données dès lors
que le celule x dans la colonne R est de la valeur 1 ou 2 ou 3 ou 4 ou 5 ,
selon l'exemple ?
PS : Je ne suis pas tres doué dans ce domaine.
Merci de votre aide,
Bruno
"Francois L" a écrit :Bruno a écrit :
Bonjour,
Jusqu'à 2007, on ne peut utiliser que trois mises en forme
conditionnelles (plus la mise en forme par défaut).
Il faut donc passer par une procédure évènementielle en VBA.
Code ci-dessous adapté à la mise en forme des cellules de la colonne R
'---------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("R:R")) Is Nothing And Target.Count = 1 Then
With Target
Select Case .Value
Case 1
.Interior.Color = vbRed
Case 2
.Interior.Color = vbBlue
Case 3
.Interior.Color = vbGreen
Case 4
.Interior.Color = vbYellow
Case 5
.Interior.Color = vbMagenta
Case Else
.Interior.ColorIndex = xlNone
End Select
End With
End If
End Sub
'---------------------------------------------------
--
François LBonjour,
J'utilise excel 2000 et je voudrais colorier en rouge un enregistrement
complet (30 cellules en ligne) selon que la valeur contenue dans un cellule
donnée est de 1, en vert si elle est de 2, en jaune, sielleest de 3 etc ( 5
valeurs possibles dans les cellules de la colonne R).
Comment dois-je faire ?
Merci de votre aide,
Bruno
> Pour ma part je suis en migré de V2003 à V2007, et je suis loin d'avoir
le tour des fonctions. Il d'abord que je les retrouve et que je
reconditionne tous mes reflexes.
Effectivement les MEFC sont beaucoup plus riches mais je me demande si
bien raisonnable d'aller si loin !
> Pour ma part je suis en migré de V2003 à V2007, et je suis loin d'avoir
le tour des fonctions. Il d'abord que je les retrouve et que je
reconditionne tous mes reflexes.
Effectivement les MEFC sont beaucoup plus riches mais je me demande si
bien raisonnable d'aller si loin !
> Pour ma part je suis en migré de V2003 à V2007, et je suis loin d'avoir
le tour des fonctions. Il d'abord que je les retrouve et que je
reconditionne tous mes reflexes.
Effectivement les MEFC sont beaucoup plus riches mais je me demande si
bien raisonnable d'aller si loin !
Pour ma part je suis en migré de V2003 à V2007, et je suis loin d'avoir
faitle tour des fonctions. Il d'abord que je les retrouve et que je
reconditionne tous mes reflexes.
Effectivement les MEFC sont beaucoup plus riches mais je me demande si
c'estbien raisonnable d'aller si loin !
Complètement en harmonie; sans compter que, lorsque t'enclenches
l'enregistreur de macro, lorsque tu te sers des MEFC, alors là, les codes de
couleurs sont négatifs et à 6 ou 8 chiffres: non mémorisables!!. On se
demande bien pourquoi autant de changement! .
Pour ma part je suis en migré de V2003 à V2007, et je suis loin d'avoir
fait
le tour des fonctions. Il d'abord que je les retrouve et que je
reconditionne tous mes reflexes.
Effectivement les MEFC sont beaucoup plus riches mais je me demande si
c'est
bien raisonnable d'aller si loin !
Complètement en harmonie; sans compter que, lorsque t'enclenches
l'enregistreur de macro, lorsque tu te sers des MEFC, alors là, les codes de
couleurs sont négatifs et à 6 ou 8 chiffres: non mémorisables!!. On se
demande bien pourquoi autant de changement! .
Pour ma part je suis en migré de V2003 à V2007, et je suis loin d'avoir
faitle tour des fonctions. Il d'abord que je les retrouve et que je
reconditionne tous mes reflexes.
Effectivement les MEFC sont beaucoup plus riches mais je me demande si
c'estbien raisonnable d'aller si loin !
Complètement en harmonie; sans compter que, lorsque t'enclenches
l'enregistreur de macro, lorsque tu te sers des MEFC, alors là, les codes de
couleurs sont négatifs et à 6 ou 8 chiffres: non mémorisables!!. On se
demande bien pourquoi autant de changement! .
Bruno a écrit :
Pour mettre toute la ligne en couleur...
'---------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("R:R")) Is Nothing And Target.Count = 1 Then
With Target
Select Case .Value
Case 1
.EntireRow.Interior.Color = vbRed
Case 2
.EntireRow.Interior.Color = vbBlue
Case 3
.EntireRow.Interior.Color = vbGreen
Case 4
.EntireRow.Interior.Color = vbYellow
Case 5
.EntireRow.Interior.Color = vbMagenta
Case Else
.EntireRow.Interior.ColorIndex = xlNone
End Select
End With
End If
End Sub
'---------------------------------------------------
--
François L
> Bonjour,
> C'est cette macro qui me sera utile : Comment puis-je l'adapter pour mettre
> dans la couleur adéquate tout l'enregistrement de ma base de données dès lors
> que le celule x dans la colonne R est de la valeur 1 ou 2 ou 3 ou 4 ou 5 ,
> selon l'exemple ?
> PS : Je ne suis pas tres doué dans ce domaine.
> Merci de votre aide,
> Bruno
>
> "Francois L" a écrit :
>
>> Bruno a écrit :
>>
>> Bonjour,
>> Jusqu'à 2007, on ne peut utiliser que trois mises en forme
>> conditionnelles (plus la mise en forme par défaut).
>>
>> Il faut donc passer par une procédure évènementielle en VBA.
>>
>> Code ci-dessous adapté à la mise en forme des cellules de la colonne R
>>
>> '---------------------------------------------
>> Private Sub Worksheet_Change(ByVal Target As Range)
>> If Not Intersect(Target, Range("R:R")) Is Nothing And Target.Count = 1 Then
>> With Target
>> Select Case .Value
>> Case 1
>> .Interior.Color = vbRed
>> Case 2
>> .Interior.Color = vbBlue
>> Case 3
>> .Interior.Color = vbGreen
>> Case 4
>> .Interior.Color = vbYellow
>> Case 5
>> .Interior.Color = vbMagenta
>> Case Else
>> .Interior.ColorIndex = xlNone
>> End Select
>> End With
>> End If
>> End Sub
>> '---------------------------------------------------
>>
>> --
>> François L
>>> Bonjour,
>>> J'utilise excel 2000 et je voudrais colorier en rouge un enregistrement
>>> complet (30 cellules en ligne) selon que la valeur contenue dans un cellule
>>> donnée est de 1, en vert si elle est de 2, en jaune, sielleest de 3 etc ( 5
>>> valeurs possibles dans les cellules de la colonne R).
>>> Comment dois-je faire ?
>>>
>>> Merci de votre aide,
>>> Bruno
Bruno a écrit :
Pour mettre toute la ligne en couleur...
'---------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("R:R")) Is Nothing And Target.Count = 1 Then
With Target
Select Case .Value
Case 1
.EntireRow.Interior.Color = vbRed
Case 2
.EntireRow.Interior.Color = vbBlue
Case 3
.EntireRow.Interior.Color = vbGreen
Case 4
.EntireRow.Interior.Color = vbYellow
Case 5
.EntireRow.Interior.Color = vbMagenta
Case Else
.EntireRow.Interior.ColorIndex = xlNone
End Select
End With
End If
End Sub
'---------------------------------------------------
--
François L
> Bonjour,
> C'est cette macro qui me sera utile : Comment puis-je l'adapter pour mettre
> dans la couleur adéquate tout l'enregistrement de ma base de données dès lors
> que le celule x dans la colonne R est de la valeur 1 ou 2 ou 3 ou 4 ou 5 ,
> selon l'exemple ?
> PS : Je ne suis pas tres doué dans ce domaine.
> Merci de votre aide,
> Bruno
>
> "Francois L" a écrit :
>
>> Bruno a écrit :
>>
>> Bonjour,
>> Jusqu'à 2007, on ne peut utiliser que trois mises en forme
>> conditionnelles (plus la mise en forme par défaut).
>>
>> Il faut donc passer par une procédure évènementielle en VBA.
>>
>> Code ci-dessous adapté à la mise en forme des cellules de la colonne R
>>
>> '---------------------------------------------
>> Private Sub Worksheet_Change(ByVal Target As Range)
>> If Not Intersect(Target, Range("R:R")) Is Nothing And Target.Count = 1 Then
>> With Target
>> Select Case .Value
>> Case 1
>> .Interior.Color = vbRed
>> Case 2
>> .Interior.Color = vbBlue
>> Case 3
>> .Interior.Color = vbGreen
>> Case 4
>> .Interior.Color = vbYellow
>> Case 5
>> .Interior.Color = vbMagenta
>> Case Else
>> .Interior.ColorIndex = xlNone
>> End Select
>> End With
>> End If
>> End Sub
>> '---------------------------------------------------
>>
>> --
>> François L
>>> Bonjour,
>>> J'utilise excel 2000 et je voudrais colorier en rouge un enregistrement
>>> complet (30 cellules en ligne) selon que la valeur contenue dans un cellule
>>> donnée est de 1, en vert si elle est de 2, en jaune, sielleest de 3 etc ( 5
>>> valeurs possibles dans les cellules de la colonne R).
>>> Comment dois-je faire ?
>>>
>>> Merci de votre aide,
>>> Bruno
Bruno a écrit :
Pour mettre toute la ligne en couleur...
'---------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("R:R")) Is Nothing And Target.Count = 1 Then
With Target
Select Case .Value
Case 1
.EntireRow.Interior.Color = vbRed
Case 2
.EntireRow.Interior.Color = vbBlue
Case 3
.EntireRow.Interior.Color = vbGreen
Case 4
.EntireRow.Interior.Color = vbYellow
Case 5
.EntireRow.Interior.Color = vbMagenta
Case Else
.EntireRow.Interior.ColorIndex = xlNone
End Select
End With
End If
End Sub
'---------------------------------------------------
--
François L
> Bonjour,
> C'est cette macro qui me sera utile : Comment puis-je l'adapter pour mettre
> dans la couleur adéquate tout l'enregistrement de ma base de données dès lors
> que le celule x dans la colonne R est de la valeur 1 ou 2 ou 3 ou 4 ou 5 ,
> selon l'exemple ?
> PS : Je ne suis pas tres doué dans ce domaine.
> Merci de votre aide,
> Bruno
>
> "Francois L" a écrit :
>
>> Bruno a écrit :
>>
>> Bonjour,
>> Jusqu'à 2007, on ne peut utiliser que trois mises en forme
>> conditionnelles (plus la mise en forme par défaut).
>>
>> Il faut donc passer par une procédure évènementielle en VBA.
>>
>> Code ci-dessous adapté à la mise en forme des cellules de la colonne R
>>
>> '---------------------------------------------
>> Private Sub Worksheet_Change(ByVal Target As Range)
>> If Not Intersect(Target, Range("R:R")) Is Nothing And Target.Count = 1 Then
>> With Target
>> Select Case .Value
>> Case 1
>> .Interior.Color = vbRed
>> Case 2
>> .Interior.Color = vbBlue
>> Case 3
>> .Interior.Color = vbGreen
>> Case 4
>> .Interior.Color = vbYellow
>> Case 5
>> .Interior.Color = vbMagenta
>> Case Else
>> .Interior.ColorIndex = xlNone
>> End Select
>> End With
>> End If
>> End Sub
>> '---------------------------------------------------
>>
>> --
>> François L
>>> Bonjour,
>>> J'utilise excel 2000 et je voudrais colorier en rouge un enregistrement
>>> complet (30 cellules en ligne) selon que la valeur contenue dans un cellule
>>> donnée est de 1, en vert si elle est de 2, en jaune, sielleest de 3 etc ( 5
>>> valeurs possibles dans les cellules de la colonne R).
>>> Comment dois-je faire ?
>>>
>>> Merci de votre aide,
>>> Bruno
Bonjour,
J'ai essayé, mais cela ne marche pas : Comment créer la macro applicable à
mon fichier ?
Merci d'avance,
Bruno
"Francois L" a écrit :Bruno a écrit :
Pour mettre toute la ligne en couleur...
'---------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("R:R")) Is Nothing And Target.Count = 1 Then
With Target
Select Case .Value
Case 1
.EntireRow.Interior.Color = vbRed
Case 2
.EntireRow.Interior.Color = vbBlue
Case 3
.EntireRow.Interior.Color = vbGreen
Case 4
.EntireRow.Interior.Color = vbYellow
Case 5
.EntireRow.Interior.Color = vbMagenta
Case Else
.EntireRow.Interior.ColorIndex = xlNone
End Select
End With
End If
End Sub
'---------------------------------------------------
--
François LBonjour,
C'est cette macro qui me sera utile : Comment puis-je l'adapter pour mettre
dans la couleur adéquate tout l'enregistrement de ma base de données dès lors
que le celule x dans la colonne R est de la valeur 1 ou 2 ou 3 ou 4 ou 5 ,
selon l'exemple ?
PS : Je ne suis pas tres doué dans ce domaine.
Merci de votre aide,
Bruno
"Francois L" a écrit :Bruno a écrit :
Bonjour,
Jusqu'à 2007, on ne peut utiliser que trois mises en forme
conditionnelles (plus la mise en forme par défaut).
Il faut donc passer par une procédure évènementielle en VBA.
Code ci-dessous adapté à la mise en forme des cellules de la colonne R
'---------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("R:R")) Is Nothing And Target.Count = 1 Then
With Target
Select Case .Value
Case 1
.Interior.Color = vbRed
Case 2
.Interior.Color = vbBlue
Case 3
.Interior.Color = vbGreen
Case 4
.Interior.Color = vbYellow
Case 5
.Interior.Color = vbMagenta
Case Else
.Interior.ColorIndex = xlNone
End Select
End With
End If
End Sub
'---------------------------------------------------
--
François LBonjour,
J'utilise excel 2000 et je voudrais colorier en rouge un enregistrement
complet (30 cellules en ligne) selon que la valeur contenue dans un cellule
donnée est de 1, en vert si elle est de 2, en jaune, sielleest de 3 etc ( 5
valeurs possibles dans les cellules de la colonne R).
Comment dois-je faire ?
Merci de votre aide,
Bruno
Bonjour,
J'ai essayé, mais cela ne marche pas : Comment créer la macro applicable à
mon fichier ?
Merci d'avance,
Bruno
"Francois L" a écrit :
Bruno a écrit :
Pour mettre toute la ligne en couleur...
'---------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("R:R")) Is Nothing And Target.Count = 1 Then
With Target
Select Case .Value
Case 1
.EntireRow.Interior.Color = vbRed
Case 2
.EntireRow.Interior.Color = vbBlue
Case 3
.EntireRow.Interior.Color = vbGreen
Case 4
.EntireRow.Interior.Color = vbYellow
Case 5
.EntireRow.Interior.Color = vbMagenta
Case Else
.EntireRow.Interior.ColorIndex = xlNone
End Select
End With
End If
End Sub
'---------------------------------------------------
--
François L
Bonjour,
C'est cette macro qui me sera utile : Comment puis-je l'adapter pour mettre
dans la couleur adéquate tout l'enregistrement de ma base de données dès lors
que le celule x dans la colonne R est de la valeur 1 ou 2 ou 3 ou 4 ou 5 ,
selon l'exemple ?
PS : Je ne suis pas tres doué dans ce domaine.
Merci de votre aide,
Bruno
"Francois L" a écrit :
Bruno a écrit :
Bonjour,
Jusqu'à 2007, on ne peut utiliser que trois mises en forme
conditionnelles (plus la mise en forme par défaut).
Il faut donc passer par une procédure évènementielle en VBA.
Code ci-dessous adapté à la mise en forme des cellules de la colonne R
'---------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("R:R")) Is Nothing And Target.Count = 1 Then
With Target
Select Case .Value
Case 1
.Interior.Color = vbRed
Case 2
.Interior.Color = vbBlue
Case 3
.Interior.Color = vbGreen
Case 4
.Interior.Color = vbYellow
Case 5
.Interior.Color = vbMagenta
Case Else
.Interior.ColorIndex = xlNone
End Select
End With
End If
End Sub
'---------------------------------------------------
--
François L
Bonjour,
J'utilise excel 2000 et je voudrais colorier en rouge un enregistrement
complet (30 cellules en ligne) selon que la valeur contenue dans un cellule
donnée est de 1, en vert si elle est de 2, en jaune, sielleest de 3 etc ( 5
valeurs possibles dans les cellules de la colonne R).
Comment dois-je faire ?
Merci de votre aide,
Bruno
Bonjour,
J'ai essayé, mais cela ne marche pas : Comment créer la macro applicable à
mon fichier ?
Merci d'avance,
Bruno
"Francois L" a écrit :Bruno a écrit :
Pour mettre toute la ligne en couleur...
'---------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("R:R")) Is Nothing And Target.Count = 1 Then
With Target
Select Case .Value
Case 1
.EntireRow.Interior.Color = vbRed
Case 2
.EntireRow.Interior.Color = vbBlue
Case 3
.EntireRow.Interior.Color = vbGreen
Case 4
.EntireRow.Interior.Color = vbYellow
Case 5
.EntireRow.Interior.Color = vbMagenta
Case Else
.EntireRow.Interior.ColorIndex = xlNone
End Select
End With
End If
End Sub
'---------------------------------------------------
--
François LBonjour,
C'est cette macro qui me sera utile : Comment puis-je l'adapter pour mettre
dans la couleur adéquate tout l'enregistrement de ma base de données dès lors
que le celule x dans la colonne R est de la valeur 1 ou 2 ou 3 ou 4 ou 5 ,
selon l'exemple ?
PS : Je ne suis pas tres doué dans ce domaine.
Merci de votre aide,
Bruno
"Francois L" a écrit :Bruno a écrit :
Bonjour,
Jusqu'à 2007, on ne peut utiliser que trois mises en forme
conditionnelles (plus la mise en forme par défaut).
Il faut donc passer par une procédure évènementielle en VBA.
Code ci-dessous adapté à la mise en forme des cellules de la colonne R
'---------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("R:R")) Is Nothing And Target.Count = 1 Then
With Target
Select Case .Value
Case 1
.Interior.Color = vbRed
Case 2
.Interior.Color = vbBlue
Case 3
.Interior.Color = vbGreen
Case 4
.Interior.Color = vbYellow
Case 5
.Interior.Color = vbMagenta
Case Else
.Interior.ColorIndex = xlNone
End Select
End With
End If
End Sub
'---------------------------------------------------
--
François LBonjour,
J'utilise excel 2000 et je voudrais colorier en rouge un enregistrement
complet (30 cellules en ligne) selon que la valeur contenue dans un cellule
donnée est de 1, en vert si elle est de 2, en jaune, sielleest de 3 etc ( 5
valeurs possibles dans les cellules de la colonne R).
Comment dois-je faire ?
Merci de votre aide,
Bruno