Legende pour feuille de calcul - Macro

Hello,

Je souhaites creer une petite macro pour rajouter une sorte de légende en dessous d'un tableur qui se génère automatiquement.

Exemple: Le rapport contient X lignes. La legende doit se situer a X+1, autrement dit 1 ligne blanche suivi du texte:

Colonne A Colonne B Colonne C

302 26 En cours

207 48 Termine

57 21 En cours

78 12 En cours

------------------------------------------- (ligne vide)

Equipe A (vert)

Equipe B (rouge)

Equipe C (bleu)

Les lignes du tableur sont formates en fonctions des couleurs des equipes techniques qui s'en occupent, le but c'est dont de mettre une légende a titre d'indication pour les identifier. Le nombre de lignes que contient la feuille est variable.

Si qqn peut me donner un coup de main, ce serait apprecie

Merci

Bonjour

J'essaie de comprendre est ce-sur la même ligne ou ajouter une ligne pour chaque équipe A, B et C

Faut-il mettre sur la ligne 6 : Equipe A : En cours, 507 requêtes dont 21 incidents. Equipe B :Terminé, 265 requêtes dont 54 incidents. Equipe C : En cours, 345 requêtes dont 25 incidents.

Ou

Faut-il mettre sur la ligne 6, 7 et 8

Equipe A :En cours, 507 requêtes dont 21 incidents.

Equipe B :Terminé, 265 requêtes dont 54 incidents.

Equipe C :En cours, 345 requêtes dont 25 incidents.

EDIT : Ah ok! comme cela une ligne blanche

crdlt,

André

Bonjour,

à tester,

Sub test()
légend = Array("Equipe A", "Equipe B", "Equipe C")
couleur = Array(5296274, 255, 15773696)

With Sheets("Sheet1")
 LastRow = .Cells(Rows.Count, 1).End(xlUp).Row + 2
 For i = 0 To 2
 .Cells(LastRow + i, 1) = légend(i)
 .Cells(LastRow + i, 1).Interior.Color = couleur(i)
 Next i
End With

End Sub

Bonsoir,

Sub Légende()
    Dim clr, lgd, i%
    clr = Array(RGB(146, 208, 80), RGB(255, 0, 0), RGB(0, 176, 240))
    lgd = Split("Equipe A;Equipe B;Equipe C", ";")
    Application.ScreenUpdating = False
    With ActiveSheet.Cells(Rows.Count, 1).End(xlUp)(3)
        For i = 0 To 2
            With .Offset(i)
                .Value = lgd(i)
                .Interior.Color = clr(i)
            End With
        Next i
    End With
End Sub

Cordialement.

edit : Bonjour Isabelle

Presque pareil ! J'aurais dû actualiser.

bonjour,

une proposition

bonjour Isabelle, Maréchal,

comme la cavalerie ...

Sub aargh()
    dl = Cells(Rows.Count, 1).End(xlUp).Row + 2
    eq = Split("Equipe A,Equipe B,Equipe C", ",") 'equipes
    cl = Array(5296274, 255, 15773696) 'couleurs correspondantes
    For i = 0 To UBound(eq)
        With Cells(dl + i, 1)
            .Value = eq(i)
            .Interior.Color = cl(i)
        End With
    Next i
End Sub

Re bonsoir,

Il y a que moi qui est compris autrement sorry

Bonjour à tous,

MFerrand -edit : Bonjour Isabelle

Presque pareil ! J'aurais dû actualiser.

Bonjour MFerrand, mais non, les différences en valent la peine, (array(RGB), offset sur la boucle UBound)

Salut,

J'ai testé et toutes les solutions proposees fonctionnent parfaitement!

Merci @sabV, @h2so4, @MFerrand pour vos reponses

@Andre13, peut etre j'avais pas bien expliqué, desole

En tout cas, merci aussi pour ton aide

sabV a écrit :

Bonjour MFerrand, mais non, les différences en valent la peine

Tu as raison sur le fait qu'un néophyte pourra trouver au premier abord qu'il y a beaucoup de différences entre ces 3 procédures, mais elles relèvent du style personnel, des habitudes acquises, ou même d'une association d'idée momentanée qui incline à pencher à un instant donné sur tel choix de réalisation plutôt que tel autre...

Alors il est vrai que cela peut intéresser quelqu'un qui n'est pas habitué à percevoir la démarche qui a conduit au résultat, d'analyser ces différences pour comprendre que le cheminement du raisonnement est identique au-delà des différences visibles.

A cet égard, j'avais sans doute tort de négliger cet aspect et privilégier les différences relevant de cheminements mentaux différents... (mais là il est vrai que ça m'intéresse de découvrir des méthodes auxquelles je n'avais pas pensé ou que je n'ai pas encore utilisées, car il est toujours bon de pourvoir prendre un chemin différent pour arriver au même point, selon le contexte une méthode peut s'avérer plus profitable qu'une autre...)

André : tu as répondu à une question non posée ! Avec conviction ! Ça m'est arrivé... pas qu'une fois ! Et je crois que c'est déjà arrivé à tous ou presque...

Cordialement. Et bonne continuation à David.

car il est toujours bon de pourvoir prendre un chemin différent pour arriver au même point, selon le contexte une méthode peut s'avérer plus profitable qu'une autre...

Je suis entièrement d’accord avec ça