fleches croissantes ou décroissantes selon valeur

Question

Bonjour,
je cherche &#224; ajouter en fonction d'un crit&#232;re de valeur ( positif ou n&#233;gatif) une fleche sur la droite d'une cellule.
par exemple : si A1=-100 alors fleche decroissante sur cellule A2
                        si A1 = 100 alors fleche croissante sur cellule A2
etc pour les autres cellules de la m&#234;me colonne!!
Merci d'avance et j'en profite pour vous souhaiter &#224; toutes et &#224; tous une bonne et heureuse ann&#233;e.

Skygod · Answer

Salut, Moi, je ferais comme ceci : Range("A1").select do until isempty(activecell.value) if activecell.value <0 then activecell.offset(0,1) = "<" elseif activecell.value > 0 then activecell.offset(0,1) = ">" endif activecell.offset(1,0).select loop Mais attention, je suis loin d'être un pro alors il y a peut-être + simple et + correct. Skygod

ScSami · Answer

Pense &#224; toujours nous dire dans quel langage tu programmes (VBA en l'occurence!) et sa version ainsi que le soft (Excel, Word, Access, ...). Car on est pas dans ta t&#234;te pour deviner!
Moi, je serais toi, je me prendrais pas la t&#234;te avec du code VBA et je me contenterais, en lieu et place des fl&#234;ches, de codes couleurs (rouge n&#233;gatif et vert positif) mis en place via la Mise en form conditionnelle (Menu "Format" sous Excel).

Autrement dit, tu s&#233;lectionnes les cellules en cause, tu lances cette fonction de Excel (Menu Format => Mise en forme conditionnelle... sous Excel 2000!), et tu fait 2 conditions : une pour le rouge et l'autre pour le vert... tout simplement !

Est-ce que cela r&#233;pond a ta question o&#249; as-tu vraiment besoin d'un code VBA ???

Enjoy 

<hr size="2" width="100%">
( Si une r&#233;ponse vous convient, cliquez sur le bouton "R&#233;ponse accept&#233;e". )

cs_marcopolo2 · Answer

j'ai effectivement oubli&#233; de pr&#233;ciser qu'il s'agissait de vba excell.
j'en suis l&#224; pour tout vous dire :


Set plageCherche = Application.InputBox(Prompt:="S&#233;lectionnez la plage de donn&#233;es &#224; modifier", Type:=(8))


For Each Item In plageCherche
    On Error Resume Next
    If Item.Value >= 0 Then
        Item.Select
            With Selection
             .Font.ColorIndex = 4   
            End With
    Else
        Item.Select
            With Selection
              .Font.ColorIndex = 3
              .Font.Bold = True 
            End With
    End If


Next

je connais les fomats conditionnels ou autres mais ce que je cherche &#224; faire est totalement diff&#233;rent et je n'ai pas d'autres choix.
je dois construire des rapports rapidement ou je dois int&#233;grer des fleches ( des shapes) &#224; cot&#233; des valeurs d'un tableau ( et pas juste des > ou < ).
si vous avez une id&#233;e je suis preneur.
merci d'avance.

ScSami · Answer

Ton salut se trouve dans l'aide &#224; la rubrique :
ActiveSheet.Shapes.AddShape(Constante VB..., ...
Enfin, a mon avis car je ne suis pas all&#233; regard&#233; toutes les constantes!
Sinon, regarde l'objet Shapes.

Le plus difficile est d'obtenir les coordonn&#233;es graphiques de la cellule d'a cot&#233;... L&#224;, tu peux toujours cr&#233;er une petite fonction pour additionner la hauteur de chaque cellule (avec un petit For/Next) s'il n'y a aucune propri&#233;t&#233; pour te donner l'info!

Enjoy 

<hr size="2" width="100%">
( Si une r&#233;ponse vous convient, cliquez sur le bouton "R&#233;ponse accept&#233;e". )

Fleches croissantes ou décroissantes selon valeur

4 réponses

Discussions similaires