PLUS DE 3 FORMATS CONDITIONNEL

P

Pascal76

Guest

• 19 Février 2004

• #2

Salut Gilles

Tu trouveras ci-joint un fichier (de je ne sais plus qui) qui fait cela. Tu as juste à l'adapter pour tes besoins.

Bon courage

Pascal

 

Vote positif 0 Vote négatif

P

Pascal76

Guest

• 19 Février 2004

• #3

J'ai oublié le fichier

Pascal

 

Pièces jointes

• Couleur.zip

  8.6 KB · Affichages: 32
• Couleur.zip

  8.6 KB · Affichages: 29
• Couleur.zip

  8.6 KB · Affichages: 34

Vote positif 0 Vote négatif

G

Gilles

Guest

• 19 Février 2004

• #4

- Merci Pascal de cette rapide réponse.
- Je ferai bon usage de cette démonstration
- Merci
Gilles

 

Vote positif 0 Vote négatif

B

Bernard

Guest

• 19 Février 2004

• #5

Bonsoir Gilles et Pascal76

Tu trouveras ci-joint un fichier (de je ne sais plus qui) qui fait cela.

Tu as juste à l'adapter pour tes besoins. Déja lu Lol

Salut

Bernard

 

Pièces jointes

• EmploiCouleursPlanning.zip

  8.6 KB · Affichages: 20

Vote positif 0 Vote négatif

G

gilles

Guest

• 21 Février 2004

• #6

- Merci Bernard.

Je vais également exploiter tes données.

Gilles

 

Vote positif 0 Vote négatif

J

joris

Guest

• 9 Juin 2004

• #7

Salut pascal,
j'ai utilise ta macro couleur.zip qui marche bien cependant j'ai un probleme. En effet je voulais appliquer la macro sur une cellule qui a une formule simple de multiplication et le code de couleur ne s'applique pas.

-si dans la cellule je tappe la valeur (dans mon cas 0.06) la il met la couleur par contre si le resultat de la multiplication est 0.06 la couleur ne s'applique pas.

Avez vous une explication?

Merci

Joris

 

Vote positif 0 Vote négatif

P

Pascal76

Guest

• 9 Juin 2004

• #8

Salut Joris

Peux-tu envoyer un morceau de ton fichier avec la macro modifié pour voir ce sera plus facile.

Pascal

 

Vote positif 0 Vote négatif

J

joris

Guest

• 9 Juin 2004

• #9

Salut merci pour ta reponse rapide,

voila la macro:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("D10")) Is Nothing Then 'Plage à modifie

Select Case Target.Value
Case Is = "0.06"
Target.Interior.ColorIndex = 2
Case Is = "0.02"
Target.Interior.ColorIndex = 3
Case Is = "0.01"
Target.Interior.ColorIndex = 4

''''Ajoute autant de Case... que tu veux
End Select
End If
End Sub


et voila la formule de D10: F10*G10

Maintenant si dans D10 je tappe 0.02 (par exempole j'ai la couleur)
mais si je tappe 1 dans F10 et 0.06 dans G10 (par exemple) ca marche pas.
J'esperes que c'est plus clair.

merci

 

Vote positif 0 Vote négatif

P

Pascal76

Guest

• 9 Juin 2004

• #10

Salut Joris

Ton problème vient du fait que ayant mis tes résultats entre " " dans ta macro (exemple "0.06") il cherche du texte ayant cette valeur et non le résultat en chiffre. Suprime les guillemets comme ci-dessous et cela marchera

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("D10")) Is Nothing Then 'Plage à modifie

Select Case Target.Value
Case Is = 0.06
Target.Interior.ColorIndex = 2
Case Is = 0.02
Target.Interior.ColorIndex = 3
Case Is = 0.01
Target.Interior.ColorIndex = 4

''''Ajoute autant de Case... que tu veux
End Select
End If
End Sub

Bon courage

Pascal

 

Vote positif 0 Vote négatif

J

joris

Guest

• 9 Juin 2004

• #11

merci encore de ta reponse,
mais ca ne marche pas. J'ai enleve les guimets et pas de changement.
Je suis tout nouveau en VBA donc ne soyez pas trop dur avec moi.

Merci encore .

Joris

 

Vote positif 0 Vote négatif

P

Pascal76

Guest

• 9 Juin 2004

• #12

Re

ok
excuse j'avais oublié un petit détail

essaies cette macro alors

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Range("D10") = 0.06 Then
Range("D10").Interior.ColorIndex = 2
ElseIf Range("D10") = 0.02 Then
Range("D10").Interior.ColorIndex = 3
ElseIf Range("D10") = 0.01 Then
Range("D10").Interior.ColorIndex = 4
End If

End Sub

Bon courage

Pascal

 

Vote positif 0 Vote négatif

J

joris

Guest

• 9 Juin 2004

• #13

merci ca marche,

c'est la premiere fois que je vois un forum aussi efficace et hop dans les favoris... ;-)

Je suis sur un projet sous excel pour mon stage et je sens que je vais avoir d'autres problemes.

J'ai commencer le VBA y a 1 semaines, je suis autodidacte y a t-il un ou des site(s) pour apprendre que vous me conseillez?

Merci encore pascal

Joris

 

Vote positif 0 Vote négatif