XL 2010 coloriage de ligne après répartition

job75

XLDnaute Barbatruc

• 17 Novembre 2018

• #2

Bonjour kabale53, le forum,

- sélectionner I3 => clic droit Copier

- sélectionner AD3 :BL200 => clic droit => Collage spécial => Formats

- onglet ACCUEIL => Mise en forme conditionnelle => Gérer les règles => modifier les 5 formules en remplaçant le V par A.

Fichier joint.

Bonne journée.

 

Pièces jointes

• coloriage(1).xlsx

  186 KB · Affichages: 7

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Novembre 2018

• #3

Re,

Une autre interprétation est possible : les cellules contenant les mêmes valeurs doivent avoir la même couleur.

Il faut alors du VBA, sur Excel 2007 et versions suivantes on peut utiliser DisplayFormat :

Code:

Sub Copier_couleurs()
Dim source As Range, dest As Range, c1 As Range, coul&, x, c2 As Range
Set source = [I3:AB200]
Set dest = [AD3:BL200]
Application.ScreenUpdating = False
dest.Interior.ColorIndex = xlNone 'RAZ
For Each c1 In source
    coul = c1.DisplayFormat.Interior.Color
    If coul <> 16777215 Then 'si la cellule est colorée
        x = c1.Value
        For Each c2 In Intersect(c1.EntireRow, dest)
            If c2 = x Then c2.Interior.Color = coul
        Next c2
    End If
Next c1
End Sub

Fichier .xlsm joint.

A+

 

Pièces jointes

• Coloriage par VBA(1).xlsm

  196.2 KB · Affichages: 6

Vote positif 0 Vote négatif

kabale53

XLDnaute Occasionnel

• 17 Novembre 2018

• #4

Bonjour job75

Merci pour l’intérêt porté à ma demande d'aide.
La solution proposée reprend les mêmes positions coloriées que la ligne I3:AB3.
Or les valeurs situées dans la ligne AD3:BL3 ont été réparties différemment et par conséquent le coloriage des valeurs dans les deux lignes ne coïncide pas.

 

Vote positif 0 Vote négatif

kabale53

XLDnaute Occasionnel

• 17 Novembre 2018

• #5

Re,
la proposition en VBA marche très bien.
Un grand merci pour votre aide.
Bonne journée.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Novembre 2018

• #6

Re,

Je reviens sur ce fil car il n'y a vraiment pas besoin de VBA : une MFC sur la plage AD3:BL200 va très bien.

Voyez ce fichier (2), formule de la couleur rouge de la MFC en AD3 =EQUIV(AD3;$I3:$AB3;0)=$D3

A+

 

Pièces jointes

• coloriage(2).xlsx

  186 KB · Affichages: 11

Vote positif 0 Vote négatif

kabale53

XLDnaute Occasionnel

• 17 Novembre 2018

• #7

Re,
Je tiens pour commencer à vous exprimer ma reconnaissance d'avoir pris de votre temps pour cette nouvelle proposition qui me convient parfaitement (mes connaissances étant très limitées pour une éventuelle réadaptation du code VBA)
Le problème est à présent bien réglé grâce à votre précieux coup de main.

Merci.

 

Vote positif 0 Vote négatif

kabale53

XLDnaute Occasionnel

• 17 Novembre 2018

• #8

Re,
Je reviens solliciter votre aide car lorsqu'il y a des doublons le coloriage ne s'effectue pas correctement.S'il n'y a pas moyen d'y remédier je reprendrai la solution en VBA.

 

Pièces jointes

• coloriage 3.xlsx

  178.7 KB · Affichages: 8

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Novembre 2018

• #9

Re

Dans ce genre de problème les doublons ne sont pas traités parfaitement, que ce soit avec MFC ou en VBA.

A+

 

Vote positif 0 Vote négatif