Diagramm de Gantt

Salut les gars,

J'ai un pt. problème que je ne peux pas résoudre.

J'ajouté un tableau de contrôl des certificats ISO, etc.

A mon travail on me demande de faire ces lignes en differents couleurs, qu'ils apparaisent toujours différents, même si on ajoute des autres certifications. En plus d'avoir un calendrier perpetual.

Qui peut m'aider?

A bientôt,

magtalo

Salut,

J'ai besoin de plus d'informations :

• Tu veux des couleurs differentes pour les lignes 4 => 10 dans ton fichiers ? De la colonne A=>CQ ?
• Les couleurs doivent être différentes ou alors en alternance de 2 couleurs différentes ? (Si différentes, on va être limité si beaucoup de certificats....)
• On parle bien de la couleur du fond de la cellule et pas de du texte .

Solution en macro ?

Merci

Damien

Bonjour Damien,

A tes questions:

Question 1, oui, je aimerais avoir des couleurs diférents pour chaque ligne.

Question 2, oui, les couleurs doivent être différents, mais après avoir eu deux ou trois, il peuvent se répéter.

Question 3, oui, on parle de la couleur du fond de la cellule pas du texte. J'ai travaillé la MFC.

Merci et a +

Salut,

Essayes ca et dis moi comment cela se comporte chez toi.

Se postionner sur l'onglet Feuil1 de ton fichier

Faire ALT+F11 (touche clavier)

Dans la partie gauche double click sur Feuil1

Dans la partie droite colle le code :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim numligne As Double
i = 4  'Debut de la premiere ligne
couleur = 4 'Premiere couleur
While Cells(i, 1) <> "Contrôl Budgétaire"
    If Cells(i, 1) <> "" Then

            Range("A" & i & ":CQ" & i).Select
    With Selection.Interior
        .ColorIndex = couleur
        .Pattern = xlSolid
    End With
    Else
      Range("A" & i & ":CQ" & i).Select
        Selection.Interior.ColorIndex = xlNone

    End If
couleur = couleur + 1
If couleur > 8 Then  'Si couleur = 8 on remet la couleur a 4 => 4 couleurs différentes
    couleur = 4
End If
i = i + 1
Wend
Target.Select
End Sub

Essayes ensuite de rajouter des certificats.

Par contre toutes les cellules ne prennent pas la couleur, même manuellement. J'ai regardé rapidement et n'en trouve pas la raison.

Cela vient peut être du fait que je suis en version 2003.....

Dis moi si cela fonctionne chez toi.

++

damien

Salut Damien,

Merci pour ta réponse.

Ca ne marche pas très bien. Je t'ajouté ce que ça donne. Je ne connais pas beaucoup de Macros, donc je suis en train de découvrir au même temps.

Merci.

Matgalo

Salut,

La macro fonctionne, mais il y a un pb avec ton fichier....

Si tu mets les couleurs manuellement certaines zones ne sont pas prises en compte donc même si on automatise on aura la même chose.....

Je ne vois pas comment t'aider plus.

Damien

Merci,

Le boss a accepté tel quel je l'ai préparé.

A +

Salut les gars,

voici le diagramm de gantt vièrge.

A+

matgalo