Mise en forme paramétrée avec excel

Mise en forme paramétrée avec excel - Divers - Programmation

Marsh Posté le 31-05-2004 à 14:33:35    

Bonjour,
 
j'essaye de faire une mise en forme paramétrée d'une cellule sous excel. A savoir que si sa valeur est inférieure à 0, le fond est rouge, sinon, le fond est blanc.
 
Comment puis-je faire ?


---------------
brisez les rêves des gens, il en restera toujours quelque chose...  -- laissez moi troller sur discu !
Reply

Marsh Posté le 31-05-2004 à 14:33:35   

Reply

Marsh Posté le 31-05-2004 à 15:36:26    

c'est pas de la prog, soft et reseaux [:ban]
 
 
([:itm] de rien)


---------------
IVG en france
Reply

Marsh Posté le 31-05-2004 à 15:37:21    

uriel a écrit :

c'est pas de la prog, soft et reseaux [:ban]


 
oui, mais krapal veut pas me de-TT le temps que je pose ma question [:spamafote]


---------------
brisez les rêves des gens, il en restera toujours quelque chose...  -- laissez moi troller sur discu !
Reply

Marsh Posté le 31-05-2004 à 15:48:41    

:/ je connais pas la reponse en plus...


---------------
IVG en france
Reply

Marsh Posté le 31-05-2004 à 16:10:18    

Tu sélectionnes ta cellule via la méthode Select de l'objet Range et tu joues avec la propriété Interior.
 
Exemple : pour mettre la cellule A1 en jaune (tiré de la doc d'Excel)

Code :
  1. Range("A1" ).Select
  2. Selection.Interior.ColorIndex = 36



---------------
J'ai un string dans l'array (Paris Hilton)
Reply

Marsh Posté le 31-05-2004 à 16:19:52    

C'est pas en VBa que je veux le faire, c'est directement, par une formule :o


Message édité par kadreg le 31-05-2004 à 16:20:01

---------------
brisez les rêves des gens, il en restera toujours quelque chose...  -- laissez moi troller sur discu !
Reply

Marsh Posté le 31-05-2004 à 16:34:20    

kadreg a écrit :

C'est pas en VBa que je veux le faire, c'est directement, par une formule :o


C'est pas possible :o
 
http://support.microsoft.com/defau [...] -us;170787
 

Citation :


A user-defined function called by a formula in a worksheet cell cannot change the environment of Microsoft Excel. This means that such a function cannot do any of the following:
 
# Insert, delete, or format cells on the spreadsheet.
# Change another cell's value.
# Move, rename, delete, or add sheets to a workbook.
# Change any of the environment options, such as calculation mode or screen views.
# Add names to a workbook.
# Set properties or execute most methods.


En résumé, c'est VBA ou rien [:sinclaire]


---------------
J'ai un string dans l'array (Paris Hilton)
Reply

Marsh Posté le 31-05-2004 à 16:35:07    

sapuduku :o


---------------
brisez les rêves des gens, il en restera toujours quelque chose...  -- laissez moi troller sur discu !
Reply

Marsh Posté le 31-05-2004 à 16:36:22    

Pourquoi ne pas utiliser VBA :??:


---------------
J'ai un string dans l'array (Paris Hilton)
Reply

Marsh Posté le 31-05-2004 à 16:37:15    

Parceque je connais pas ?


---------------
brisez les rêves des gens, il en restera toujours quelque chose...  -- laissez moi troller sur discu !
Reply

Marsh Posté le 31-05-2004 à 16:37:15   

Reply

Marsh Posté le 31-05-2004 à 16:37:20    

du tout


---------------
brisez les rêves des gens, il en restera toujours quelque chose...  -- laissez moi troller sur discu !
Reply

Marsh Posté le 31-05-2004 à 16:37:28    

et que je ne veux pas en entendre parler :o


---------------
brisez les rêves des gens, il en restera toujours quelque chose...  -- laissez moi troller sur discu !
Reply

Marsh Posté le 31-05-2004 à 16:41:56    

Ben c'est pas sorcier [:sinclaire]

Code :
  1. Range("A1" ).Select
  2. If Range("A1" ).Value < 0 Then
  3.    Selection.Interior.ColorIndex = (n° du rouge)
  4. Else
  5.    Selection.Interior.ColorIndex = (n° du blanc)


---------------
J'ai un string dans l'array (Paris Hilton)
Reply

Marsh Posté le 31-05-2004 à 16:42:38    

Laisse tomber, je sais même pas ou le mettre


---------------
brisez les rêves des gens, il en restera toujours quelque chose...  -- laissez moi troller sur discu !
Reply

Marsh Posté le 31-05-2004 à 16:55:53    

- Tu ouvres l'éditeur VBA
- Sur le panneau de gauche, tu choisis la feuille dans laquelle tu souhaites que la cellule soit modifiée
- Dans le 1er combobox de l'éditeur, tu choisis "Worksheet"
- Dans le second, tu choisis "Change"
- Tu obtiens cette fonction, dans laquelle tu place le code que je t'ai indiqué :

Code :
  1. Private Sub Worksheet_Change(ByVal Target As Range)


Target est un objet Range, donc tu peux remplacer Range("A1" ) par Target, à condition de réaliser un test pour voir si la cellule modifiée est bien A1 :

Code :
  1. If Target.Address = "$A$1"
  2.    Range("A1" ).Select
  3.    If Target.Value < 0 Then
  4.      Selection.Interior.ColorIndex = (n° du rouge)
  5.    Else
  6.      Selection.Interior.ColorIndex = (n° du blanc)
  7.    End If
  8. End If


---------------
J'ai un string dans l'array (Paris Hilton)
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed