Bonjour.
Je voudrais affecter une valeur en fonction de la couleur d'une cellule.
J'ai tenté plusieurs version mais sans résultat. Je poste ce bout de code qui ne ressemble à rien mais qui résume la question :
Sur un tableau j'ai une succession de lignes représentant des fiches
Pour chaque famille, j'ai plusieurs sous-famille et un certain nombre de produits. Je n'ai qu'un seul repère visuel : la couleur du fond.
Pour me permettre l'utilisation des filtres, j'aimerais pouvoir inscrire en regard de chaque ligne (sur la 15ème colonne) le type de ligne
J'espère avoir été clair.
For Each Cell In Range("A2:A" & Range("A65536").End(xlUp).Row).Select
If Selection.Interior.ColorIndex = 6 Then Cell.Cells(1, 15).Formula = "FAM"
If Selection.Interior.ColorIndex = 34 Then Cell.Cells(1, 15).Formula = "SFA"
If Selection.Interior.ColorIndex = xlNone Then Cell.Cells(1, 15).Formula = "PRO"
Next Cell
Merci de votre aide.
Je voudrais affecter une valeur en fonction de la couleur d'une cellule.
J'ai tenté plusieurs version mais sans résultat. Je poste ce bout de code qui ne ressemble à rien mais qui résume la question :
Sur un tableau j'ai une succession de lignes représentant des fiches
Pour chaque famille, j'ai plusieurs sous-famille et un certain nombre de produits. Je n'ai qu'un seul repère visuel : la couleur du fond.
Pour me permettre l'utilisation des filtres, j'aimerais pouvoir inscrire en regard de chaque ligne (sur la 15ème colonne) le type de ligne
J'espère avoir été clair.
For Each Cell In Range("A2:A" & Range("A65536").End(xlUp).Row).Select
If Selection.Interior.ColorIndex = 6 Then Cell.Cells(1, 15).Formula = "FAM"
If Selection.Interior.ColorIndex = 34 Then Cell.Cells(1, 15).Formula = "SFA"
If Selection.Interior.ColorIndex = xlNone Then Cell.Cells(1, 15).Formula = "PRO"
Next Cell
Merci de votre aide.