Mise en forme conditionelle en fonction du remplissage de cellule

[TRANKILL]

Bonjour à tous,
Je bidouille de temps à autre sur excel mais la je ne m'en sors pas; le sujet concerne un planning:
Je cherche à remplir des cellules (couleur A,B,C ou D) en fonction de la couleur d'autres cellules (couleur A,B,C ou D)

Je n'y connait rien en macro et VBA, mais je pense qu'il va quand même falloir passer par la....

Dans l'exemple,les lignes 8 à 11 et 13 à 16 sont colorés manuellement dans la première partie du tableau.
Le résultat souhaité se trouve dans la partie inférieure, les lignes 22 et 27 se remplissent automatiquement.(et quand deux couleurs se chevauchent le remplissage est rouge)

Je sais que le sujet n'est pas simple, je remercie d'avance ceux qui pourront me mettre sur la piste.
A bientôt sur le forum.

 

[job75]

Re : Mise en forme conditionelle en fonction du remplissage de cellule

Bonjour TRANKILL, bienvenue sur XLD,

Il n'est pas logique d'avoir mis une couleur rouge en lignes 11 et 16, j'ai corrigé dans le fichier joint.

Allez dans VBA (Alt+F11) et voyez cette macro dans Module1 :

Sub CopierCouleurs()
Dim P As Range, ncol%, i&, j&, k%, x%
Set P = ActiveSheet.UsedRange
ncol = P.Columns.Count
Application.ScreenUpdating = False
For i = 7 To P.Rows.Count
  If P(i, 1) <> "" Then
    P.Rows(i).Interior.ColorIndex = xlNone
    j = i + 1
    While P(j, 2) <> ""
      For k = 3 To ncol
        x = P(j, k).Interior.ColorIndex
        If x <> xlNone Then P(i, k).Interior.ColorIndex _
          = IIf(P(i, k).Interior.ColorIndex = xlNone, x, 3)
      Next k
      j = j + 1
    Wend
    i = j - 1
  End If
Next i
End Sub

Alt+F8 pour exécuter la macro ou cliquez sur le bouton.

A+

 

[job75]

Re : Mise en forme conditionelle en fonction du remplissage de cellule

Bonjour TRANKILL,

Une autre solution si l'on veut uniquement copier les couleurs des cellules A1:A4 :

Sub CopierCouleurs()
Dim P As Range, ncol%, i&, j&, k%, x As Variant
Set P = ActiveSheet.UsedRange
ncol = P.Columns.Count
Application.ScreenUpdating = False
For i = 7 To P.Rows.Count
  If P(i, 1) <> "" Then
    P.Rows(i).Interior.ColorIndex = xlNone
    j = i + 1
    While P(j, 2) <> ""
      x = Application.Match(P(j, 2), P.Columns(1), 0)
      If IsNumeric(x) Then
        x = P(x, 1).Interior.Color
        For k = 3 To ncol
          If P(j, k).Interior.ColorIndex <> xlNone Then
            'P(j, k).Interior.Color = x 'pour modifier la couleur
            With P(i, k).Interior
              .Color = IIf(.ColorIndex = xlNone, x, 255)
            End With
          End If
        Next k
      End If
      j = j + 1
    Wend
    i = j - 1
  End If
Next i
End Sub

Fichier (2).

Bonne journée.

 

[TRANKILL]

Re : Mise en forme conditionelle en fonction du remplissage de cellule

Bonjour,
Tout d'abord un gros merci à vous Job75, car ça fonctionne au poil.
Par contre je dois avouer que je n'y comprend pas grand chose voir rien du tout...
Donc forcement quand j'ai essayer de l'intégrer au tableur final ça ne marche plus.
Les calculs doivent se faire sur les lignes 377 382 387 etc.. au lieu de 11 16 21 et doivent commencer à partir de la colonne J au lieu de C.

Pourriez vous m'indiquer ce qu'il faut modifier pour que le calcul se fasse sur la bonne zone.
Encore merci et à bientôt.

 

[TRANKILL]

Re : Mise en forme conditionelle en fonction du remplissage de cellule

Bonjour,
Ci-joint le fichier ou la macro mise à jour client ne marche pas.

Merci par avance,

 

[job75]

Re : Mise en forme conditionelle en fonction du remplissage de cellule

Bonjour TRANKILL,

Votre nouveau fichier n'est tout simplement pas exploitable en l'état.

Donnez-lui la même structure que celui du post #1 (en ce qui concerne les colonnes A et B).

A+