Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel couleur de fond de cellule suivant conditions

couleur de fond de cellule suivant conditions

6 réponses
Avatar
Chrisdolby
Bonjour,

j'ai 2 lignes (D7;U7) et (D8;U8) contenant des chiffres.Je souhaiterais que
lorsque les chiffres d'une même colonne sont identiques, les cellules
concernées aient un fond rouge.

Merci!

Chris
Signaler un problème avec ce contenu

6 réponses

Supprimer
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
Avatar
Jacky
Bonjour,

Selection de D7:U8
Format / mise en forme conditionnelle
Condition 1
La formule est =D$7=D$8
Format etc..
Ok

--
Salutations
JJ


"Chrisdolby" a écrit dans le message
de news:
Bonjour,

j'ai 2 lignes (D7;U7) et (D8;U8) contenant des chiffres.Je souhaiterais
que
lorsque les chiffres d'une même colonne sont identiques, les cellules
concernées aient un fond rouge.

Merci!

Chris


Avatar
Chrisdolby
Merci pour la rapidité de votre réponse, toutefois mon problème est que ce
conditionnement se répète dans les lignes couplées suivantes:

(D14;U14) et (D15;U15)
(D21;U21) et (D22;U22)
(D28;U28) et (D29;U29)
toutes les 7 lignes jusqu'à (D112;U112) et (D113;U113)
or si je ne dis pas de bétises, il n'y a que 3 possibilités de mise en forme
conditionnelle.

Chris


Bonjour,

Selection de D7:U8
Format / mise en forme conditionnelle
Condition 1
La formule est =D$7=D$8
Format etc..
Ok

--
Salutations
JJ


"Chrisdolby" a écrit dans le message
de news:
Bonjour,

j'ai 2 lignes (D7;U7) et (D8;U8) contenant des chiffres.Je souhaiterais
que
lorsque les chiffres d'une même colonne sont identiques, les cellules
concernées aient un fond rouge.

Merci!

Chris







Avatar
Jacky
Bonsoir,

En vba alors
'-------------
Sub jj()
For i = 14 To 112 Step 7
For j = 4 To 21
If Cells(i, j) = Cells(i + 1, j) And Cells(i, j) <> "" And Cells(i + 1,
j) <> "" Then
Range(Cells(i, j), Cells(i + 1, j)).Interior.ColorIndex = 3
Else
Range(Cells(i, j), Cells(i + 1, j)).Interior.ColorIndex = xlNone
End If
Next
Next
End Sub
'-----------------

--
Salutations
JJ


"Chrisdolby" a écrit dans le message
de news:
Merci pour la rapidité de votre réponse, toutefois mon problème est que ce
conditionnement se répète dans les lignes couplées suivantes:

(D14;U14) et (D15;U15)
(D21;U21) et (D22;U22)
(D28;U28) et (D29;U29)
toutes les 7 lignes jusqu'à (D112;U112) et (D113;U113)
or si je ne dis pas de bétises, il n'y a que 3 possibilités de mise en
forme
conditionnelle.

Chris


Bonjour,

Selection de D7:U8
Format / mise en forme conditionnelle
Condition 1
La formule est =D$7=D$8
Format etc..
Ok

--
Salutations
JJ


"Chrisdolby" a écrit dans le
message
de news:
Bonjour,

j'ai 2 lignes (D7;U7) et (D8;U8) contenant des chiffres.Je souhaiterais
que
lorsque les chiffres d'une même colonne sont identiques, les cellules
concernées aient un fond rouge.

Merci!

Chris









Avatar
Chrisdolby
Bonsoir,

lorsque je tente de de lancer la macro que vous m'avez faîte, j'ai une
erreur de syntaxe à cette ligne:

If Cells(i, j) = Cells(i + 1, j) And Cells(i, j) <> "" And Cells(i + 1, j)
<> "" Then

Merci pour votre aide!

Chris


Bonsoir,

En vba alors
'-------------
Sub jj()
For i = 14 To 112 Step 7
For j = 4 To 21
If Cells(i, j) = Cells(i + 1, j) And Cells(i, j) <> "" And Cells(i + 1,
j) <> "" Then
Range(Cells(i, j), Cells(i + 1, j)).Interior.ColorIndex = 3
Else
Range(Cells(i, j), Cells(i + 1, j)).Interior.ColorIndex = xlNone
End If
Next
Next
End Sub
'-----------------

--
Salutations
JJ


"Chrisdolby" a écrit dans le message
de news:
Merci pour la rapidité de votre réponse, toutefois mon problème est que ce
conditionnement se répète dans les lignes couplées suivantes:

(D14;U14) et (D15;U15)
(D21;U21) et (D22;U22)
(D28;U28) et (D29;U29)
toutes les 7 lignes jusqu'à (D112;U112) et (D113;U113)
or si je ne dis pas de bétises, il n'y a que 3 possibilités de mise en
forme
conditionnelle.

Chris


Bonjour,

Selection de D7:U8
Format / mise en forme conditionnelle
Condition 1
La formule est =D$7=D$8
Format etc..
Ok

--
Salutations
JJ


"Chrisdolby" a écrit dans le
message
de news:
Bonjour,

