Discussion :

[rihab92]

Bonjour chers experts,

S'il vous plaît si quelqu'un pourra m'aider à réaliser ce besoin vu ma très humble connaissance en VBA.

En fait, j'ai un tableau qui contient un ensemble de produits distribués selon leur processus: a,b,...i

Mon objectif c'est de pouvoir rassembler les produits qui passent par le même processus et de changer la couleur à chaque fois que l'algorithme de la macro trouve un nouveau groupement, afin de construire à la fin un groupement de famille de produits.

N.B: Notre output sera un ensemble de familles et du coup, au départ on ne sait pas le nombre de familles qu'on possède. Par conséquent, on ne pourra pas déterminer au départ le nombre de couleurs à utiliser.


Je vous remercie pour votre collaboration

[unparia]

Bonjour
Tes lignes 19 et 20 de la colonne A ne sont pas coloriées en rouge. Qu'est-ce qui les différencie des lignes 3 et 4 ? (c'est un oubli de ta part ou y-a-t-il une raison et si oui : laquelle ?) ?

[rihab92]

Bonsoir unparia,

Oui , en fait c'est un oubli . je voulais juste faire exemple

Ci joint le fichier
Colors.xlsx

[unparia]

Ligne étant la plage d'une ligne de données avec des cellules avec 1 et d'autres vides :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For Each c In ligne
 titi = titi + (c.Column * c.Value) + ligne.SpecialCells(xlCellTypeConstants).columns.Count
Next

te retourne un chiffre unique qui ne peut correspondre qu'à ce type (mêmes colonnes avec 1 et mêmes colonnes vides)
Travaille sur cette base (entre autres possibles)

Regarde par exemple à quoi tu pourrais utiliser ceci :
Une fonction personnalisée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Public Function determ(ligne As Range) As Integer
  For Each c In ligne
   determ = determ + (c.Column * c.Value)
  Next
  determ = determ + WorksheetFunction.Sum(ligne)
End Function

Tu utilises ensuite cette fonction (comme une formule) dans la colonne suivant la dernière possible puis tu la tires vers le bas autant que nécessaire
Supposons que tu aies choisi la colonne F : y figureront des numéros. Ces numéros seront identiques pour des "configurations" identiques.
Le reste vient seul (attribution d'une couleur en fonction du résultat obtenu), mais j'espère que tu n'as pas un grand nombre de configurations différentes pour des raisons évidentes (difficile de distinguer visuellement une couleur de l'autre, lorsqu'elles sont proches).

[Menhir]

Une solution simple, sans If

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub FamCoul()
   Dim Y as Long
   For Y = 2 To Range("A2").End(xlDown).Row
      Cells(Y,1).Interior.Color = RGB(Cells(Y,2) * 85 + Cells(Y,3) * 170 + Cells(Y,4) * 256, _
                                      Cells(Y,5) * 85 + Cells(Y,6) * 170 + Cells(Y,7) * 256, _  
                                      Cells(Y,8) * 85 + Cells(Y,9) * 170 + Cells(Y,10) * 256)
    Next Y
End Sub