Excel - Planning

hobiejo, le vendredi 12 octobre 2007 à 11:04:56

Bonjour,
Sous Excel, je fais des plannings, même si ce n'est pas le meilleur soft pour cela, c'est clair, mais très simples.
Dans le cas d'espèce : j'ai 12 colonnes pour les 12 mois de l'année, et 5 lignes pour 5 types de travaux à réaliser. Sur chaque ligne, je teinte manuellement en rouge les cellules correspondant aux mois de travail pour le type de tvx concernés. Jusque là c'est assez simple je pense et ça ne nécessite pas de formules ou fonctions Excel.
Ma question est de savoir si je peux introduire une 6e ligne qui résumerait les 5 autres en cumulant côte à côte les cellules teintées ? Une sorte de condensé sur une seule ligne pour l'ensemble des tvx.
Y a-t-il une fonction ou formule ou combinaison de fomules qui pourrait me permettre de teinter automatiquement les cellules de cette 6e ligne en fonction des 5 autres au-dessus ?
Merci par avance de vos commentaires et/ou réponses.
Hobiejo

Configuration: Office 2000

Répondre à hobiejo Signaler ce message aux modérateurs Aller au dernier message

Ce message vous semble utile, votez !
Signaler ce message aux modérateurs

gbinforme, le samedi 13 octobre 2007 à 00:11:23

bonjour

Tu as utilisé une fonction Excel pas très facile à utiliser et je ne sais pas colorer des portions de cellule.

Par contre, j'ai fait cette petite macro qui met sur la ligne total le n° de ligne à la bonne couleur.
J'ai supposé que ta ligne total était en fait la septième, la première étant le N° de mois.

Sub total_couleurs()
Dim k As Integer
Dim l As Integer
Dim lig As Integer
lig = 7
For k = 1 To 12
    Cells(lig, k).Value = "' 1  2  3  4  5 "
    For l = 2 To 6
        If Cells(l, k).Interior.ColorIndex > 0 Then
            Cells(lig, k).Characters(Start:=((l - 2) * 3) + 1, Length:=3).Font.ColorIndex _
            = Cells(l, k).Interior.ColorIndex
        Else
            Cells(lig, k).Characters(Start:=((l - 2) * 3) + 1, Length:=3).Font.ColorIndex = 2
        End If
    Next l
Next k
End Sub

Il faut mettre cette macro dans ta feuille après avoir lancé VBA editor (ALT + F11)
puis la lancer avec menu outils/macro/macros/executer.

Bon test.

toujours zen

Répondre à gbinforme

Posez votre question Répondre