Bonjours à tous,
Avec la mise en format conditionnel, je peux surligner 3 lignes de
différentes couleurs.
Exemple.A1:D1.
En Bleu si je trouve le mot Bleu.
Rouge si je trouve le mot Rouge.
Jaune si je trouve le mot Jaune.
Mais je voudrais faire la même chose avec le Vert, le Crème ETC...
Possible ?????? si oui comment.
Merci à l'avance
Guy
Bonjours à tous,
Avec la mise en format conditionnel, je peux surligner 3 lignes de
différentes couleurs.
Exemple.A1:D1.
En Bleu si je trouve le mot Bleu.
Rouge si je trouve le mot Rouge.
Jaune si je trouve le mot Jaune.
Mais je voudrais faire la même chose avec le Vert, le Crème ETC...
Possible ?????? si oui comment.
Merci à l'avance
Guy
Bonjours à tous,
Avec la mise en format conditionnel, je peux surligner 3 lignes de
différentes couleurs.
Exemple.A1:D1.
En Bleu si je trouve le mot Bleu.
Rouge si je trouve le mot Rouge.
Jaune si je trouve le mot Jaune.
Mais je voudrais faire la même chose avec le Vert, le Crème ETC...
Possible ?????? si oui comment.
Merci à l'avance
Guy
J'ai posté hier à 21h42 le message suivant :
Bonsoir.
Essaie (en rajoutant les autres couleurs) :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:A5")) Is Nothing Then Exit Sub
If [Target] = "rouge" Then
Target.EntireRow.Interior.ColorIndex = 3
Exit Sub
End If
If [Target] = "jaune" Then
Target.EntireRow.Interior.ColorIndex = 6
Exit Sub
End If
'etc.
End Sub
Pas reçu de commentaire sur cette solution.
Cordialement.
Daniel
"Guy72" a écrit dans le message de news:
%Bonjours à tous,
Avec la mise en format conditionnel, je peux surligner 3 lignes de
différentes couleurs.
Exemple.A1:D1.
En Bleu si je trouve le mot Bleu.
Rouge si je trouve le mot Rouge.
Jaune si je trouve le mot Jaune.
Mais je voudrais faire la même chose avec le Vert, le Crème ETC...
Possible ?????? si oui comment.
Merci à l'avance
Guy
J'ai posté hier à 21h42 le message suivant :
Bonsoir.
Essaie (en rajoutant les autres couleurs) :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:A5")) Is Nothing Then Exit Sub
If [Target] = "rouge" Then
Target.EntireRow.Interior.ColorIndex = 3
Exit Sub
End If
If [Target] = "jaune" Then
Target.EntireRow.Interior.ColorIndex = 6
Exit Sub
End If
'etc.
End Sub
Pas reçu de commentaire sur cette solution.
Cordialement.
Daniel
"Guy72" <guy72@nospam.ouf> a écrit dans le message de news:
%23meCRGaTGHA.5924@TK2MSFTNGP09.phx.gbl...
Bonjours à tous,
Avec la mise en format conditionnel, je peux surligner 3 lignes de
différentes couleurs.
Exemple.A1:D1.
En Bleu si je trouve le mot Bleu.
Rouge si je trouve le mot Rouge.
Jaune si je trouve le mot Jaune.
Mais je voudrais faire la même chose avec le Vert, le Crème ETC...
Possible ?????? si oui comment.
Merci à l'avance
Guy
J'ai posté hier à 21h42 le message suivant :
Bonsoir.
Essaie (en rajoutant les autres couleurs) :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:A5")) Is Nothing Then Exit Sub
If [Target] = "rouge" Then
Target.EntireRow.Interior.ColorIndex = 3
Exit Sub
End If
If [Target] = "jaune" Then
Target.EntireRow.Interior.ColorIndex = 6
Exit Sub
End If
'etc.
End Sub
Pas reçu de commentaire sur cette solution.
Cordialement.
Daniel
"Guy72" a écrit dans le message de news:
%Bonjours à tous,
Avec la mise en format conditionnel, je peux surligner 3 lignes de
différentes couleurs.
Exemple.A1:D1.
En Bleu si je trouve le mot Bleu.
Rouge si je trouve le mot Rouge.
Jaune si je trouve le mot Jaune.
Mais je voudrais faire la même chose avec le Vert, le Crème ETC...
Possible ?????? si oui comment.
Merci à l'avance
Guy
J'ai fait une erreur c'est A1 : F1 et non A1 : A5.
J'ai remplacer dans la macro mais, j'ai le message suivant :
"Erreur de compilation Bloc If sans End If".
Après avoir fait OK.
Le mot "End sub" est surligné en bleu et "Sub Lignes( non de la macro)est
suligné en jaune.
Guy
"Daniel" a écrit dans le message de news:
%J'ai posté hier à 21h42 le message suivant :
Bonsoir.
Essaie (en rajoutant les autres couleurs) :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:A5")) Is Nothing Then Exit Sub
If [Target] = "rouge" Then
Target.EntireRow.Interior.ColorIndex = 3
Exit Sub
End If
If [Target] = "jaune" Then
Target.EntireRow.Interior.ColorIndex = 6
Exit Sub
End If
'etc.
End Sub
Pas reçu de commentaire sur cette solution.
Cordialement.
Daniel
"Guy72" a écrit dans le message de news:
%Bonjours à tous,
Avec la mise en format conditionnel, je peux surligner 3 lignes de
différentes couleurs.
Exemple.A1:D1.
En Bleu si je trouve le mot Bleu.
Rouge si je trouve le mot Rouge.
Jaune si je trouve le mot Jaune.
Mais je voudrais faire la même chose avec le Vert, le Crème ETC...
Possible ?????? si oui comment.
Merci à l'avance
Guy
J'ai fait une erreur c'est A1 : F1 et non A1 : A5.
J'ai remplacer dans la macro mais, j'ai le message suivant :
"Erreur de compilation Bloc If sans End If".
Après avoir fait OK.
Le mot "End sub" est surligné en bleu et "Sub Lignes( non de la macro)est
suligné en jaune.
Guy
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23saiikaTGHA.2276@tk2msftngp13.phx.gbl...
J'ai posté hier à 21h42 le message suivant :
Bonsoir.
Essaie (en rajoutant les autres couleurs) :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:A5")) Is Nothing Then Exit Sub
If [Target] = "rouge" Then
Target.EntireRow.Interior.ColorIndex = 3
Exit Sub
End If
If [Target] = "jaune" Then
Target.EntireRow.Interior.ColorIndex = 6
Exit Sub
End If
'etc.
End Sub
Pas reçu de commentaire sur cette solution.
Cordialement.
Daniel
"Guy72" <guy72@nospam.ouf> a écrit dans le message de news:
%23meCRGaTGHA.5924@TK2MSFTNGP09.phx.gbl...
Bonjours à tous,
Avec la mise en format conditionnel, je peux surligner 3 lignes de
différentes couleurs.
Exemple.A1:D1.
En Bleu si je trouve le mot Bleu.
Rouge si je trouve le mot Rouge.
Jaune si je trouve le mot Jaune.
Mais je voudrais faire la même chose avec le Vert, le Crème ETC...
Possible ?????? si oui comment.
Merci à l'avance
Guy
J'ai fait une erreur c'est A1 : F1 et non A1 : A5.
J'ai remplacer dans la macro mais, j'ai le message suivant :
"Erreur de compilation Bloc If sans End If".
Après avoir fait OK.
Le mot "End sub" est surligné en bleu et "Sub Lignes( non de la macro)est
suligné en jaune.
Guy
"Daniel" a écrit dans le message de news:
%J'ai posté hier à 21h42 le message suivant :
Bonsoir.
Essaie (en rajoutant les autres couleurs) :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:A5")) Is Nothing Then Exit Sub
If [Target] = "rouge" Then
Target.EntireRow.Interior.ColorIndex = 3
Exit Sub
End If
If [Target] = "jaune" Then
Target.EntireRow.Interior.ColorIndex = 6
Exit Sub
End If
'etc.
End Sub
Pas reçu de commentaire sur cette solution.
Cordialement.
Daniel
"Guy72" a écrit dans le message de news:
%Bonjours à tous,
Avec la mise en format conditionnel, je peux surligner 3 lignes de
différentes couleurs.
Exemple.A1:D1.
En Bleu si je trouve le mot Bleu.
Rouge si je trouve le mot Rouge.
Jaune si je trouve le mot Jaune.
Mais je voudrais faire la même chose avec le Vert, le Crème ETC...
Possible ?????? si oui comment.
Merci à l'avance
Guy
Bonsoir.
Teste :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:F1")) Is Nothing Then Exit Sub
If [Target] = "rouge" Then
Target.EntireRow.Interior.ColorIndex = 3
Exit Sub
End If
If [Target] = "jaune" Then
Target.EntireRow.Interior.ColorIndex = 6
Exit Sub
End If
'etc.
End Sub
Note que la ligne entière est coloriée. Au cas où tu voudrais ne colorier
qu'une cellule, retire la propriété "entirerow".
Cordialement.
Daniel
"Guy72" a écrit dans le message de news:
OX5%23%J'ai fait une erreur c'est A1 : F1 et non A1 : A5.
J'ai remplacer dans la macro mais, j'ai le message suivant :
"Erreur de compilation Bloc If sans End If".
Après avoir fait OK.
Le mot "End sub" est surligné en bleu et "Sub Lignes( non de la macro)est
suligné en jaune.
Guy
"Daniel" a écrit dans le message de news:
%J'ai posté hier à 21h42 le message suivant :
Bonsoir.
Essaie (en rajoutant les autres couleurs) :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:A5")) Is Nothing Then Exit Sub
If [Target] = "rouge" Then
Target.EntireRow.Interior.ColorIndex = 3
Exit Sub
End If
If [Target] = "jaune" Then
Target.EntireRow.Interior.ColorIndex = 6
Exit Sub
End If
'etc.
End Sub
Pas reçu de commentaire sur cette solution.
Cordialement.
Daniel
"Guy72" a écrit dans le message de news:
%Bonjours à tous,
Avec la mise en format conditionnel, je peux surligner 3 lignes de
différentes couleurs.
Exemple.A1:D1.
En Bleu si je trouve le mot Bleu.
Rouge si je trouve le mot Rouge.
Jaune si je trouve le mot Jaune.
Mais je voudrais faire la même chose avec le Vert, le Crème ETC...
Possible ?????? si oui comment.
Merci à l'avance
Guy
Bonsoir.
Teste :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:F1")) Is Nothing Then Exit Sub
If [Target] = "rouge" Then
Target.EntireRow.Interior.ColorIndex = 3
Exit Sub
End If
If [Target] = "jaune" Then
Target.EntireRow.Interior.ColorIndex = 6
Exit Sub
End If
'etc.
End Sub
Note que la ligne entière est coloriée. Au cas où tu voudrais ne colorier
qu'une cellule, retire la propriété "entirerow".
Cordialement.
Daniel
"Guy72" <guy72@nospam.ouf> a écrit dans le message de news:
OX5%23%239bTGHA.5728@tk2msftngp13.phx.gbl...
J'ai fait une erreur c'est A1 : F1 et non A1 : A5.
J'ai remplacer dans la macro mais, j'ai le message suivant :
"Erreur de compilation Bloc If sans End If".
Après avoir fait OK.
Le mot "End sub" est surligné en bleu et "Sub Lignes( non de la macro)est
suligné en jaune.
Guy
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23saiikaTGHA.2276@tk2msftngp13.phx.gbl...
J'ai posté hier à 21h42 le message suivant :
Bonsoir.
Essaie (en rajoutant les autres couleurs) :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:A5")) Is Nothing Then Exit Sub
If [Target] = "rouge" Then
Target.EntireRow.Interior.ColorIndex = 3
Exit Sub
End If
If [Target] = "jaune" Then
Target.EntireRow.Interior.ColorIndex = 6
Exit Sub
End If
'etc.
End Sub
Pas reçu de commentaire sur cette solution.
Cordialement.
Daniel
"Guy72" <guy72@nospam.ouf> a écrit dans le message de news:
%23meCRGaTGHA.5924@TK2MSFTNGP09.phx.gbl...
Bonjours à tous,
Avec la mise en format conditionnel, je peux surligner 3 lignes de
différentes couleurs.
Exemple.A1:D1.
En Bleu si je trouve le mot Bleu.
Rouge si je trouve le mot Rouge.
Jaune si je trouve le mot Jaune.
Mais je voudrais faire la même chose avec le Vert, le Crème ETC...
Possible ?????? si oui comment.
Merci à l'avance
Guy
Bonsoir.
Teste :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:F1")) Is Nothing Then Exit Sub
If [Target] = "rouge" Then
Target.EntireRow.Interior.ColorIndex = 3
Exit Sub
End If
If [Target] = "jaune" Then
Target.EntireRow.Interior.ColorIndex = 6
Exit Sub
End If
'etc.
End Sub
Note que la ligne entière est coloriée. Au cas où tu voudrais ne colorier
qu'une cellule, retire la propriété "entirerow".
Cordialement.
Daniel
"Guy72" a écrit dans le message de news:
OX5%23%J'ai fait une erreur c'est A1 : F1 et non A1 : A5.
J'ai remplacer dans la macro mais, j'ai le message suivant :
"Erreur de compilation Bloc If sans End If".
Après avoir fait OK.
Le mot "End sub" est surligné en bleu et "Sub Lignes( non de la macro)est
suligné en jaune.
Guy
"Daniel" a écrit dans le message de news:
%J'ai posté hier à 21h42 le message suivant :
Bonsoir.
Essaie (en rajoutant les autres couleurs) :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:A5")) Is Nothing Then Exit Sub
If [Target] = "rouge" Then
Target.EntireRow.Interior.ColorIndex = 3
Exit Sub
End If
If [Target] = "jaune" Then
Target.EntireRow.Interior.ColorIndex = 6
Exit Sub
End If
'etc.
End Sub
Pas reçu de commentaire sur cette solution.
Cordialement.
Daniel
"Guy72" a écrit dans le message de news:
%Bonjours à tous,
Avec la mise en format conditionnel, je peux surligner 3 lignes de
différentes couleurs.
Exemple.A1:D1.
En Bleu si je trouve le mot Bleu.
Rouge si je trouve le mot Rouge.
Jaune si je trouve le mot Jaune.
Mais je voudrais faire la même chose avec le Vert, le Crème ETC...
Possible ?????? si oui comment.
Merci à l'avance
Guy
Bonjour,
Là le message est " End Sub attendu "
Cordialement
Guy
"Daniel" a écrit dans le message de news:Bonsoir.
Teste :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:F1")) Is Nothing Then Exit Sub
If [Target] = "rouge" Then
Target.EntireRow.Interior.ColorIndex = 3
Exit Sub
End If
If [Target] = "jaune" Then
Target.EntireRow.Interior.ColorIndex = 6
Exit Sub
End If
'etc.
End Sub
Note que la ligne entière est coloriée. Au cas où tu voudrais ne colorier
qu'une cellule, retire la propriété "entirerow".
Cordialement.
Daniel
"Guy72" a écrit dans le message de news:
OX5%23%J'ai fait une erreur c'est A1 : F1 et non A1 : A5.
J'ai remplacer dans la macro mais, j'ai le message suivant :
"Erreur de compilation Bloc If sans End If".
Après avoir fait OK.
Le mot "End sub" est surligné en bleu et "Sub Lignes( non de la
macro)est suligné en jaune.
Guy
"Daniel" a écrit dans le message de news:
%J'ai posté hier à 21h42 le message suivant :
Bonsoir.
Essaie (en rajoutant les autres couleurs) :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:A5")) Is Nothing Then Exit Sub
If [Target] = "rouge" Then
Target.EntireRow.Interior.ColorIndex = 3
Exit Sub
End If
If [Target] = "jaune" Then
Target.EntireRow.Interior.ColorIndex = 6
Exit Sub
End If
'etc.
End Sub
Pas reçu de commentaire sur cette solution.
Cordialement.
Daniel
"Guy72" a écrit dans le message de news:
%Bonjours à tous,
Avec la mise en format conditionnel, je peux surligner 3 lignes de
différentes couleurs.
Exemple.A1:D1.
En Bleu si je trouve le mot Bleu.
Rouge si je trouve le mot Rouge.
Jaune si je trouve le mot Jaune.
Mais je voudrais faire la même chose avec le Vert, le Crème ETC...
Possible ?????? si oui comment.
Merci à l'avance
Guy
Bonjour,
Là le message est " End Sub attendu "
Cordialement
Guy
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
OBoa9zgTGHA.1204@TK2MSFTNGP12.phx.gbl...
Bonsoir.
Teste :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:F1")) Is Nothing Then Exit Sub
If [Target] = "rouge" Then
Target.EntireRow.Interior.ColorIndex = 3
Exit Sub
End If
If [Target] = "jaune" Then
Target.EntireRow.Interior.ColorIndex = 6
Exit Sub
End If
'etc.
End Sub
Note que la ligne entière est coloriée. Au cas où tu voudrais ne colorier
qu'une cellule, retire la propriété "entirerow".
Cordialement.
Daniel
"Guy72" <guy72@nospam.ouf> a écrit dans le message de news:
OX5%23%239bTGHA.5728@tk2msftngp13.phx.gbl...
J'ai fait une erreur c'est A1 : F1 et non A1 : A5.
J'ai remplacer dans la macro mais, j'ai le message suivant :
"Erreur de compilation Bloc If sans End If".
Après avoir fait OK.
Le mot "End sub" est surligné en bleu et "Sub Lignes( non de la
macro)est suligné en jaune.
Guy
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23saiikaTGHA.2276@tk2msftngp13.phx.gbl...
J'ai posté hier à 21h42 le message suivant :
Bonsoir.
Essaie (en rajoutant les autres couleurs) :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:A5")) Is Nothing Then Exit Sub
If [Target] = "rouge" Then
Target.EntireRow.Interior.ColorIndex = 3
Exit Sub
End If
If [Target] = "jaune" Then
Target.EntireRow.Interior.ColorIndex = 6
Exit Sub
End If
'etc.
End Sub
Pas reçu de commentaire sur cette solution.
Cordialement.
Daniel
"Guy72" <guy72@nospam.ouf> a écrit dans le message de news:
%23meCRGaTGHA.5924@TK2MSFTNGP09.phx.gbl...
Bonjours à tous,
Avec la mise en format conditionnel, je peux surligner 3 lignes de
différentes couleurs.
Exemple.A1:D1.
En Bleu si je trouve le mot Bleu.
Rouge si je trouve le mot Rouge.
Jaune si je trouve le mot Jaune.
Mais je voudrais faire la même chose avec le Vert, le Crème ETC...
Possible ?????? si oui comment.
Merci à l'avance
Guy
Bonjour,
Là le message est " End Sub attendu "
Cordialement
Guy
"Daniel" a écrit dans le message de news:Bonsoir.
Teste :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:F1")) Is Nothing Then Exit Sub
If [Target] = "rouge" Then
Target.EntireRow.Interior.ColorIndex = 3
Exit Sub
End If
If [Target] = "jaune" Then
Target.EntireRow.Interior.ColorIndex = 6
Exit Sub
End If
'etc.
End Sub
Note que la ligne entière est coloriée. Au cas où tu voudrais ne colorier
qu'une cellule, retire la propriété "entirerow".
Cordialement.
Daniel
"Guy72" a écrit dans le message de news:
OX5%23%J'ai fait une erreur c'est A1 : F1 et non A1 : A5.
J'ai remplacer dans la macro mais, j'ai le message suivant :
"Erreur de compilation Bloc If sans End If".
Après avoir fait OK.
Le mot "End sub" est surligné en bleu et "Sub Lignes( non de la
macro)est suligné en jaune.
Guy
"Daniel" a écrit dans le message de news:
%J'ai posté hier à 21h42 le message suivant :
Bonsoir.
Essaie (en rajoutant les autres couleurs) :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:A5")) Is Nothing Then Exit Sub
If [Target] = "rouge" Then
Target.EntireRow.Interior.ColorIndex = 3
Exit Sub
End If
If [Target] = "jaune" Then
Target.EntireRow.Interior.ColorIndex = 6
Exit Sub
End If
'etc.
End Sub
Pas reçu de commentaire sur cette solution.
Cordialement.
Daniel
"Guy72" a écrit dans le message de news:
%Bonjours à tous,
Avec la mise en format conditionnel, je peux surligner 3 lignes de
différentes couleurs.
Exemple.A1:D1.
En Bleu si je trouve le mot Bleu.
Rouge si je trouve le mot Rouge.
Jaune si je trouve le mot Jaune.
Mais je voudrais faire la même chose avec le Vert, le Crème ETC...
Possible ?????? si oui comment.
Merci à l'avance
Guy
Bonjour.
Tu as ce message avec mon classeur ou avec le tien ?
Daniel
"Guy72" a écrit dans le message de news:Bonjour,
Là le message est " End Sub attendu "
Cordialement
Guy
"Daniel" a écrit dans le message de news:Bonsoir.
Teste :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:F1")) Is Nothing Then Exit Sub
If [Target] = "rouge" Then
Target.EntireRow.Interior.ColorIndex = 3
Exit Sub
End If
If [Target] = "jaune" Then
Target.EntireRow.Interior.ColorIndex = 6
Exit Sub
End If
'etc.
End Sub
Note que la ligne entière est coloriée. Au cas où tu voudrais ne
colorier qu'une cellule, retire la propriété "entirerow".
Cordialement.
Daniel
"Guy72" a écrit dans le message de news:
OX5%23%J'ai fait une erreur c'est A1 : F1 et non A1 : A5.
J'ai remplacer dans la macro mais, j'ai le message suivant :
"Erreur de compilation Bloc If sans End If".
Après avoir fait OK.
Le mot "End sub" est surligné en bleu et "Sub Lignes( non de la
macro)est suligné en jaune.
Guy
"Daniel" a écrit dans le message de news:
%J'ai posté hier à 21h42 le message suivant :
Bonsoir.
Essaie (en rajoutant les autres couleurs) :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:A5")) Is Nothing Then Exit Sub
If [Target] = "rouge" Then
Target.EntireRow.Interior.ColorIndex = 3
Exit Sub
End If
If [Target] = "jaune" Then
Target.EntireRow.Interior.ColorIndex = 6
Exit Sub
End If
'etc.
End Sub
Pas reçu de commentaire sur cette solution.
Cordialement.
Daniel
"Guy72" a écrit dans le message de news:
%Bonjours à tous,
Avec la mise en format conditionnel, je peux surligner 3 lignes de
différentes couleurs.
Exemple.A1:D1.
En Bleu si je trouve le mot Bleu.
Rouge si je trouve le mot Rouge.
Jaune si je trouve le mot Jaune.
Mais je voudrais faire la même chose avec le Vert, le Crème ETC...
Possible ?????? si oui comment.
Merci à l'avance
Guy
Bonjour.
Tu as ce message avec mon classeur ou avec le tien ?
Daniel
"Guy72" <guy72@nospam.ouf> a écrit dans le message de news:
u8wvTwkTGHA.5908@TK2MSFTNGP14.phx.gbl...
Bonjour,
Là le message est " End Sub attendu "
Cordialement
Guy
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
OBoa9zgTGHA.1204@TK2MSFTNGP12.phx.gbl...
Bonsoir.
Teste :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:F1")) Is Nothing Then Exit Sub
If [Target] = "rouge" Then
Target.EntireRow.Interior.ColorIndex = 3
Exit Sub
End If
If [Target] = "jaune" Then
Target.EntireRow.Interior.ColorIndex = 6
Exit Sub
End If
'etc.
End Sub
Note que la ligne entière est coloriée. Au cas où tu voudrais ne
colorier qu'une cellule, retire la propriété "entirerow".
Cordialement.
Daniel
"Guy72" <guy72@nospam.ouf> a écrit dans le message de news:
OX5%23%239bTGHA.5728@tk2msftngp13.phx.gbl...
J'ai fait une erreur c'est A1 : F1 et non A1 : A5.
J'ai remplacer dans la macro mais, j'ai le message suivant :
"Erreur de compilation Bloc If sans End If".
Après avoir fait OK.
Le mot "End sub" est surligné en bleu et "Sub Lignes( non de la
macro)est suligné en jaune.
Guy
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23saiikaTGHA.2276@tk2msftngp13.phx.gbl...
J'ai posté hier à 21h42 le message suivant :
Bonsoir.
Essaie (en rajoutant les autres couleurs) :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:A5")) Is Nothing Then Exit Sub
If [Target] = "rouge" Then
Target.EntireRow.Interior.ColorIndex = 3
Exit Sub
End If
If [Target] = "jaune" Then
Target.EntireRow.Interior.ColorIndex = 6
Exit Sub
End If
'etc.
End Sub
Pas reçu de commentaire sur cette solution.
Cordialement.
Daniel
"Guy72" <guy72@nospam.ouf> a écrit dans le message de news:
%23meCRGaTGHA.5924@TK2MSFTNGP09.phx.gbl...
Bonjours à tous,
Avec la mise en format conditionnel, je peux surligner 3 lignes de
différentes couleurs.
Exemple.A1:D1.
En Bleu si je trouve le mot Bleu.
Rouge si je trouve le mot Rouge.
Jaune si je trouve le mot Jaune.
Mais je voudrais faire la même chose avec le Vert, le Crème ETC...
Possible ?????? si oui comment.
Merci à l'avance
Guy
Bonjour.
Tu as ce message avec mon classeur ou avec le tien ?
Daniel
"Guy72" a écrit dans le message de news:Bonjour,
Là le message est " End Sub attendu "
Cordialement
Guy
"Daniel" a écrit dans le message de news:Bonsoir.
Teste :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:F1")) Is Nothing Then Exit Sub
If [Target] = "rouge" Then
Target.EntireRow.Interior.ColorIndex = 3
Exit Sub
End If
If [Target] = "jaune" Then
Target.EntireRow.Interior.ColorIndex = 6
Exit Sub
End If
'etc.
End Sub
Note que la ligne entière est coloriée. Au cas où tu voudrais ne
colorier qu'une cellule, retire la propriété "entirerow".
Cordialement.
Daniel
"Guy72" a écrit dans le message de news:
OX5%23%J'ai fait une erreur c'est A1 : F1 et non A1 : A5.
J'ai remplacer dans la macro mais, j'ai le message suivant :
"Erreur de compilation Bloc If sans End If".
Après avoir fait OK.
Le mot "End sub" est surligné en bleu et "Sub Lignes( non de la
macro)est suligné en jaune.
Guy
"Daniel" a écrit dans le message de news:
%J'ai posté hier à 21h42 le message suivant :
Bonsoir.
Essaie (en rajoutant les autres couleurs) :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:A5")) Is Nothing Then Exit Sub
If [Target] = "rouge" Then
Target.EntireRow.Interior.ColorIndex = 3
Exit Sub
End If
If [Target] = "jaune" Then
Target.EntireRow.Interior.ColorIndex = 6
Exit Sub
End If
'etc.
End Sub
Pas reçu de commentaire sur cette solution.
Cordialement.
Daniel
"Guy72" a écrit dans le message de news:
%Bonjours à tous,
Avec la mise en format conditionnel, je peux surligner 3 lignes de
différentes couleurs.
Exemple.A1:D1.
En Bleu si je trouve le mot Bleu.
Rouge si je trouve le mot Rouge.
Jaune si je trouve le mot Jaune.
Mais je voudrais faire la même chose avec le Vert, le Crème ETC...
Possible ?????? si oui comment.
Merci à l'avance
Guy
Je n'ai pas ton classeur.
Guy
--
Guy
"Daniel" a écrit dans le message de news:
%Bonjour.
Tu as ce message avec mon classeur ou avec le tien ?
Daniel
"Guy72" a écrit dans le message de news:Bonjour,
Là le message est " End Sub attendu "
Cordialement
Guy
"Daniel" a écrit dans le message de news:Bonsoir.
Teste :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:F1")) Is Nothing Then Exit Sub
If [Target] = "rouge" Then
Target.EntireRow.Interior.ColorIndex = 3
Exit Sub
End If
If [Target] = "jaune" Then
Target.EntireRow.Interior.ColorIndex = 6
Exit Sub
End If
'etc.
End Sub
Note que la ligne entière est coloriée. Au cas où tu voudrais ne
colorier qu'une cellule, retire la propriété "entirerow".
Cordialement.
Daniel
"Guy72" a écrit dans le message de news:
OX5%23%J'ai fait une erreur c'est A1 : F1 et non A1 : A5.
J'ai remplacer dans la macro mais, j'ai le message suivant :
"Erreur de compilation Bloc If sans End If".
Après avoir fait OK.
Le mot "End sub" est surligné en bleu et "Sub Lignes( non de la
macro)est suligné en jaune.
Guy
"Daniel" a écrit dans le message de news:
%J'ai posté hier à 21h42 le message suivant :
Bonsoir.
Essaie (en rajoutant les autres couleurs) :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:A5")) Is Nothing Then Exit Sub
If [Target] = "rouge" Then
Target.EntireRow.Interior.ColorIndex = 3
Exit Sub
End If
If [Target] = "jaune" Then
Target.EntireRow.Interior.ColorIndex = 6
Exit Sub
End If
'etc.
End Sub
Pas reçu de commentaire sur cette solution.
Cordialement.
Daniel
"Guy72" a écrit dans le message de news:
%Bonjours à tous,
Avec la mise en format conditionnel, je peux surligner 3 lignes de
différentes couleurs.
Exemple.A1:D1.
En Bleu si je trouve le mot Bleu.
Rouge si je trouve le mot Rouge.
Jaune si je trouve le mot Jaune.
Mais je voudrais faire la même chose avec le Vert, le Crème ETC...
Possible ?????? si oui comment.
Merci à l'avance
Guy
Je n'ai pas ton classeur.
Guy
--
Guy
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23jS7B8lTGHA.5908@TK2MSFTNGP14.phx.gbl...
Bonjour.
Tu as ce message avec mon classeur ou avec le tien ?
Daniel
"Guy72" <guy72@nospam.ouf> a écrit dans le message de news:
u8wvTwkTGHA.5908@TK2MSFTNGP14.phx.gbl...
Bonjour,
Là le message est " End Sub attendu "
Cordialement
Guy
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
OBoa9zgTGHA.1204@TK2MSFTNGP12.phx.gbl...
Bonsoir.
Teste :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:F1")) Is Nothing Then Exit Sub
If [Target] = "rouge" Then
Target.EntireRow.Interior.ColorIndex = 3
Exit Sub
End If
If [Target] = "jaune" Then
Target.EntireRow.Interior.ColorIndex = 6
Exit Sub
End If
'etc.
End Sub
Note que la ligne entière est coloriée. Au cas où tu voudrais ne
colorier qu'une cellule, retire la propriété "entirerow".
Cordialement.
Daniel
"Guy72" <guy72@nospam.ouf> a écrit dans le message de news:
OX5%23%239bTGHA.5728@tk2msftngp13.phx.gbl...
J'ai fait une erreur c'est A1 : F1 et non A1 : A5.
J'ai remplacer dans la macro mais, j'ai le message suivant :
"Erreur de compilation Bloc If sans End If".
Après avoir fait OK.
Le mot "End sub" est surligné en bleu et "Sub Lignes( non de la
macro)est suligné en jaune.
Guy
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23saiikaTGHA.2276@tk2msftngp13.phx.gbl...
J'ai posté hier à 21h42 le message suivant :
Bonsoir.
Essaie (en rajoutant les autres couleurs) :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:A5")) Is Nothing Then Exit Sub
If [Target] = "rouge" Then
Target.EntireRow.Interior.ColorIndex = 3
Exit Sub
End If
If [Target] = "jaune" Then
Target.EntireRow.Interior.ColorIndex = 6
Exit Sub
End If
'etc.
End Sub
Pas reçu de commentaire sur cette solution.
Cordialement.
Daniel
"Guy72" <guy72@nospam.ouf> a écrit dans le message de news:
%23meCRGaTGHA.5924@TK2MSFTNGP09.phx.gbl...
Bonjours à tous,
Avec la mise en format conditionnel, je peux surligner 3 lignes de
différentes couleurs.
Exemple.A1:D1.
En Bleu si je trouve le mot Bleu.
Rouge si je trouve le mot Rouge.
Jaune si je trouve le mot Jaune.
Mais je voudrais faire la même chose avec le Vert, le Crème ETC...
Possible ?????? si oui comment.
Merci à l'avance
Guy
Je n'ai pas ton classeur.
Guy
--
Guy
"Daniel" a écrit dans le message de news:
%Bonjour.
Tu as ce message avec mon classeur ou avec le tien ?
Daniel
"Guy72" a écrit dans le message de news:Bonjour,
Là le message est " End Sub attendu "
Cordialement
Guy
"Daniel" a écrit dans le message de news:Bonsoir.
Teste :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:F1")) Is Nothing Then Exit Sub
If [Target] = "rouge" Then
Target.EntireRow.Interior.ColorIndex = 3
Exit Sub
End If
If [Target] = "jaune" Then
Target.EntireRow.Interior.ColorIndex = 6
Exit Sub
End If
'etc.
End Sub
Note que la ligne entière est coloriée. Au cas où tu voudrais ne
colorier qu'une cellule, retire la propriété "entirerow".
Cordialement.
Daniel
"Guy72" a écrit dans le message de news:
OX5%23%J'ai fait une erreur c'est A1 : F1 et non A1 : A5.
J'ai remplacer dans la macro mais, j'ai le message suivant :
"Erreur de compilation Bloc If sans End If".
Après avoir fait OK.
Le mot "End sub" est surligné en bleu et "Sub Lignes( non de la
macro)est suligné en jaune.
Guy
"Daniel" a écrit dans le message de news:
%J'ai posté hier à 21h42 le message suivant :
Bonsoir.
Essaie (en rajoutant les autres couleurs) :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:A5")) Is Nothing Then Exit Sub
If [Target] = "rouge" Then
Target.EntireRow.Interior.ColorIndex = 3
Exit Sub
End If
If [Target] = "jaune" Then
Target.EntireRow.Interior.ColorIndex = 6
Exit Sub
End If
'etc.
End Sub
Pas reçu de commentaire sur cette solution.
Cordialement.
Daniel
"Guy72" a écrit dans le message de news:
%Bonjours à tous,
Avec la mise en format conditionnel, je peux surligner 3 lignes de
différentes couleurs.
Exemple.A1:D1.
En Bleu si je trouve le mot Bleu.
Rouge si je trouve le mot Rouge.
Jaune si je trouve le mot Jaune.
Mais je voudrais faire la même chose avec le Vert, le Crème ETC...
Possible ?????? si oui comment.
Merci à l'avance
Guy
C'est vrai :
http://cjoint.com/?dxlN7ZH1BE
Daniel
"Guy72" a écrit dans le message de news:
%Je n'ai pas ton classeur.
Guy
--
Guy
"Daniel" a écrit dans le message de news:
%Bonjour.
Tu as ce message avec mon classeur ou avec le tien ?
Daniel
"Guy72" a écrit dans le message de news:Bonjour,
Là le message est " End Sub attendu "
Cordialement
Guy
"Daniel" a écrit dans le message de news:Bonsoir.
Teste :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:F1")) Is Nothing Then Exit Sub
If [Target] = "rouge" Then
Target.EntireRow.Interior.ColorIndex = 3
Exit Sub
End If
If [Target] = "jaune" Then
Target.EntireRow.Interior.ColorIndex = 6
Exit Sub
End If
'etc.
End Sub
Note que la ligne entière est coloriée. Au cas où tu voudrais ne
colorier qu'une cellule, retire la propriété "entirerow".
Cordialement.
Daniel
"Guy72" a écrit dans le message de news:
OX5%23%J'ai fait une erreur c'est A1 : F1 et non A1 : A5.
J'ai remplacer dans la macro mais, j'ai le message suivant :
"Erreur de compilation Bloc If sans End If".
Après avoir fait OK.
Le mot "End sub" est surligné en bleu et "Sub Lignes( non de la
macro)est suligné en jaune.
Guy
"Daniel" a écrit dans le message de news:
%J'ai posté hier à 21h42 le message suivant :
Bonsoir.
Essaie (en rajoutant les autres couleurs) :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:A5")) Is Nothing Then Exit Sub
If [Target] = "rouge" Then
Target.EntireRow.Interior.ColorIndex = 3
Exit Sub
End If
If [Target] = "jaune" Then
Target.EntireRow.Interior.ColorIndex = 6
Exit Sub
End If
'etc.
End Sub
Pas reçu de commentaire sur cette solution.
Cordialement.
Daniel
"Guy72" a écrit dans le message de news:
%Bonjours à tous,
Avec la mise en format conditionnel, je peux surligner 3 lignes de
différentes couleurs.
Exemple.A1:D1.
En Bleu si je trouve le mot Bleu.
Rouge si je trouve le mot Rouge.
Jaune si je trouve le mot Jaune.
Mais je voudrais faire la même chose avec le Vert, le Crème ETC...
Possible ?????? si oui comment.
Merci à l'avance
Guy
C'est vrai :
http://cjoint.com/?dxlN7ZH1BE
Daniel
"Guy72" <guy72@nospam.ouf> a écrit dans le message de news:
%23gcdlUmTGHA.1160@TK2MSFTNGP09.phx.gbl...
Je n'ai pas ton classeur.
Guy
--
Guy
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23jS7B8lTGHA.5908@TK2MSFTNGP14.phx.gbl...
Bonjour.
Tu as ce message avec mon classeur ou avec le tien ?
Daniel
"Guy72" <guy72@nospam.ouf> a écrit dans le message de news:
u8wvTwkTGHA.5908@TK2MSFTNGP14.phx.gbl...
Bonjour,
Là le message est " End Sub attendu "
Cordialement
Guy
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
OBoa9zgTGHA.1204@TK2MSFTNGP12.phx.gbl...
Bonsoir.
Teste :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:F1")) Is Nothing Then Exit Sub
If [Target] = "rouge" Then
Target.EntireRow.Interior.ColorIndex = 3
Exit Sub
End If
If [Target] = "jaune" Then
Target.EntireRow.Interior.ColorIndex = 6
Exit Sub
End If
'etc.
End Sub
Note que la ligne entière est coloriée. Au cas où tu voudrais ne
colorier qu'une cellule, retire la propriété "entirerow".
Cordialement.
Daniel
"Guy72" <guy72@nospam.ouf> a écrit dans le message de news:
OX5%23%239bTGHA.5728@tk2msftngp13.phx.gbl...
J'ai fait une erreur c'est A1 : F1 et non A1 : A5.
J'ai remplacer dans la macro mais, j'ai le message suivant :
"Erreur de compilation Bloc If sans End If".
Après avoir fait OK.
Le mot "End sub" est surligné en bleu et "Sub Lignes( non de la
macro)est suligné en jaune.
Guy
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23saiikaTGHA.2276@tk2msftngp13.phx.gbl...
J'ai posté hier à 21h42 le message suivant :
Bonsoir.
Essaie (en rajoutant les autres couleurs) :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:A5")) Is Nothing Then Exit Sub
If [Target] = "rouge" Then
Target.EntireRow.Interior.ColorIndex = 3
Exit Sub
End If
If [Target] = "jaune" Then
Target.EntireRow.Interior.ColorIndex = 6
Exit Sub
End If
'etc.
End Sub
Pas reçu de commentaire sur cette solution.
Cordialement.
Daniel
"Guy72" <guy72@nospam.ouf> a écrit dans le message de news:
%23meCRGaTGHA.5924@TK2MSFTNGP09.phx.gbl...
Bonjours à tous,
Avec la mise en format conditionnel, je peux surligner 3 lignes de
différentes couleurs.
Exemple.A1:D1.
En Bleu si je trouve le mot Bleu.
Rouge si je trouve le mot Rouge.
Jaune si je trouve le mot Jaune.
Mais je voudrais faire la même chose avec le Vert, le Crème ETC...
Possible ?????? si oui comment.
Merci à l'avance
Guy
C'est vrai :
http://cjoint.com/?dxlN7ZH1BE
Daniel
"Guy72" a écrit dans le message de news:
%Je n'ai pas ton classeur.
Guy
--
Guy
"Daniel" a écrit dans le message de news:
%Bonjour.
Tu as ce message avec mon classeur ou avec le tien ?
Daniel
"Guy72" a écrit dans le message de news:Bonjour,
Là le message est " End Sub attendu "
Cordialement
Guy
"Daniel" a écrit dans le message de news:Bonsoir.
Teste :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:F1")) Is Nothing Then Exit Sub
If [Target] = "rouge" Then
Target.EntireRow.Interior.ColorIndex = 3
Exit Sub
End If
If [Target] = "jaune" Then
Target.EntireRow.Interior.ColorIndex = 6
Exit Sub
End If
'etc.
End Sub
Note que la ligne entière est coloriée. Au cas où tu voudrais ne
colorier qu'une cellule, retire la propriété "entirerow".
Cordialement.
Daniel
"Guy72" a écrit dans le message de news:
OX5%23%J'ai fait une erreur c'est A1 : F1 et non A1 : A5.
J'ai remplacer dans la macro mais, j'ai le message suivant :
"Erreur de compilation Bloc If sans End If".
Après avoir fait OK.
Le mot "End sub" est surligné en bleu et "Sub Lignes( non de la
macro)est suligné en jaune.
Guy
"Daniel" a écrit dans le message de news:
%J'ai posté hier à 21h42 le message suivant :
Bonsoir.
Essaie (en rajoutant les autres couleurs) :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:A5")) Is Nothing Then Exit Sub
If [Target] = "rouge" Then
Target.EntireRow.Interior.ColorIndex = 3
Exit Sub
End If
If [Target] = "jaune" Then
Target.EntireRow.Interior.ColorIndex = 6
Exit Sub
End If
'etc.
End Sub
Pas reçu de commentaire sur cette solution.
Cordialement.
Daniel
"Guy72" a écrit dans le message de news:
%Bonjours à tous,
Avec la mise en format conditionnel, je peux surligner 3 lignes de
différentes couleurs.
Exemple.A1:D1.
En Bleu si je trouve le mot Bleu.
Rouge si je trouve le mot Rouge.
Jaune si je trouve le mot Jaune.
Mais je voudrais faire la même chose avec le Vert, le Crème ETC...
Possible ?????? si oui comment.
Merci à l'avance
Guy
J'ai regarder ton classeur.
On obtient bien la ligne rouge si je clic sur rouge, Jaune si je clic sur
jaune etc.....
J'aime bien, mais j'avoue que je ne comprend pas comment ça marche, je ne
vois de macro.
Mais moi ce que je voudrais que chaque ligne comprenant le mot rouge soit
rouge de A3 à F3, ou jaune, ou bleue etc.....
suivant le mot qu'elle contient.
Exemple.
Le mot Rouge se trouve dans la cellule J3, Jaune en J4, Bleu en J5
Ma plage est de A3 à G26.
Les mots Rouge ou Jaune ou Bleu se trouvent éparpillés dans la colonne E.
Je le fait actuellement avec : dans chaque cellule.
"Mise en forme conditionnelle"
'la formule est =$E10=$J3' pour le rouge, =$E10=$J4 pour le Jaune,
=$E10=$J5 pour le Bleu.
Chaque ligne comprenant le mot Rouge sont rouge jusqu'à la colonne F.
Chaque ligne comprenant le mot Jaune sont jaune jusqu'à la colonne F.
Chaque ligne comprenant le mot Bleu sont bleue jusqu'à la colonne F.
Mais je n'y arrive pas pour + de trois couleurs.
J'espère que mon explication est compréhensible.
J'avoue que ce n'est pas facile de décrire se que l'on voudrais.
Cordialement
Guy
"Daniel" a écrit dans le message de news:C'est vrai :
http://cjoint.com/?dxlN7ZH1BE
Daniel
"Guy72" a écrit dans le message de news:
%Je n'ai pas ton classeur.
Guy
--
Guy
"Daniel" a écrit dans le message de news:
%Bonjour.
Tu as ce message avec mon classeur ou avec le tien ?
Daniel
"Guy72" a écrit dans le message de news:Bonjour,
Là le message est " End Sub attendu "
Cordialement
Guy
"Daniel" a écrit dans le message de news:Bonsoir.
Teste :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:F1")) Is Nothing Then Exit Sub
If [Target] = "rouge" Then
Target.EntireRow.Interior.ColorIndex = 3
Exit Sub
End If
If [Target] = "jaune" Then
Target.EntireRow.Interior.ColorIndex = 6
Exit Sub
End If
'etc.
End Sub
Note que la ligne entière est coloriée. Au cas où tu voudrais ne
colorier qu'une cellule, retire la propriété "entirerow".
Cordialement.
Daniel
"Guy72" a écrit dans le message de news:
OX5%23%J'ai fait une erreur c'est A1 : F1 et non A1 : A5.
J'ai remplacer dans la macro mais, j'ai le message suivant :
"Erreur de compilation Bloc If sans End If".
Après avoir fait OK.
Le mot "End sub" est surligné en bleu et "Sub Lignes( non de la
macro)est suligné en jaune.
Guy
"Daniel" a écrit dans le message de news:
%J'ai posté hier à 21h42 le message suivant :
Bonsoir.
Essaie (en rajoutant les autres couleurs) :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:A5")) Is Nothing Then Exit Sub
If [Target] = "rouge" Then
Target.EntireRow.Interior.ColorIndex = 3
Exit Sub
End If
If [Target] = "jaune" Then
Target.EntireRow.Interior.ColorIndex = 6
Exit Sub
End If
'etc.
End Sub
Pas reçu de commentaire sur cette solution.
Cordialement.
Daniel
"Guy72" a écrit dans le message de news:
%Bonjours à tous,
Avec la mise en format conditionnel, je peux surligner 3 lignes de
différentes couleurs.
Exemple.A1:D1.
En Bleu si je trouve le mot Bleu.
Rouge si je trouve le mot Rouge.
Jaune si je trouve le mot Jaune.
Mais je voudrais faire la même chose avec le Vert, le Crème ETC...
Possible ?????? si oui comment.
Merci à l'avance
Guy
J'ai regarder ton classeur.
On obtient bien la ligne rouge si je clic sur rouge, Jaune si je clic sur
jaune etc.....
J'aime bien, mais j'avoue que je ne comprend pas comment ça marche, je ne
vois de macro.
Mais moi ce que je voudrais que chaque ligne comprenant le mot rouge soit
rouge de A3 à F3, ou jaune, ou bleue etc.....
suivant le mot qu'elle contient.
Exemple.
Le mot Rouge se trouve dans la cellule J3, Jaune en J4, Bleu en J5
Ma plage est de A3 à G26.
Les mots Rouge ou Jaune ou Bleu se trouvent éparpillés dans la colonne E.
Je le fait actuellement avec : dans chaque cellule.
"Mise en forme conditionnelle"
'la formule est =$E10=$J3' pour le rouge, =$E10=$J4 pour le Jaune,
=$E10=$J5 pour le Bleu.
Chaque ligne comprenant le mot Rouge sont rouge jusqu'à la colonne F.
Chaque ligne comprenant le mot Jaune sont jaune jusqu'à la colonne F.
Chaque ligne comprenant le mot Bleu sont bleue jusqu'à la colonne F.
Mais je n'y arrive pas pour + de trois couleurs.
J'espère que mon explication est compréhensible.
J'avoue que ce n'est pas facile de décrire se que l'on voudrais.
Cordialement
Guy
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
eCcS0YmTGHA.776@TK2MSFTNGP09.phx.gbl...
C'est vrai :
http://cjoint.com/?dxlN7ZH1BE
Daniel
"Guy72" <guy72@nospam.ouf> a écrit dans le message de news:
%23gcdlUmTGHA.1160@TK2MSFTNGP09.phx.gbl...
Je n'ai pas ton classeur.
Guy
--
Guy
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23jS7B8lTGHA.5908@TK2MSFTNGP14.phx.gbl...
Bonjour.
Tu as ce message avec mon classeur ou avec le tien ?
Daniel
"Guy72" <guy72@nospam.ouf> a écrit dans le message de news:
u8wvTwkTGHA.5908@TK2MSFTNGP14.phx.gbl...
Bonjour,
Là le message est " End Sub attendu "
Cordialement
Guy
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
OBoa9zgTGHA.1204@TK2MSFTNGP12.phx.gbl...
Bonsoir.
Teste :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:F1")) Is Nothing Then Exit Sub
If [Target] = "rouge" Then
Target.EntireRow.Interior.ColorIndex = 3
Exit Sub
End If
If [Target] = "jaune" Then
Target.EntireRow.Interior.ColorIndex = 6
Exit Sub
End If
'etc.
End Sub
Note que la ligne entière est coloriée. Au cas où tu voudrais ne
colorier qu'une cellule, retire la propriété "entirerow".
Cordialement.
Daniel
"Guy72" <guy72@nospam.ouf> a écrit dans le message de news:
OX5%23%239bTGHA.5728@tk2msftngp13.phx.gbl...
J'ai fait une erreur c'est A1 : F1 et non A1 : A5.
J'ai remplacer dans la macro mais, j'ai le message suivant :
"Erreur de compilation Bloc If sans End If".
Après avoir fait OK.
Le mot "End sub" est surligné en bleu et "Sub Lignes( non de la
macro)est suligné en jaune.
Guy
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23saiikaTGHA.2276@tk2msftngp13.phx.gbl...
J'ai posté hier à 21h42 le message suivant :
Bonsoir.
Essaie (en rajoutant les autres couleurs) :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:A5")) Is Nothing Then Exit Sub
If [Target] = "rouge" Then
Target.EntireRow.Interior.ColorIndex = 3
Exit Sub
End If
If [Target] = "jaune" Then
Target.EntireRow.Interior.ColorIndex = 6
Exit Sub
End If
'etc.
End Sub
Pas reçu de commentaire sur cette solution.
Cordialement.
Daniel
"Guy72" <guy72@nospam.ouf> a écrit dans le message de news:
%23meCRGaTGHA.5924@TK2MSFTNGP09.phx.gbl...
Bonjours à tous,
Avec la mise en format conditionnel, je peux surligner 3 lignes de
différentes couleurs.
Exemple.A1:D1.
En Bleu si je trouve le mot Bleu.
Rouge si je trouve le mot Rouge.
Jaune si je trouve le mot Jaune.
Mais je voudrais faire la même chose avec le Vert, le Crème ETC...
Possible ?????? si oui comment.
Merci à l'avance
Guy
J'ai regarder ton classeur.
On obtient bien la ligne rouge si je clic sur rouge, Jaune si je clic sur
jaune etc.....
J'aime bien, mais j'avoue que je ne comprend pas comment ça marche, je ne
vois de macro.
Mais moi ce que je voudrais que chaque ligne comprenant le mot rouge soit
rouge de A3 à F3, ou jaune, ou bleue etc.....
suivant le mot qu'elle contient.
Exemple.
Le mot Rouge se trouve dans la cellule J3, Jaune en J4, Bleu en J5
Ma plage est de A3 à G26.
Les mots Rouge ou Jaune ou Bleu se trouvent éparpillés dans la colonne E.
Je le fait actuellement avec : dans chaque cellule.
"Mise en forme conditionnelle"
'la formule est =$E10=$J3' pour le rouge, =$E10=$J4 pour le Jaune,
=$E10=$J5 pour le Bleu.
Chaque ligne comprenant le mot Rouge sont rouge jusqu'à la colonne F.
Chaque ligne comprenant le mot Jaune sont jaune jusqu'à la colonne F.
Chaque ligne comprenant le mot Bleu sont bleue jusqu'à la colonne F.
Mais je n'y arrive pas pour + de trois couleurs.
J'espère que mon explication est compréhensible.
J'avoue que ce n'est pas facile de décrire se que l'on voudrais.
Cordialement
Guy
"Daniel" a écrit dans le message de news:C'est vrai :
http://cjoint.com/?dxlN7ZH1BE
Daniel
"Guy72" a écrit dans le message de news:
%Je n'ai pas ton classeur.
Guy
--
Guy
"Daniel" a écrit dans le message de news:
%Bonjour.
Tu as ce message avec mon classeur ou avec le tien ?
Daniel
"Guy72" a écrit dans le message de news:Bonjour,
Là le message est " End Sub attendu "
Cordialement
Guy
"Daniel" a écrit dans le message de news:Bonsoir.
Teste :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:F1")) Is Nothing Then Exit Sub
If [Target] = "rouge" Then
Target.EntireRow.Interior.ColorIndex = 3
Exit Sub
End If
If [Target] = "jaune" Then
Target.EntireRow.Interior.ColorIndex = 6
Exit Sub
End If
'etc.
End Sub
Note que la ligne entière est coloriée. Au cas où tu voudrais ne
colorier qu'une cellule, retire la propriété "entirerow".
Cordialement.
Daniel
"Guy72" a écrit dans le message de news:
OX5%23%J'ai fait une erreur c'est A1 : F1 et non A1 : A5.
J'ai remplacer dans la macro mais, j'ai le message suivant :
"Erreur de compilation Bloc If sans End If".
Après avoir fait OK.
Le mot "End sub" est surligné en bleu et "Sub Lignes( non de la
macro)est suligné en jaune.
Guy
"Daniel" a écrit dans le message de news:
%J'ai posté hier à 21h42 le message suivant :
Bonsoir.
Essaie (en rajoutant les autres couleurs) :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:A5")) Is Nothing Then Exit Sub
If [Target] = "rouge" Then
Target.EntireRow.Interior.ColorIndex = 3
Exit Sub
End If
If [Target] = "jaune" Then
Target.EntireRow.Interior.ColorIndex = 6
Exit Sub
End If
'etc.
End Sub
Pas reçu de commentaire sur cette solution.
Cordialement.
Daniel
"Guy72" a écrit dans le message de news:
%Bonjours à tous,
Avec la mise en format conditionnel, je peux surligner 3 lignes de
différentes couleurs.
Exemple.A1:D1.
En Bleu si je trouve le mot Bleu.
Rouge si je trouve le mot Rouge.
Jaune si je trouve le mot Jaune.
Mais je voudrais faire la même chose avec le Vert, le Crème ETC...
Possible ?????? si oui comment.
Merci à l'avance
Guy
La macro se trouve dans le code de la feuille (clic droit sur l'onglet,
choisir "visualiser le code") :
http://cjoint.com/?dxniT0pviN
Daniel
"Guy72" a écrit dans le message de news:J'ai regarder ton classeur.
On obtient bien la ligne rouge si je clic sur rouge, Jaune si je clic sur
jaune etc.....
J'aime bien, mais j'avoue que je ne comprend pas comment ça marche, je ne
vois de macro.
Mais moi ce que je voudrais que chaque ligne comprenant le mot rouge soit
rouge de A3 à F3, ou jaune, ou bleue etc.....
suivant le mot qu'elle contient.
Exemple.
Le mot Rouge se trouve dans la cellule J3, Jaune en J4, Bleu en J5
Ma plage est de A3 à G26.
Les mots Rouge ou Jaune ou Bleu se trouvent éparpillés dans la colonne E.
Je le fait actuellement avec : dans chaque cellule.
"Mise en forme conditionnelle"
'la formule est =$E10=$J3' pour le rouge, =$E10=$J4 pour le Jaune,
=$E10=$J5 pour le Bleu.
Chaque ligne comprenant le mot Rouge sont rouge jusqu'à la colonne F.
Chaque ligne comprenant le mot Jaune sont jaune jusqu'à la colonne F.
Chaque ligne comprenant le mot Bleu sont bleue jusqu'à la colonne F.
Mais je n'y arrive pas pour + de trois couleurs.
J'espère que mon explication est compréhensible.
J'avoue que ce n'est pas facile de décrire se que l'on voudrais.
Cordialement
Guy
"Daniel" a écrit dans le message de news:C'est vrai :
http://cjoint.com/?dxlN7ZH1BE
Daniel
"Guy72" a écrit dans le message de news:
%Je n'ai pas ton classeur.
Guy
--
Guy
"Daniel" a écrit dans le message de news:
%Bonjour.
Tu as ce message avec mon classeur ou avec le tien ?
Daniel
"Guy72" a écrit dans le message de news:Bonjour,
Là le message est " End Sub attendu "
Cordialement
Guy
"Daniel" a écrit dans le message de news:Bonsoir.
Teste :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:F1")) Is Nothing Then Exit Sub
If [Target] = "rouge" Then
Target.EntireRow.Interior.ColorIndex = 3
Exit Sub
End If
If [Target] = "jaune" Then
Target.EntireRow.Interior.ColorIndex = 6
Exit Sub
End If
'etc.
End Sub
Note que la ligne entière est coloriée. Au cas où tu voudrais ne
colorier qu'une cellule, retire la propriété "entirerow".
Cordialement.
Daniel
"Guy72" a écrit dans le message de news:
OX5%23%J'ai fait une erreur c'est A1 : F1 et non A1 : A5.
J'ai remplacer dans la macro mais, j'ai le message suivant :
"Erreur de compilation Bloc If sans End If".
Après avoir fait OK.
Le mot "End sub" est surligné en bleu et "Sub Lignes( non de la
macro)est suligné en jaune.
Guy
"Daniel" a écrit dans le message de news:
%J'ai posté hier à 21h42 le message suivant :
Bonsoir.
Essaie (en rajoutant les autres couleurs) :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:A5")) Is Nothing Then Exit Sub
If [Target] = "rouge" Then
Target.EntireRow.Interior.ColorIndex = 3
Exit Sub
End If
If [Target] = "jaune" Then
Target.EntireRow.Interior.ColorIndex = 6
Exit Sub
End If
'etc.
End Sub
Pas reçu de commentaire sur cette solution.
Cordialement.
Daniel
"Guy72" a écrit dans le message de news:
%Bonjours à tous,
Avec la mise en format conditionnel, je peux surligner 3 lignes
de différentes couleurs.
Exemple.A1:D1.
En Bleu si je trouve le mot Bleu.
Rouge si je trouve le mot Rouge.
Jaune si je trouve le mot Jaune.
Mais je voudrais faire la même chose avec le Vert, le Crème
ETC...
Possible ?????? si oui comment.
Merci à l'avance
Guy
La macro se trouve dans le code de la feuille (clic droit sur l'onglet,
choisir "visualiser le code") :
http://cjoint.com/?dxniT0pviN
Daniel
"Guy72" <guy72@nospam.ouf> a écrit dans le message de news:
ugVKT6mTGHA.736@TK2MSFTNGP12.phx.gbl...
J'ai regarder ton classeur.
On obtient bien la ligne rouge si je clic sur rouge, Jaune si je clic sur
jaune etc.....
J'aime bien, mais j'avoue que je ne comprend pas comment ça marche, je ne
vois de macro.
Mais moi ce que je voudrais que chaque ligne comprenant le mot rouge soit
rouge de A3 à F3, ou jaune, ou bleue etc.....
suivant le mot qu'elle contient.
Exemple.
Le mot Rouge se trouve dans la cellule J3, Jaune en J4, Bleu en J5
Ma plage est de A3 à G26.
Les mots Rouge ou Jaune ou Bleu se trouvent éparpillés dans la colonne E.
Je le fait actuellement avec : dans chaque cellule.
"Mise en forme conditionnelle"
'la formule est =$E10=$J3' pour le rouge, =$E10=$J4 pour le Jaune,
=$E10=$J5 pour le Bleu.
Chaque ligne comprenant le mot Rouge sont rouge jusqu'à la colonne F.
Chaque ligne comprenant le mot Jaune sont jaune jusqu'à la colonne F.
Chaque ligne comprenant le mot Bleu sont bleue jusqu'à la colonne F.
Mais je n'y arrive pas pour + de trois couleurs.
J'espère que mon explication est compréhensible.
J'avoue que ce n'est pas facile de décrire se que l'on voudrais.
Cordialement
Guy
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
eCcS0YmTGHA.776@TK2MSFTNGP09.phx.gbl...
C'est vrai :
http://cjoint.com/?dxlN7ZH1BE
Daniel
"Guy72" <guy72@nospam.ouf> a écrit dans le message de news:
%23gcdlUmTGHA.1160@TK2MSFTNGP09.phx.gbl...
Je n'ai pas ton classeur.
Guy
--
Guy
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23jS7B8lTGHA.5908@TK2MSFTNGP14.phx.gbl...
Bonjour.
Tu as ce message avec mon classeur ou avec le tien ?
Daniel
"Guy72" <guy72@nospam.ouf> a écrit dans le message de news:
u8wvTwkTGHA.5908@TK2MSFTNGP14.phx.gbl...
Bonjour,
Là le message est " End Sub attendu "
Cordialement
Guy
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
OBoa9zgTGHA.1204@TK2MSFTNGP12.phx.gbl...
Bonsoir.
Teste :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:F1")) Is Nothing Then Exit Sub
If [Target] = "rouge" Then
Target.EntireRow.Interior.ColorIndex = 3
Exit Sub
End If
If [Target] = "jaune" Then
Target.EntireRow.Interior.ColorIndex = 6
Exit Sub
End If
'etc.
End Sub
Note que la ligne entière est coloriée. Au cas où tu voudrais ne
colorier qu'une cellule, retire la propriété "entirerow".
Cordialement.
Daniel
"Guy72" <guy72@nospam.ouf> a écrit dans le message de news:
OX5%23%239bTGHA.5728@tk2msftngp13.phx.gbl...
J'ai fait une erreur c'est A1 : F1 et non A1 : A5.
J'ai remplacer dans la macro mais, j'ai le message suivant :
"Erreur de compilation Bloc If sans End If".
Après avoir fait OK.
Le mot "End sub" est surligné en bleu et "Sub Lignes( non de la
macro)est suligné en jaune.
Guy
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23saiikaTGHA.2276@tk2msftngp13.phx.gbl...
J'ai posté hier à 21h42 le message suivant :
Bonsoir.
Essaie (en rajoutant les autres couleurs) :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:A5")) Is Nothing Then Exit Sub
If [Target] = "rouge" Then
Target.EntireRow.Interior.ColorIndex = 3
Exit Sub
End If
If [Target] = "jaune" Then
Target.EntireRow.Interior.ColorIndex = 6
Exit Sub
End If
'etc.
End Sub
Pas reçu de commentaire sur cette solution.
Cordialement.
Daniel
"Guy72" <guy72@nospam.ouf> a écrit dans le message de news:
%23meCRGaTGHA.5924@TK2MSFTNGP09.phx.gbl...
Bonjours à tous,
Avec la mise en format conditionnel, je peux surligner 3 lignes
de différentes couleurs.
Exemple.A1:D1.
En Bleu si je trouve le mot Bleu.
Rouge si je trouve le mot Rouge.
Jaune si je trouve le mot Jaune.
Mais je voudrais faire la même chose avec le Vert, le Crème
ETC...
Possible ?????? si oui comment.
Merci à l'avance
Guy
La macro se trouve dans le code de la feuille (clic droit sur l'onglet,
choisir "visualiser le code") :
http://cjoint.com/?dxniT0pviN
Daniel
"Guy72" a écrit dans le message de news:J'ai regarder ton classeur.
On obtient bien la ligne rouge si je clic sur rouge, Jaune si je clic sur
jaune etc.....
J'aime bien, mais j'avoue que je ne comprend pas comment ça marche, je ne
vois de macro.
Mais moi ce que je voudrais que chaque ligne comprenant le mot rouge soit
rouge de A3 à F3, ou jaune, ou bleue etc.....
suivant le mot qu'elle contient.
Exemple.
Le mot Rouge se trouve dans la cellule J3, Jaune en J4, Bleu en J5
Ma plage est de A3 à G26.
Les mots Rouge ou Jaune ou Bleu se trouvent éparpillés dans la colonne E.
Je le fait actuellement avec : dans chaque cellule.
"Mise en forme conditionnelle"
'la formule est =$E10=$J3' pour le rouge, =$E10=$J4 pour le Jaune,
=$E10=$J5 pour le Bleu.
Chaque ligne comprenant le mot Rouge sont rouge jusqu'à la colonne F.
Chaque ligne comprenant le mot Jaune sont jaune jusqu'à la colonne F.
Chaque ligne comprenant le mot Bleu sont bleue jusqu'à la colonne F.
Mais je n'y arrive pas pour + de trois couleurs.
J'espère que mon explication est compréhensible.
J'avoue que ce n'est pas facile de décrire se que l'on voudrais.
Cordialement
Guy
"Daniel" a écrit dans le message de news:C'est vrai :
http://cjoint.com/?dxlN7ZH1BE
Daniel
"Guy72" a écrit dans le message de news:
%Je n'ai pas ton classeur.
Guy
--
Guy
"Daniel" a écrit dans le message de news:
%Bonjour.
Tu as ce message avec mon classeur ou avec le tien ?
Daniel
"Guy72" a écrit dans le message de news:Bonjour,
Là le message est " End Sub attendu "
Cordialement
Guy
"Daniel" a écrit dans le message de news:Bonsoir.
Teste :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:F1")) Is Nothing Then Exit Sub
If [Target] = "rouge" Then
Target.EntireRow.Interior.ColorIndex = 3
Exit Sub
End If
If [Target] = "jaune" Then
Target.EntireRow.Interior.ColorIndex = 6
Exit Sub
End If
'etc.
End Sub
Note que la ligne entière est coloriée. Au cas où tu voudrais ne
colorier qu'une cellule, retire la propriété "entirerow".
Cordialement.
Daniel
"Guy72" a écrit dans le message de news:
OX5%23%J'ai fait une erreur c'est A1 : F1 et non A1 : A5.
J'ai remplacer dans la macro mais, j'ai le message suivant :
"Erreur de compilation Bloc If sans End If".
Après avoir fait OK.
Le mot "End sub" est surligné en bleu et "Sub Lignes( non de la
macro)est suligné en jaune.
Guy
"Daniel" a écrit dans le message de news:
%J'ai posté hier à 21h42 le message suivant :
Bonsoir.
Essaie (en rajoutant les autres couleurs) :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:A5")) Is Nothing Then Exit Sub
If [Target] = "rouge" Then
Target.EntireRow.Interior.ColorIndex = 3
Exit Sub
End If
If [Target] = "jaune" Then
Target.EntireRow.Interior.ColorIndex = 6
Exit Sub
End If
'etc.
End Sub
Pas reçu de commentaire sur cette solution.
Cordialement.
Daniel
"Guy72" a écrit dans le message de news:
%Bonjours à tous,
Avec la mise en format conditionnel, je peux surligner 3 lignes
de différentes couleurs.
Exemple.A1:D1.
En Bleu si je trouve le mot Bleu.
Rouge si je trouve le mot Rouge.
Jaune si je trouve le mot Jaune.
Mais je voudrais faire la même chose avec le Vert, le Crème
ETC...
Possible ?????? si oui comment.
Merci à l'avance
Guy
