Couleurs et calculs

[lionfish]

Bonjour
dans le tableau ci joint
je souhaite

1/appliquer une couleur a un ensemble de cellules sur la meme ligne (de colonne AàK)
en changeant simplement la lettre (en COLONNE H ) du code couleur (indiqué de H1à H7)

2/Faire la somme de toutes les cellules en colonnes J de meme couleur et porter ce resultat dans les cellules correspondantes aux couleurs (de F3 à F7)


EN CLAIR

j'inscris un "J" en colonne H ,ma ligne devient JAUNE et ma somme (enF3) augmente ou diminue

j'inscris un "O" en colonne H ,ma ligne devient ORANGE et ma somme (enF5) augmente ou diminue

AINSI DE SUITE

MA VERSION EST EXCEL 2003
EST CE POSSIBLE EN PASSANT PAR UNE MACRO
ET CERISE SUR LE GATEAU......QUELLE EST CETTE FORMULE


merci de vos eclairages et de vos recherches

 

[mutzik]

Re : Couleurs et calculs

bonjour

la formule ci-dessous te donnera la somme de tes lignes (colonne J) pour une lettre "V" dans la colonne H


=SOMME.SI(H11:H5000;"V";J11:J5000)

Pour les changements de couleur, faire une mise en forme conditionnelle, mais je suis en excel 2007, je sais plus comment on fait en 2003

 

[lionfish]

Re : Couleurs et calculs

MERCI
la mise en forme conditionnelle ne peut prendre en charge que 3 criteres j'en ai 5
et je ne peux changer qu'une cellule de couleur pas la ligne partielle

a+

 

[Guest]

Re : Couleurs et calculs

Bonjour et bienvenue sur le forum,

voici ton fichier modifié.

Pour les calculs, il suffit de sommer les lignes qui répondent à la condition avec un nb.si.
Dans le fichier, les données ont été nommées dynamiquement "Datas" (voir insertion/nom/définir) pour plus de facilité et lisibilité

Le code de mise en couleur est sur le module de la feuille "Février 2011"

A+

[Edit] hello Mutzig

 

[lionfish]

Re : Couleurs et calculs

QUEL TALENT !!!

merci a toi

 

[lionfish]

Re : Couleurs et calculs

SI J'OSAIS !!!
peux tu me dire comment mensionner sur mon tableau la date en G uniquement lorsque j'incrit un "V" en H

merci

 

[Guest]

Re : Couleurs et calculs

Re,

Voici la réponse. (changement en bas de macro).

Mais attention aux questions à tiroir, ça lasse à la longue. Alors élabore un plan fait des tests et revients avec un nouveau fil avec de nouvelles questions.

    If Not Intersect(Range("H:H"), Range("Datas"), Target) Is Nothing And Target.Count = 1 Then
        If Target = "" Then
            Intersect(Range("Datas"), Target.EntireRow).Interior.ColorIndex = xlNone
        Else
           Dim i As Variant
           Dim couleur As Single
           i = Application.Match(Target, Range("ListeCodes"), 0)
           If Not IsError(i) Then
                couleur = Range("ListeCodes")(i).Interior.ColorIndex
                Intersect(Range("Datas"), Target.EntireRow).Interior.ColorIndex = couleur
           End If
           If Target.Value = "V" Then Range("G" & Target.Row) = Date
        End If
    End If

A+

 

[lionfish]

Re : Couleurs et calculs

MERCI encore désolé pour la prise de tete

 

[Guest]

Re : Couleurs et calculs

Re,

Pas de problème, ni prise de tête. tout faire pour les éviter.

A+