j'ai 2 lignes (D7;U7) et (D8;U8) contenant des chiffres.Je souhaiterais
que
lorsque les chiffres d'une même colonne sont identiques, les cellules
concernées aient un fond rouge.

Merci!

Chris














Avatar
Jacky
Re...
En relisant le tout.....
Si ce que est demandé est la suite du 1er fil, plutôt que de monter une
usine à gaz......et les questions à tiroirs.
Essaie ceci:
En combinant les deux solutions (itou+jb)
Copier le tout dans un module de feuille
'---------------
Dim m2, m3
_____________________________________
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([zone], Target) Is Nothing And Target.Count = 1 Then
Application.EnableEvents = False
If [mémo] <> "" Then
If Target > CDbl([mémo]) Then
Range(Cells(Target.Row, 4), Cells(Target.Row + 1, 21)).Copy [A65000]
m2 = [mémo]
m3 = Target.Address
Range(Cells(Target.Row, 4), Cells(Target.Row + 1,
21)).Interior.ColorIndex = xlNone
For i = 4 To 21
Cells(Target.Row + 1, i) = Cells(Target.Row + 1, i) + 1
If i <> Target.Column And Cells(Target.Row, i) = Cells(Target.Row
+ 1, i) Then Range(Cells(Target.Row, i), Cells(Target.Row + 1,
i)).Interior.ColorIndex = 3
Next i
Cells(Target.Row + 1, Target.Column) = 0
End If
End If
End If
Application.EnableEvents = True
End Sub
______________________________________________
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([zone], Target) Is Nothing And Target.Count = 1 Then
ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34) &
Target.Value & Chr(34)
End If
End Sub
_________________________________________
Sub annule()
If m2 <> "" Then
[a65000:r65001].Copy Range("d" & Range(m3).Row)
m2 = ""
End If
End Sub
--
Voir ici, .......
http://cjoint.com/?csmNxj0a8R

Salutations
JJ


"Chrisdolby" a écrit dans le message
de news:
Bonsoir,

lorsque je tente de de lancer la macro que vous m'avez faîte, j'ai une
erreur de syntaxe à cette ligne:

If Cells(i, j) = Cells(i + 1, j) And Cells(i, j) <> "" And Cells(i + 1,
j)
<> "" Then

Merci pour votre aide!

Chris


Bonsoir,

En vba alors
'-------------
Sub jj()
For i = 14 To 112 Step 7
For j = 4 To 21
If Cells(i, j) = Cells(i + 1, j) And Cells(i, j) <> "" And Cells(i +
1,
j) <> "" Then
Range(Cells(i, j), Cells(i + 1, j)).Interior.ColorIndex = 3
Else
Range(Cells(i, j), Cells(i + 1, j)).Interior.ColorIndex = xlNone
End If
Next
Next
End Sub




Avatar
Jacquouille
Bonjour
Gros problème avec Outlook qui coupe les phrases.
IF ....THEN sur une même ligne.
<> "" Then doit se copier à la fin de la phrase suivante.

If Cells(i, j) = Cells(i + 1, j) And Cells(i, j) <> "" And Cells(i + 1, j)
Donc : If Cells(i, j) = Cells.... jusque ...<> "" Then sur une même
ligne.

--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/

Jacquouille.

"Chrisdolby" a écrit dans le message
de news:
Bonsoir,

lorsque je tente de de lancer la macro que vous m'avez faîte, j'ai une
erreur de syntaxe à cette ligne:

If Cells(i, j) = Cells(i + 1, j) And Cells(i, j) <> "" And Cells(i + 1,
j)
<> "" Then

Merci pour votre aide!

Chris


Bonsoir,

En vba alors
'-------------
Sub jj()
For i = 14 To 112 Step 7
For j = 4 To 21
If Cells(i, j) = Cells(i + 1, j) And Cells(i, j) <> "" And Cells(i +
1,
j) <> "" Then
Range(Cells(i, j), Cells(i + 1, j)).Interior.ColorIndex = 3
Else
Range(Cells(i, j), Cells(i + 1, j)).Interior.ColorIndex = xlNone
End If
Next
Next
End Sub
'-----------------

--
Salutations
JJ


"Chrisdolby" a écrit dans le
message
de news:
Merci pour la rapidité de votre réponse, toutefois mon problème est que
ce
conditionnement se répète dans les lignes couplées suivantes:

(D14;U14) et (D15;U15)
(D21;U21) et (D22;U22)
(D28;U28) et (D29;U29)
toutes les 7 lignes jusqu'à (D112;U112) et (D113;U113)
or si je ne dis pas de bétises, il n'y a que 3 possibilités de mise en
forme
conditionnelle.

Chris


Bonjour,

Selection de D7:U8
Format / mise en forme conditionnelle
Condition 1
La formule est =D$7=D$8
Format etc..
Ok

--
Salutations
JJ


"Chrisdolby" a écrit dans le
message
de news:
Bonjour,

j'ai 2 lignes (D7;U7) et (D8;U8) contenant des chiffres.Je
souhaiterais
que
lorsque les chiffres d'une même colonne sont identiques, les
cellules
concernées aient un fond rouge.

Merci!

Chris