XL 2010 coloriage de ligne après répartition

[kabale53]

Bonjour

Merci de bien vouloir m'aider à résoudre le problème suivant;

La ligne I3:AB3 est coloriée en fonction des positions situées en D3:H3.
J'aimerai garder le même coloriage après répartition des valeurs situées en I3:AB3 et ce dans la ligne AD3:BL3.

 

[job75]

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.

 

[job75]

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 :

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+

 

[kabale53]

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.

 

[kabale53]

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

 

[job75]

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+

 

[kabale53]

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.

 

[kabale53]

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.

 

[job75]

Re

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

A+