J'ai regard=E9 les diff=E9rents sujets deja en ligne, mais malgr=E9 cela je=
coince, et viens vous demander votre aide, et m'en explique :
J'ai en E8 un r=E9sultat de calcul (formule de type =3D(E9+E10+E11)/3)
Je souhaite en fonction du r=E9sultat changer la couleur de fond en F8
j'ai donc =E9crit cela :
Sub couleur()
If Range("E8").Value >=3D 0 <=3D 3 Then
Range("F8").Interior.Color =3D 255
End If
If Range("E8").Value > 3.1 <=3D 5 Then
Range("F8").Interior.Color =3D 49407
End If
If Range("E8").Value > 5.1 <=3D 8 Then
Range("F8").Interior.Color =3D 15773696
End If
If Range("E8").Value > 8.1 <=3D 10 Then
Range("F8").Interior.Color =3D 12611584
End If
End Sub
Mon souci est que lors de l'excution de la macro, je vois ma couleur chang=
=E9 4 fois quelque soit le r=E9sultat de ma cellule E8
Quelqu'un aurait il la solution =E0 mon probl=E8me
Merci par avance de votre aide.
Alex
Je viens de lire le fil concernant le changement de couleur. J'ai un problème presque identique et je m'immisce donc ici. Dans un fichier comportant de nombreuses lignes, comment faire pour changer la couleur de chaque ligne en fonction du contenu (1 ou vide) d'une cellule de la ligne en question ?
Merci pour toute aide.
Bonjour, Quelle est la colonne de cette cellule ? Quelle couleur pour les lignes comportant un 1 dans cette cellule ? Et pour celles qui sont vides ? Cordialement. Daniel
Bonsoir,
Merci de vous intéresser à mon problème.
Les colonnes 2 (B) et 3 (C) sont concernées (au passage, je préfère la notation L1C1 qui permet de traiter plus facilement les tableaux comme des matrices mathématiques et ne comprends pas trop l'intérêt des lettres pour les colonnes). Si vide-vide alors pas de fond sinon si 1-vide alors fond jaune clair sinon si 1-1 alors fond vert clair.
Cordialement.
-- Serge Nazarian Pour m'écrire directement : http://cerbermail.com/?ZDkROVSJlu
DanielCo a écrit le 23/10/2015 :
Serge Nazarian avait prétendu :
Bonjour,
Je viens de lire le fil concernant le changement de couleur.
J'ai un problème presque identique et je m'immisce donc ici.
Dans un fichier comportant de nombreuses lignes, comment faire pour changer
la couleur de chaque ligne en fonction du contenu (1 ou vide) d'une cellule
de la ligne en question ?
Merci pour toute aide.
Bonjour,
Quelle est la colonne de cette cellule ? Quelle couleur pour les lignes
comportant un 1 dans cette cellule ? Et pour celles qui sont vides ?
Cordialement.
Daniel
Bonsoir,
Merci de vous intéresser à mon problème.
Les colonnes 2 (B) et 3 (C) sont concernées (au passage, je préfère la
notation L1C1 qui permet de traiter plus facilement les tableaux comme
des matrices mathématiques et ne comprends pas trop l'intérêt des
lettres pour les colonnes).
Si vide-vide alors pas de fond
sinon si 1-vide alors fond jaune clair
sinon si 1-1 alors fond vert clair.
Cordialement.
--
Serge Nazarian
Pour m'écrire directement : http://cerbermail.com/?ZDkROVSJlu
Je viens de lire le fil concernant le changement de couleur. J'ai un problème presque identique et je m'immisce donc ici. Dans un fichier comportant de nombreuses lignes, comment faire pour changer la couleur de chaque ligne en fonction du contenu (1 ou vide) d'une cellule de la ligne en question ?
Merci pour toute aide.
Bonjour, Quelle est la colonne de cette cellule ? Quelle couleur pour les lignes comportant un 1 dans cette cellule ? Et pour celles qui sont vides ? Cordialement. Daniel
Bonsoir,
Merci de vous intéresser à mon problème.
Les colonnes 2 (B) et 3 (C) sont concernées (au passage, je préfère la notation L1C1 qui permet de traiter plus facilement les tableaux comme des matrices mathématiques et ne comprends pas trop l'intérêt des lettres pour les colonnes). Si vide-vide alors pas de fond sinon si 1-vide alors fond jaune clair sinon si 1-1 alors fond vert clair.
Cordialement.
-- Serge Nazarian Pour m'écrire directement : http://cerbermail.com/?ZDkROVSJlu
DanielCo
Les colonnes 2 (B) et 3 (C) sont concernées (au passage, je préfère la notation L1C1 qui permet de traiter plus facilement les tableaux comme des matrices mathématiques et ne comprends pas trop l'intérêt des lettres pour les colonnes). Si vide-vide alors pas de fond sinon si 1-vide alors fond jaune clair sinon si 1-1 alors fond vert clair.
Cordialement.
J'ai appliqué deux règles avec les formules : =ET($B1=1;$C1="") jaune clair =ET($B1=1;$C1=1) vert clair fichier exemple : http://www.cjoint.com/c/EJxrp4TPQFv Daniel
Les colonnes 2 (B) et 3 (C) sont concernées (au passage, je préfère la
notation L1C1 qui permet de traiter plus facilement les tableaux comme des
matrices mathématiques et ne comprends pas trop l'intérêt des lettres pour
les colonnes).
Si vide-vide alors pas de fond
sinon si 1-vide alors fond jaune clair
sinon si 1-1 alors fond vert clair.
Cordialement.
J'ai appliqué deux règles avec les formules :
=ET($B1=1;$C1="")
jaune clair
=ET($B1=1;$C1=1)
vert clair
fichier exemple : http://www.cjoint.com/c/EJxrp4TPQFv
Daniel
Les colonnes 2 (B) et 3 (C) sont concernées (au passage, je préfère la notation L1C1 qui permet de traiter plus facilement les tableaux comme des matrices mathématiques et ne comprends pas trop l'intérêt des lettres pour les colonnes). Si vide-vide alors pas de fond sinon si 1-vide alors fond jaune clair sinon si 1-1 alors fond vert clair.
Cordialement.
J'ai appliqué deux règles avec les formules : =ET($B1=1;$C1="") jaune clair =ET($B1=1;$C1=1) vert clair fichier exemple : http://www.cjoint.com/c/EJxrp4TPQFv Daniel
Serge Nazarian
DanielCo a écrit le 23/10/2015 :
Les colonnes 2 (B) et 3 (C) sont concernées (au passage, je préfère la notation L1C1 qui permet de traiter plus facilement les tableaux comme des matrices mathématiques et ne comprends pas trop l'intérêt des lettres pour les colonnes). Si vide-vide alors pas de fond sinon si 1-vide alors fond jaune clair sinon si 1-1 alors fond vert clair.
Cordialement.
J'ai appliqué deux règles avec les formules : =ET($B1=1;$C1="") jaune clair =ET($B1=1;$C1=1) vert clair fichier exemple : http://www.cjoint.com/c/EJxrp4TPQFv Daniel
Merci beaucoup, je vois que ça marche. Mais où sont les "règles" ? Je pensais à une macro que je ne vois pas dans l'exemple. Précision : je suis avec excel 2003.
-- Serge Nazarian Pour m'écrire directement : http://cerbermail.com/?ZDkROVSJlu
DanielCo a écrit le 23/10/2015 :
Les colonnes 2 (B) et 3 (C) sont concernées (au passage, je préfère la
notation L1C1 qui permet de traiter plus facilement les tableaux comme des
matrices mathématiques et ne comprends pas trop l'intérêt des lettres pour
les colonnes).
Si vide-vide alors pas de fond
sinon si 1-vide alors fond jaune clair
sinon si 1-1 alors fond vert clair.
Cordialement.
J'ai appliqué deux règles avec les formules :
=ET($B1=1;$C1="")
jaune clair
=ET($B1=1;$C1=1)
vert clair
fichier exemple : http://www.cjoint.com/c/EJxrp4TPQFv
Daniel
Merci beaucoup, je vois que ça marche.
Mais où sont les "règles" ?
Je pensais à une macro que je ne vois pas dans l'exemple.
Précision : je suis avec excel 2003.
--
Serge Nazarian
Pour m'écrire directement : http://cerbermail.com/?ZDkROVSJlu
Les colonnes 2 (B) et 3 (C) sont concernées (au passage, je préfère la notation L1C1 qui permet de traiter plus facilement les tableaux comme des matrices mathématiques et ne comprends pas trop l'intérêt des lettres pour les colonnes). Si vide-vide alors pas de fond sinon si 1-vide alors fond jaune clair sinon si 1-1 alors fond vert clair.
Cordialement.
J'ai appliqué deux règles avec les formules : =ET($B1=1;$C1="") jaune clair =ET($B1=1;$C1=1) vert clair fichier exemple : http://www.cjoint.com/c/EJxrp4TPQFv Daniel
Merci beaucoup, je vois que ça marche. Mais où sont les "règles" ? Je pensais à une macro que je ne vois pas dans l'exemple. Précision : je suis avec excel 2003.
-- Serge Nazarian Pour m'écrire directement : http://cerbermail.com/?ZDkROVSJlu
DanielCo
Serge Nazarian avait soumis l'idée :
Merci beaucoup, je vois que ça marche. Mais où sont les "règles" ? Je pensais à une macro que je ne vois pas dans l'exemple. Précision : je suis avec excel 2003.
De mémoire, dans Excel 2003, c'est Format, Mise en forme conditiionelle. Tu voulais une macro ? Daniel
Serge Nazarian avait soumis l'idée :
Merci beaucoup, je vois que ça marche.
Mais où sont les "règles" ?
Je pensais à une macro que je ne vois pas dans l'exemple.
Précision : je suis avec excel 2003.
De mémoire, dans Excel 2003, c'est Format, Mise en forme conditiionelle. Tu
voulais une macro ?
Daniel
Merci beaucoup, je vois que ça marche. Mais où sont les "règles" ? Je pensais à une macro que je ne vois pas dans l'exemple. Précision : je suis avec excel 2003.
De mémoire, dans Excel 2003, c'est Format, Mise en forme conditiionelle. Tu voulais une macro ? Daniel
Merci beaucoup, je vois que ça marche. Mais où sont les "règles" ? Je pensais à une macro que je ne vois pas dans l'exemple. Précision : je suis avec excel 2003.
De mémoire, dans Excel 2003, c'est Format, Mise en forme conditiionelle. Tu voulais une macro ? Daniel
Oui, même si c'est inutile ici. Du genre :
Pour ligne allant de 1 à (la dernière non vide) Faire si (LC2 est vide) et (LC3 contient 1) alors (colorer le fond) sinon si (LC2 contient 1) et (LC3 contient 1) alors ...
-- Serge Nazarian Pour m'écrire directement : http://cerbermail.com/?ZDkROVSJlu
DanielCo a écrit le 23/10/2015 :
Serge Nazarian avait soumis l'idée :
Merci beaucoup, je vois que ça marche.
Mais où sont les "règles" ?
Je pensais à une macro que je ne vois pas dans l'exemple.
Précision : je suis avec excel 2003.
De mémoire, dans Excel 2003, c'est Format, Mise en forme conditiionelle. Tu
voulais une macro ?
Daniel
Oui, même si c'est inutile ici.
Du genre :
Pour ligne allant de 1 à (la dernière non vide)
Faire
si (LC2 est vide) et (LC3 contient 1) alors (colorer le fond)
sinon si (LC2 contient 1) et (LC3 contient 1) alors ...
--
Serge Nazarian
Pour m'écrire directement : http://cerbermail.com/?ZDkROVSJlu
Merci beaucoup, je vois que ça marche. Mais où sont les "règles" ? Je pensais à une macro que je ne vois pas dans l'exemple. Précision : je suis avec excel 2003.
De mémoire, dans Excel 2003, c'est Format, Mise en forme conditiionelle. Tu voulais une macro ? Daniel
Oui, même si c'est inutile ici. Du genre :
Pour ligne allant de 1 à (la dernière non vide) Faire si (LC2 est vide) et (LC3 contient 1) alors (colorer le fond) sinon si (LC2 contient 1) et (LC3 contient 1) alors ...
-- Serge Nazarian Pour m'écrire directement : http://cerbermail.com/?ZDkROVSJlu
DanielCo
Serge Nazarian a formulé ce vendredi :
DanielCo a écrit le 23/10/2015 :
Serge Nazarian avait soumis l'idée :
Merci beaucoup, je vois que ça marche. Mais où sont les "règles" ? Je pensais à une macro que je ne vois pas dans l'exemple. Précision : je suis avec excel 2003.
De mémoire, dans Excel 2003, c'est Format, Mise en forme conditiionelle. Tu voulais une macro ? Daniel
Oui, même si c'est inutile ici. Du genre :
Pour ligne allant de 1 à (la dernière non vide) Faire si (LC2 est vide) et (LC3 contient 1) alors (colorer le fond) sinon si (LC2 contient 1) et (LC3 contient 1) alors ...
Bonjour, Essaie : Sub Couleurs() Dim I As Long For I = [B:C].Find("*", , , , xlByRows, xlPrevious).Row To 1 Step -1 If Cells(I, 2) = 1 And Cells(I, 3) = "" Then Range(Cells(I, 1), Cells(I, 7)).Interior.Color = 10092543 'plage colonnes A:G ElseIf Cells(I, 2) = 1 And Cells(I, 3) = 1 Then Range(Cells(I, 1), Cells(I, 7)).Interior.Color = 3407769 'plage colonnes A:G End If Next I End Sub Daniel
Serge Nazarian a formulé ce vendredi :
DanielCo a écrit le 23/10/2015 :
Serge Nazarian avait soumis l'idée :
Merci beaucoup, je vois que ça marche.
Mais où sont les "règles" ?
Je pensais à une macro que je ne vois pas dans l'exemple.
Précision : je suis avec excel 2003.
De mémoire, dans Excel 2003, c'est Format, Mise en forme conditiionelle. Tu
voulais une macro ?
Daniel
Oui, même si c'est inutile ici.
Du genre :
Pour ligne allant de 1 à (la dernière non vide)
Faire
si (LC2 est vide) et (LC3 contient 1) alors (colorer le fond)
sinon si (LC2 contient 1) et (LC3 contient 1) alors ...
Bonjour,
Essaie :
Sub Couleurs()
Dim I As Long
For I = [B:C].Find("*", , , , xlByRows, xlPrevious).Row To 1 Step -1
If Cells(I, 2) = 1 And Cells(I, 3) = "" Then
Range(Cells(I, 1), Cells(I, 7)).Interior.Color = 10092543 'plage
colonnes A:G
ElseIf Cells(I, 2) = 1 And Cells(I, 3) = 1 Then
Range(Cells(I, 1), Cells(I, 7)).Interior.Color = 3407769 'plage
colonnes A:G
End If
Next I
End Sub
Daniel
Merci beaucoup, je vois que ça marche. Mais où sont les "règles" ? Je pensais à une macro que je ne vois pas dans l'exemple. Précision : je suis avec excel 2003.
De mémoire, dans Excel 2003, c'est Format, Mise en forme conditiionelle. Tu voulais une macro ? Daniel
Oui, même si c'est inutile ici. Du genre :
Pour ligne allant de 1 à (la dernière non vide) Faire si (LC2 est vide) et (LC3 contient 1) alors (colorer le fond) sinon si (LC2 contient 1) et (LC3 contient 1) alors ...
Bonjour, Essaie : Sub Couleurs() Dim I As Long For I = [B:C].Find("*", , , , xlByRows, xlPrevious).Row To 1 Step -1 If Cells(I, 2) = 1 And Cells(I, 3) = "" Then Range(Cells(I, 1), Cells(I, 7)).Interior.Color = 10092543 'plage colonnes A:G ElseIf Cells(I, 2) = 1 And Cells(I, 3) = 1 Then Range(Cells(I, 1), Cells(I, 7)).Interior.Color = 3407769 'plage colonnes A:G End If Next I End Sub Daniel
Serge Nazarian
DanielCo a écrit le 24/10/2015 :
Serge Nazarian a formulé ce vendredi :
DanielCo a écrit le 23/10/2015 :
Serge Nazarian avait soumis l'idée :
Merci beaucoup, je vois que ça marche. Mais où sont les "règles" ? Je pensais à une macro que je ne vois pas dans l'exemple. Précision : je suis avec excel 2003.
De mémoire, dans Excel 2003, c'est Format, Mise en forme conditiionelle. Tu voulais une macro ? Daniel
Oui, même si c'est inutile ici. Du genre :
Pour ligne allant de 1 à (la dernière non vide) Faire si (LC2 est vide) et (LC3 contient 1) alors (colorer le fond) sinon si (LC2 contient 1) et (LC3 contient 1) alors ...
Bonjour, Essaie : Sub Couleurs() Dim I As Long For I = [B:C].Find("*", , , , xlByRows, xlPrevious).Row To 1 Step -1 If Cells(I, 2) = 1 And Cells(I, 3) = "" Then Range(Cells(I, 1), Cells(I, 7)).Interior.Color = 10092543 'plage colonnes A:G ElseIf Cells(I, 2) = 1 And Cells(I, 3) = 1 Then Range(Cells(I, 1), Cells(I, 7)).Interior.Color = 3407769 'plage colonnes A:G End If Next I End Sub Daniel
Merci, c'est exactement ce que je voulais. Cordialement,
-- Serge Nazarian Pour m'écrire directement : http://cerbermail.com/?ZDkROVSJlu
DanielCo a écrit le 24/10/2015 :
Serge Nazarian a formulé ce vendredi :
DanielCo a écrit le 23/10/2015 :
Serge Nazarian avait soumis l'idée :
Merci beaucoup, je vois que ça marche.
Mais où sont les "règles" ?
Je pensais à une macro que je ne vois pas dans l'exemple.
Précision : je suis avec excel 2003.
De mémoire, dans Excel 2003, c'est Format, Mise en forme conditiionelle.
Tu voulais une macro ?
Daniel
Oui, même si c'est inutile ici.
Du genre :
Pour ligne allant de 1 à (la dernière non vide)
Faire
si (LC2 est vide) et (LC3 contient 1) alors (colorer le fond)
sinon si (LC2 contient 1) et (LC3 contient 1) alors ...
Bonjour,
Essaie :
Sub Couleurs()
Dim I As Long
For I = [B:C].Find("*", , , , xlByRows, xlPrevious).Row To 1 Step -1
If Cells(I, 2) = 1 And Cells(I, 3) = "" Then
Range(Cells(I, 1), Cells(I, 7)).Interior.Color = 10092543 'plage
colonnes A:G
ElseIf Cells(I, 2) = 1 And Cells(I, 3) = 1 Then
Range(Cells(I, 1), Cells(I, 7)).Interior.Color = 3407769 'plage
colonnes A:G
End If
Next I
End Sub
Daniel
Merci, c'est exactement ce que je voulais.
Cordialement,
--
Serge Nazarian
Pour m'écrire directement : http://cerbermail.com/?ZDkROVSJlu
Merci beaucoup, je vois que ça marche. Mais où sont les "règles" ? Je pensais à une macro que je ne vois pas dans l'exemple. Précision : je suis avec excel 2003.
De mémoire, dans Excel 2003, c'est Format, Mise en forme conditiionelle. Tu voulais une macro ? Daniel
Oui, même si c'est inutile ici. Du genre :
Pour ligne allant de 1 à (la dernière non vide) Faire si (LC2 est vide) et (LC3 contient 1) alors (colorer le fond) sinon si (LC2 contient 1) et (LC3 contient 1) alors ...
Bonjour, Essaie : Sub Couleurs() Dim I As Long For I = [B:C].Find("*", , , , xlByRows, xlPrevious).Row To 1 Step -1 If Cells(I, 2) = 1 And Cells(I, 3) = "" Then Range(Cells(I, 1), Cells(I, 7)).Interior.Color = 10092543 'plage colonnes A:G ElseIf Cells(I, 2) = 1 And Cells(I, 3) = 1 Then Range(Cells(I, 1), Cells(I, 7)).Interior.Color = 3407769 'plage colonnes A:G End If Next I End Sub Daniel
Merci, c'est exactement ce que je voulais. Cordialement,
-- Serge Nazarian Pour m'écrire directement : http://cerbermail.com/?ZDkROVSJlu