Format conditionnel

[gourdin]

Bonjour,

Quand deux cellules identiques se suivent dans la colonne B par exemple alors les cellules à droite de la colonne C et D se colorient en jaune (cf fichier joint).

J'ai essayé d'utiliser les formats conditionnels (type formule =B6=B7 + format jaune) sur les cellule de la plage C7😀14
Mais je dois manipuler le tableau et notamment souvent inverser des lignes
Alors souvent la formule se modifie et le format n'est pas toujours bon (les cellules ne deviennent plus jaune)

Je pensais à une formule qui utiliserait un code en référence à "cellule précédente" et "cellule suivante".

Mais la je ne sais plus faire.

Merci

 

[JBARBE]

Re : Format conditionnel

Bonsoir,

Essayez cette macro pour la référence de ligne et de colonne en exemple !

Option Explicit

Sub coloriage()
Dim i As Long
For i = 12 To 65536
 If Cells(i, 2) = "" Then Exit Sub
 If Cells(i, 2) = Cells(i + 1, 2) Then
  Range(Cells(i, 3), Cells(i + 1, 4)).Interior.ColorIndex = 6
 End If
Next i
End Sub

bonne soirée

 

[chris]

Re : Format conditionnel

Bonjour à tous

Sur l'exemple donné

=OU($B12=$B13;$B12=$B11)

 

[Skyna]

Re : Format conditionnel

Bonjour,

Ou alors dans les mises en forme conditionnelles, mettre comme ceci (avec mise en forme avec formule) :
=B12=B13 (avec remplissage en jaune) et =B12=B11 (avec remplissage en jaune) dans les cellules C12 et D12 et tirer les cellules vers le bas pour recopier ces mises en forme conditionnelle.

 

[gourdin]

Re : Format conditionnel

Merci Chris

Mais quand j'insère, par exemple dans mon fichier, la cellule B13 ("Poire") en dessous de B14 (entre 2 celluleS "Banane") celà ne fonctionne plus.

 

[gourdin]

Re : Format conditionnel

Merci Skyna

Celà ne fonctionne pas quand on inverse des cellules de la colonne B

 

[chris]

Re : Format conditionnel

Bonjour

Tu veux que ce soit jaune si "deux cellules identiques se suivent" : si tu intercales une poire entre deux bananes cela ne se suit plus dont il est normal que les solutions données selon ton énoncé ne marchent plus.

L'énoncé ne serait-il pas mettre en jaune si "une valeur existe plusieurs fois" ?

 

[Denis132]

Re : Format conditionnel

Bonjour Gourdin, le forum,


Par contre, tu dois recopier la formule de vrai et de faux.(peut-être pas plus avancé)

@+

Denis

Ouf, j'ai refais des essais mais infructueux

 

[gourdin]

Re : Format conditionnel

Pour Chris

Il s'agit bien de mettre en jaune si 2 cellules qui se suivent sont identiques
et celà même si l'on inverse des lignes.

 

[gourdin]

Re : Format conditionnel

Bonjour Gourdin, le forum,


Par contre, tu dois recopier la formule de vrai et de faux.(peut-être pas plus avancé)

@+

Denis

Ouf, j'ai refais des essais mais infructueux

Merci Denis

Mais dès que j'inverse une cellule celà ne fonctionne pas

 

[gourdin]

Re : Format conditionnel

Bonsoir,

Essayez cette macro pour la référence de ligne et de colonne en exemple !

Option Explicit

Sub coloriage()
Dim i As Long
For i = 12 To 65536
 If Cells(i, 2) = "" Then Exit Sub
 If Cells(i, 2) = Cells(i + 1, 2) Then
  Range(Cells(i, 3), Cells(i + 1, 4)).Interior.ColorIndex = 6
 End If
Next i
End Sub

bonne soirée

Merci

Mais quand je modifie un peu l'ordre des fruits celà ne fonctionne pas

 

[JBARBE]

Re : Format conditionnel

Difficile de comprendre ce que veux dire pour toi qui se suivent ?

Néanmoins peut-être avec cette nouvelle macro :

Sub coloriage()
Dim i As Long
For i = 12 To 65536
 If Cells(i, 2) = "" Then Exit Sub
 If Cells(i, 2) = Cells(i + 1, 2) Then
  Range(Cells(i, 3), Cells(i + 1, 4)).Interior.ColorIndex = 6
 ElseIf Cells(i, 2) = Cells(i - 1, 2) Then
  Range(Cells(i, 3), Cells(i - 1, 4)).Interior.ColorIndex = 6
 End If
Next i
End Sub

 

[gourdin]

Re : Format conditionnel

Désolé de ne pas être suffisamment clair mais il semble que ta nouvelle macro fonctionne.

Merci beaucoup.