Bonjour,
J'ai le tableau suivant
Nom Valeur
Toto 10
Toto 15
Tata 11
Tata 25
Tata 12
Titi 15
Titi 12
Je veux mettre en couleur les lignes avec toto
Laisser en blanc les lignes avec tata
Mettre en couleur les lignes avec titi (la même que toto) et ainsi de
suite....
J'essai en vain avec une boucle en vba mais je n'y arrive pas.
Help ?
Beabou
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjour Beabou,
Sub Macro1() Dim c For Each c In Range("A2:A8") If c = "Toto" Or c = "Titi" Then Rows(c.Row).Interior.ColorIndex = 6 Next End Sub
isabelle
Bonjour, J'ai le tableau suivant Nom Valeur Toto 10 Toto 15 Tata 11 Tata 25 Tata 12 Titi 15 Titi 12
Je veux mettre en couleur les lignes avec toto Laisser en blanc les lignes avec tata Mettre en couleur les lignes avec titi (la même que toto) et ainsi de suite.... J'essai en vain avec une boucle en vba mais je n'y arrive pas. Help ? Beabou
bonjour Beabou,
Sub Macro1()
Dim c
For Each c In Range("A2:A8")
If c = "Toto" Or c = "Titi" Then Rows(c.Row).Interior.ColorIndex = 6
Next
End Sub
isabelle
Bonjour,
J'ai le tableau suivant
Nom Valeur
Toto 10
Toto 15
Tata 11
Tata 25
Tata 12
Titi 15
Titi 12
Je veux mettre en couleur les lignes avec toto
Laisser en blanc les lignes avec tata
Mettre en couleur les lignes avec titi (la même que toto) et ainsi de
suite....
J'essai en vain avec une boucle en vba mais je n'y arrive pas.
Help ?
Beabou
Sub Macro1() Dim c For Each c In Range("A2:A8") If c = "Toto" Or c = "Titi" Then Rows(c.Row).Interior.ColorIndex = 6 Next End Sub
isabelle
Bonjour, J'ai le tableau suivant Nom Valeur Toto 10 Toto 15 Tata 11 Tata 25 Tata 12 Titi 15 Titi 12
Je veux mettre en couleur les lignes avec toto Laisser en blanc les lignes avec tata Mettre en couleur les lignes avec titi (la même que toto) et ainsi de suite.... J'essai en vain avec une boucle en vba mais je n'y arrive pas. Help ? Beabou
Beabou
merci mais cela ne me convient pas car le nom n'est jamais le même....
bonjour Beabou,
Sub Macro1() Dim c For Each c In Range("A2:A8") If c = "Toto" Or c = "Titi" Then Rows(c.Row).Interior.ColorIndex = 6 Next End Sub
isabelle
Bonjour, J'ai le tableau suivant Nom Valeur Toto 10 Toto 15 Tata 11 Tata 25 Tata 12 Titi 15 Titi 12
Je veux mettre en couleur les lignes avec toto Laisser en blanc les lignes avec tata Mettre en couleur les lignes avec titi (la même que toto) et ainsi de suite.... J'essai en vain avec une boucle en vba mais je n'y arrive pas. Help ? Beabou
merci mais cela ne me convient pas car le nom n'est jamais le même....
bonjour Beabou,
Sub Macro1()
Dim c
For Each c In Range("A2:A8")
If c = "Toto" Or c = "Titi" Then Rows(c.Row).Interior.ColorIndex = 6
Next
End Sub
isabelle
Bonjour,
J'ai le tableau suivant
Nom Valeur
Toto 10
Toto 15
Tata 11
Tata 25
Tata 12
Titi 15
Titi 12
Je veux mettre en couleur les lignes avec toto
Laisser en blanc les lignes avec tata
Mettre en couleur les lignes avec titi (la même que toto) et ainsi de
suite....
J'essai en vain avec une boucle en vba mais je n'y arrive pas.
Help ?
Beabou
merci mais cela ne me convient pas car le nom n'est jamais le même....
bonjour Beabou,
Sub Macro1() Dim c For Each c In Range("A2:A8") If c = "Toto" Or c = "Titi" Then Rows(c.Row).Interior.ColorIndex = 6 Next End Sub
isabelle
Bonjour, J'ai le tableau suivant Nom Valeur Toto 10 Toto 15 Tata 11 Tata 25 Tata 12 Titi 15 Titi 12
Je veux mettre en couleur les lignes avec toto Laisser en blanc les lignes avec tata Mettre en couleur les lignes avec titi (la même que toto) et ainsi de suite.... J'essai en vain avec une boucle en vba mais je n'y arrive pas. Help ? Beabou
isabelle
et on retrouve ou ce nom ou cette liste de nom ?
isabelle
merci mais cela ne me convient pas car le nom n'est jamais le même....
bonjour Beabou,
Sub Macro1() Dim c For Each c In Range("A2:A8") If c = "Toto" Or c = "Titi" Then Rows(c.Row).Interior.ColorIndex = 6 Next End Sub
isabelle
Bonjour, J'ai le tableau suivant Nom Valeur Toto 10 Toto 15 Tata 11 Tata 25 Tata 12 Titi 15 Titi 12
Je veux mettre en couleur les lignes avec toto Laisser en blanc les lignes avec tata Mettre en couleur les lignes avec titi (la même que toto) et ainsi de suite.... J'essai en vain avec une boucle en vba mais je n'y arrive pas. Help ? Beabou
et on retrouve ou ce nom ou cette liste de nom ?
isabelle
merci mais cela ne me convient pas car le nom n'est jamais le même....
bonjour Beabou,
Sub Macro1()
Dim c
For Each c In Range("A2:A8")
If c = "Toto" Or c = "Titi" Then Rows(c.Row).Interior.ColorIndex = 6
Next
End Sub
isabelle
Bonjour,
J'ai le tableau suivant
Nom Valeur
Toto 10
Toto 15
Tata 11
Tata 25
Tata 12
Titi 15
Titi 12
Je veux mettre en couleur les lignes avec toto
Laisser en blanc les lignes avec tata
Mettre en couleur les lignes avec titi (la même que toto) et ainsi de
suite....
J'essai en vain avec une boucle en vba mais je n'y arrive pas.
Help ?
Beabou
merci mais cela ne me convient pas car le nom n'est jamais le même....
bonjour Beabou,
Sub Macro1() Dim c For Each c In Range("A2:A8") If c = "Toto" Or c = "Titi" Then Rows(c.Row).Interior.ColorIndex = 6 Next End Sub
isabelle
Bonjour, J'ai le tableau suivant Nom Valeur Toto 10 Toto 15 Tata 11 Tata 25 Tata 12 Titi 15 Titi 12
Je veux mettre en couleur les lignes avec toto Laisser en blanc les lignes avec tata Mettre en couleur les lignes avec titi (la même que toto) et ainsi de suite.... J'essai en vain avec une boucle en vba mais je n'y arrive pas. Help ? Beabou
isabelle
Sub Macro2() Dim c liste = Array("Toto", "Titi") For Each c In Range("A2:A8") If Not IsError(Application.Match(c, liste, 0)) Then Rows(c.Row).Interior.ColorIndex = 6 Next End Sub
isabelle
merci mais cela ne me convient pas car le nom n'est jamais le même....
bonjour Beabou,
Sub Macro1() Dim c For Each c In Range("A2:A8") If c = "Toto" Or c = "Titi" Then Rows(c.Row).Interior.ColorIndex = 6 Next End Sub
isabelle
Bonjour, J'ai le tableau suivant Nom Valeur Toto 10 Toto 15 Tata 11 Tata 25 Tata 12 Titi 15 Titi 12
Je veux mettre en couleur les lignes avec toto Laisser en blanc les lignes avec tata Mettre en couleur les lignes avec titi (la même que toto) et ainsi de suite.... J'essai en vain avec une boucle en vba mais je n'y arrive pas. Help ? Beabou
Sub Macro2()
Dim c
liste = Array("Toto", "Titi")
For Each c In Range("A2:A8")
If Not IsError(Application.Match(c, liste, 0)) Then Rows(c.Row).Interior.ColorIndex = 6
Next
End Sub
isabelle
merci mais cela ne me convient pas car le nom n'est jamais le même....
bonjour Beabou,
Sub Macro1()
Dim c
For Each c In Range("A2:A8")
If c = "Toto" Or c = "Titi" Then Rows(c.Row).Interior.ColorIndex = 6
Next
End Sub
isabelle
Bonjour,
J'ai le tableau suivant
Nom Valeur
Toto 10
Toto 15
Tata 11
Tata 25
Tata 12
Titi 15
Titi 12
Je veux mettre en couleur les lignes avec toto
Laisser en blanc les lignes avec tata
Mettre en couleur les lignes avec titi (la même que toto) et ainsi de
suite....
J'essai en vain avec une boucle en vba mais je n'y arrive pas.
Help ?
Beabou
Sub Macro2() Dim c liste = Array("Toto", "Titi") For Each c In Range("A2:A8") If Not IsError(Application.Match(c, liste, 0)) Then Rows(c.Row).Interior.ColorIndex = 6 Next End Sub
isabelle
merci mais cela ne me convient pas car le nom n'est jamais le même....
bonjour Beabou,
Sub Macro1() Dim c For Each c In Range("A2:A8") If c = "Toto" Or c = "Titi" Then Rows(c.Row).Interior.ColorIndex = 6 Next End Sub
isabelle
Bonjour, J'ai le tableau suivant Nom Valeur Toto 10 Toto 15 Tata 11 Tata 25 Tata 12 Titi 15 Titi 12
Je veux mettre en couleur les lignes avec toto Laisser en blanc les lignes avec tata Mettre en couleur les lignes avec titi (la même que toto) et ainsi de suite.... J'essai en vain avec une boucle en vba mais je n'y arrive pas. Help ? Beabou
Pounet95
Bonsoir,
Faut-il comprendre que le tableau est trié et qu'alors il faut mettre la couleur sur le premier groupe de données identiques, puis sur le 3ème, puis 5éme, etc ?
Dans ce cas, en adaptant les couleurs
Sub x() application.screenupdatingúlse xColor = 6 Range("A1").Select xVal = Range("A1").Value Do While ActiveCell.Value <> "" Do While ActiveCell.Value = xVal Rows(ActiveCell.Row).Interior.ColorIndex = xColor ActiveCell.Offset(1, 0).Select Loop xVal = ActiveCell.Value If xColor = 6 Then xColor = 5 Else xColor = 6 End If Loop application.screenupdating=true End Sub
-- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/ "Beabou" a écrit dans le message de news:
merci mais cela ne me convient pas car le nom n'est jamais le même....
bonjour Beabou,
Sub Macro1() Dim c For Each c In Range("A2:A8") If c = "Toto" Or c = "Titi" Then Rows(c.Row).Interior.ColorIndex = 6 Next End Sub
isabelle
Bonjour, J'ai le tableau suivant Nom Valeur Toto 10 Toto 15 Tata 11 Tata 25 Tata 12 Titi 15 Titi 12
Je veux mettre en couleur les lignes avec toto Laisser en blanc les lignes avec tata Mettre en couleur les lignes avec titi (la même que toto) et ainsi de suite.... J'essai en vain avec une boucle en vba mais je n'y arrive pas. Help ? Beabou
Bonsoir,
Faut-il comprendre que le tableau est trié et qu'alors il faut mettre
la couleur sur le premier groupe de données identiques,
puis sur le 3ème, puis 5éme, etc ?
Dans ce cas, en adaptant les couleurs
Sub x()
application.screenupdatingúlse
xColor = 6
Range("A1").Select
xVal = Range("A1").Value
Do While ActiveCell.Value <> ""
Do While ActiveCell.Value = xVal
Rows(ActiveCell.Row).Interior.ColorIndex = xColor
ActiveCell.Offset(1, 0).Select
Loop
xVal = ActiveCell.Value
If xColor = 6 Then
xColor = 5
Else
xColor = 6
End If
Loop
application.screenupdating=true
End Sub
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"Beabou" <Beabou@discussions.microsoft.com> a écrit dans le message de news:
52A3CBA4-EE4B-4C9C-A988-C7A037E97FF4@microsoft.com...
merci mais cela ne me convient pas car le nom n'est jamais le même....
bonjour Beabou,
Sub Macro1()
Dim c
For Each c In Range("A2:A8")
If c = "Toto" Or c = "Titi" Then Rows(c.Row).Interior.ColorIndex = 6
Next
End Sub
isabelle
Bonjour,
J'ai le tableau suivant
Nom Valeur
Toto 10
Toto 15
Tata 11
Tata 25
Tata 12
Titi 15
Titi 12
Je veux mettre en couleur les lignes avec toto
Laisser en blanc les lignes avec tata
Mettre en couleur les lignes avec titi (la même que toto) et ainsi de
suite....
J'essai en vain avec une boucle en vba mais je n'y arrive pas.
Help ?
Beabou
Faut-il comprendre que le tableau est trié et qu'alors il faut mettre la couleur sur le premier groupe de données identiques, puis sur le 3ème, puis 5éme, etc ?
Dans ce cas, en adaptant les couleurs
Sub x() application.screenupdatingúlse xColor = 6 Range("A1").Select xVal = Range("A1").Value Do While ActiveCell.Value <> "" Do While ActiveCell.Value = xVal Rows(ActiveCell.Row).Interior.ColorIndex = xColor ActiveCell.Offset(1, 0).Select Loop xVal = ActiveCell.Value If xColor = 6 Then xColor = 5 Else xColor = 6 End If Loop application.screenupdating=true End Sub
-- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/ "Beabou" a écrit dans le message de news:
merci mais cela ne me convient pas car le nom n'est jamais le même....
bonjour Beabou,
Sub Macro1() Dim c For Each c In Range("A2:A8") If c = "Toto" Or c = "Titi" Then Rows(c.Row).Interior.ColorIndex = 6 Next End Sub
isabelle
Bonjour, J'ai le tableau suivant Nom Valeur Toto 10 Toto 15 Tata 11 Tata 25 Tata 12 Titi 15 Titi 12
Je veux mettre en couleur les lignes avec toto Laisser en blanc les lignes avec tata Mettre en couleur les lignes avec titi (la même que toto) et ainsi de suite.... J'essai en vain avec une boucle en vba mais je n'y arrive pas. Help ? Beabou
Beabou
Merci c'est excatement ce que je voulais.... Bon week-end.
Bonsoir,
Faut-il comprendre que le tableau est trié et qu'alors il faut mettre la couleur sur le premier groupe de données identiques, puis sur le 3ème, puis 5éme, etc ?
Dans ce cas, en adaptant les couleurs
Sub x() application.screenupdatingúlse xColor = 6 Range("A1").Select xVal = Range("A1").Value Do While ActiveCell.Value <> "" Do While ActiveCell.Value = xVal Rows(ActiveCell.Row).Interior.ColorIndex = xColor ActiveCell.Offset(1, 0).Select Loop xVal = ActiveCell.Value If xColor = 6 Then xColor = 5 Else xColor = 6 End If Loop application.screenupdating=true End Sub
-- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/ "Beabou" a écrit dans le message de news:
merci mais cela ne me convient pas car le nom n'est jamais le même....
bonjour Beabou,
Sub Macro1() Dim c For Each c In Range("A2:A8") If c = "Toto" Or c = "Titi" Then Rows(c.Row).Interior.ColorIndex = 6 Next End Sub
isabelle
Bonjour, J'ai le tableau suivant Nom Valeur Toto 10 Toto 15 Tata 11 Tata 25 Tata 12 Titi 15 Titi 12
Je veux mettre en couleur les lignes avec toto Laisser en blanc les lignes avec tata Mettre en couleur les lignes avec titi (la même que toto) et ainsi de suite.... J'essai en vain avec une boucle en vba mais je n'y arrive pas. Help ? Beabou
Merci c'est excatement ce que je voulais....
Bon week-end.
Bonsoir,
Faut-il comprendre que le tableau est trié et qu'alors il faut mettre
la couleur sur le premier groupe de données identiques,
puis sur le 3ème, puis 5éme, etc ?
Dans ce cas, en adaptant les couleurs
Sub x()
application.screenupdatingúlse
xColor = 6
Range("A1").Select
xVal = Range("A1").Value
Do While ActiveCell.Value <> ""
Do While ActiveCell.Value = xVal
Rows(ActiveCell.Row).Interior.ColorIndex = xColor
ActiveCell.Offset(1, 0).Select
Loop
xVal = ActiveCell.Value
If xColor = 6 Then
xColor = 5
Else
xColor = 6
End If
Loop
application.screenupdating=true
End Sub
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"Beabou" <Beabou@discussions.microsoft.com> a écrit dans le message de news:
52A3CBA4-EE4B-4C9C-A988-C7A037E97FF4@microsoft.com...
merci mais cela ne me convient pas car le nom n'est jamais le même....
bonjour Beabou,
Sub Macro1()
Dim c
For Each c In Range("A2:A8")
If c = "Toto" Or c = "Titi" Then Rows(c.Row).Interior.ColorIndex = 6
Next
End Sub
isabelle
Bonjour,
J'ai le tableau suivant
Nom Valeur
Toto 10
Toto 15
Tata 11
Tata 25
Tata 12
Titi 15
Titi 12
Je veux mettre en couleur les lignes avec toto
Laisser en blanc les lignes avec tata
Mettre en couleur les lignes avec titi (la même que toto) et ainsi de
suite....
J'essai en vain avec une boucle en vba mais je n'y arrive pas.
Help ?
Beabou
Merci c'est excatement ce que je voulais.... Bon week-end.
Bonsoir,
Faut-il comprendre que le tableau est trié et qu'alors il faut mettre la couleur sur le premier groupe de données identiques, puis sur le 3ème, puis 5éme, etc ?
Dans ce cas, en adaptant les couleurs
Sub x() application.screenupdatingúlse xColor = 6 Range("A1").Select xVal = Range("A1").Value Do While ActiveCell.Value <> "" Do While ActiveCell.Value = xVal Rows(ActiveCell.Row).Interior.ColorIndex = xColor ActiveCell.Offset(1, 0).Select Loop xVal = ActiveCell.Value If xColor = 6 Then xColor = 5 Else xColor = 6 End If Loop application.screenupdating=true End Sub
-- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/ "Beabou" a écrit dans le message de news:
merci mais cela ne me convient pas car le nom n'est jamais le même....
bonjour Beabou,
Sub Macro1() Dim c For Each c In Range("A2:A8") If c = "Toto" Or c = "Titi" Then Rows(c.Row).Interior.ColorIndex = 6 Next End Sub
isabelle
Bonjour, J'ai le tableau suivant Nom Valeur Toto 10 Toto 15 Tata 11 Tata 25 Tata 12 Titi 15 Titi 12
Je veux mettre en couleur les lignes avec toto Laisser en blanc les lignes avec tata Mettre en couleur les lignes avec titi (la même que toto) et ainsi de suite.... J'essai en vain avec une boucle en vba mais je n'y arrive pas. Help ? Beabou
