ORange ou jaune ?

Version imprimable

12/11/2007, 11h47
melodyyy

ORange ou jaune ?

bonjour,

Voila j'ai une macro a effectué, je pensais le faire en forme conditionelle mais je ne peux pas.

En fait, je voudrais dire que lorqu'on met du orange dans une cellule alors on met 10% du montant indiqué en cellule Y6 sinon si on met du jaune on met 90% du montant indiqué en cellule Y5. Sachant qu'en fait admettons j'ai 100, je voudrais que ce nombre se divise autant de fois que j'ai de jaune (si je veux 90%) ou de orange (si je veux 10%).

Je vois pas trop comment faire ou presque pas, a part appeler une couleur, mais après je vois pas...:aie:
12/11/2007, 11h51
Jean-Philippe André

salut melodyy,
un petit effort pour la description du problème stp ?

Citation:

je voudrais que ce nombre se divise autant de fois que j'ai de jaune (si je veux 90%) ou de orange (si je veux 10%).

moi y en a rien comp'ouend'oue :aie: où vas-tu chercher ces jaunes et oranges ?
12/11/2007, 13h32
melodyyy

Les jaunes et les oranges faudrait que ce soit comme une mise en forme conditionnelle en fait...c'est manuellement ou automatique.

Pour le fait que je voudrais que ça se divise en fait:
Si j'ai du jaune, donc on a dit 90%. Admettons qu'en Y6 j'ai un montant de 67.5 et 7 cellules jaunes. On va diviser 67,5 en 7 et inscrire le résultat 7 fois. Soit: 9.6 dans les 7 cellules jaunes.

Maintenant j'ai aussi du orange, donc 10%. Admettons qu'en X6 j'ai un montant de 7.5 et cellules orange. On va diviser 7.5 en 4 et inscrire le résultat 4 fois.
Soit: 1.9 dans les 4 cellules oranges.

Voila ! C'est ça et donc je sais pas comment faire avec les cellules oranges et jaunes à savoir:

- Pour l'instant je le fais manuellement mais il me semble qu'il existe une macro pour les couleur sauf que si tu veux les montants sont dans la colonne X et Y et doivent "interargir" en fonction des lignes correspondantes. Peut etre avec formula R1C1 si il existe une fonction Excel pour ça, mais je sais même pas si ça existe..

Fin voila l'idée ;)
12/11/2007, 13h58
Jean-Philippe André

d'accord, mais moi je n'ai toujours pas compris d'où sortent tes cellules oranges et jaunes, tu aurais un screenshot à nous montrer stp ?
12/11/2007, 15h07
melodyyy

1 pièce(s) jointe(s)

oui !

les cellules Jaunes et Orange c'est la couleur que je décide de mettre en fonction d'une date de projet. ca c'est un peu compliqué c'est pour ça que je pense les mettre manuellement pour l'instant.
12/11/2007, 15h35
Jean-Philippe André

oki, ton calcul peut passer par du vba avec range.interior.colorindex
pour l'équivalent sous excel, je n'ai pas la formule toute faite.
12/11/2007, 16h16
melodyyy

ouai mais ça c'est pour mettre jaune ou orange nan ?
12/11/2007, 16h28
Jean-Philippe André

pour mettre ou pour savoir la couleur de la cellule...
12/11/2007, 16h33
melodyyy

ok merci ! Je vais voir pour l'utiliser, je vous recontacterais surement parce que ma macro est pas facile !

J'ai trouvé un truc dans l'aide Excel, mais ça marche pas, je comprends pas trop pourquoi...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub SearchCellFormat()
 
    ' Set the search criteria for the interior of the cell format.
    With Application.FindFormat.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
    End With
 
    ' Create a yellow interior for cell A5.
    Range("A5").Select
    With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
    End With
    Range("A1").Select
    MsgBox "Cell A5 has a yellow interior."
 
    ' Find the cells based on the search criteria.
    Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=True).Activate
    MsgBox "Microsoft Excel has found this cell matching the search criteria."
 
End Sub

Ca bug ici:

Code:

1
2
3
Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=True).Activate

Quelqu'un voit pouquoi ?

Cette macro va beaucoup me servir !!

13/11/2007, 12h30
fred65200
bonjour,

SearchFormat est une nouveauté Excel 2003, si tu n'as pas cette version, ça bugue.

Une fonction pour compter les cellules jaunes, je te laisse l'adapter
Code:

1 2 3 4 5 6 7 8 9 Function NbJaune(Zone) Application.Volatile cpt = 0 For Each c In Zone If c.Interior.ColorIndex = 6 Then cpt = cpt + 1 Next NbJaune = cpt End Function
Cordialement
13/11/2007, 14h58
melodyyy

ok merci !

Ben pour SearFOrmat c'est bizarre, j'ai trouvé ça dans mon excel 2003...

je vais adapter ton petit truc pour compter les cellules jaunes de sorte à le faire sur plusieurs plages :)
13/11/2007, 18h12
fred65200

rebonjour,
je me suis trompé, SearchFormat est une nouveauté Excel 2003.
Donc...je cherche la cause de ton erreur.
Je modifie mon post précédent.

cordialement