Problème worksheet

[desatan]

Bonjour à tous,

Je viens vous demander de l'aide.
Dans le fichier ci joint, j'ai 2 feuilles, une de données et une de financier.
Sur la feuille de restitution, j'ai des fléches qui s'affichent en fonction de la colone I de la feuille données.

Mon problème vient de i94 et i95.
Quand les résultats de ces cellules est supérieur à 0, je dois alors avoir une flèche rouge vers le haut sur la feuille financier
Quand les résultats de ces cellules est inférieur à 0, je dois alors avoir une flèche verte vers le bat sur la feuille financier

Pour les autres cela fonctionne mais ces 2 là fonctionnent à l'inverse des autres.

Merci par avance

 

[gilbert_RGI]

Re : Problème worksheet

Bonjour,

Dans votre code les numéros de flèches ne correspondent pas

et dans la MFC les plages ne correspondent pas aussi

 

[desatan]

Re : Problème worksheet

désolé mais je n'ai pas compris ?

 

[gilbert_RGI]

Re : Problème worksheet

certainement après manipulation les flèches ne sont plus nommées comme à l'origine d’où l'erreur

 

[gilbert_RGI]

Re : Problème worksheet

Voilà le fichier qui fonctionne enfin pour moi

 

[desatan]

Re : Problème worksheet

Merci Gilbert mais non le fichier ne fonctionne pas.
i94 et i95 fonctionnent à l'inverse des autres!
Quand ces cellules sont supérieurs à 0, on doit avoir un flèche rouge qui monte et quand ces cellules sont inférieurs à 0, on doit avoir une flèche verte qui descend.

Et si possible, je souhaite conserver les formats des flèches de mon fichier d'origine.

MErci par avance

 

[gilbert_RGI]

Re : Problème worksheet

alors voilà

 

[desatan]

Re : Problème worksheet

merci Gilbert, je vois que ton fichier fonctionne mais mon petit niveau Excel ne comprends pas ton VBA, j'aurai aimé que tu corriges le VBA existant ?

MErci

 

[gilbert_RGI]

Re : Problème worksheet

la correction n'était pas possible vu le changement qu'il avait eu

demande s'il faut des explications

 

[desatan]

Re : Problème worksheet

Quand j'importe le code de ton module et de la feuille financier dans mon fichier source.
Je clique sur la feuille données puis financier, j'ai un message d'erreur qui apparait.
Je fais déblocage et ca de surligné en jaune :
ActiveSheet.Shapes("plus" & i).Delete

MErci par avance pour ton aide

 

[gilbert_RGI]

Re : Problème worksheet

Bonjour,

remplace la procédure supprime_shape par celle-ci

Sub supprime_shape()
    On Error Resume Next
    For i = 1 To 5
        ActiveSheet.Shapes("plus" & i).Delete
        ActiveSheet.Shapes("moins" & i).Delete

    Next
End Sub

 

[desatan]

Re : Problème worksheet

Bonjour,

Merci, cela a corrigé le bug ;-)

Comment puis je changer de couleur les flèches ?
Comment puis je positionner différement les flèches ? Par exemple, en mettre une plus basse que l'autre ?

Merci par avance

 

[gilbert_RGI]

Re : Problème worksheet

voilà le code expliqué

    Dim objShp As Shape                                                          ' Déclarations
    'msoShapeDownArrow
    x = 100                                                                     'largeur de départ
    y = 50                                                                      'hauteur de départ
    For i = 1 To 5                                                              'boucle pour les 5 shapes montantes
        Set objShp = ActiveSheet.Shapes.AddShape(msoShapeUpArrow, x, y, 20, 40) 'création de la flèche montante
        If i = 3 Or i = 4 Then                                                  'si c'est la flèche 3 ou 4
            objShp.Fill.ForeColor.RGB = RGB(255, 0, 0)                          'mettre en rouge
        Else                                                                    'sinon
            objShp.Fill.ForeColor.RGB = RGB(0, 255, 255)                        'mettre en vert
        End If                                                                  'fin du si
        objShp.Name = "plus" & i                                                'nommer la flèche avec incrémentation
        objShp.IncrementRotation 45                                             'inclinaison de la flèche
        x = x + 150                                                             'espace entre chaque flèche
    Next

 

[gilbert_RGI]

Re : Problème worksheet

pour la hauteur de la flèche il faut changer la valeur du top

expression .AddShape(Type, Left, Top, Width, Height)

expression Variable représentant un objet Formes.
[h=3]Paramètres[/h]

Nom	Obligatoire/Facultatif	Type de données	Description
Type	Obligatoire	Ce lien n'existe plus	Spécifie le type de forme automatique à créer.
Left	Obligatoire	Single	Position (exprimée en points) du coin supérieur gauche du cadre englobant de la forme automatique par rapport au coin supérieur gauche du document.
Top	Obligatoire	Single	Position (exprimée en points) du coin supérieur gauche du cadre englobant de la forme automatique par rapport au coin supérieur gauche du document.
Width	Obligatoire	Single	Largeur du cadre englobant de la forme automatique, exprimée en points.
Height	Obligatoire	Single	Hauteur du cadre englobant de la forme automatique, exprimée en points.

[h=3][/h]

 

[gilbert_RGI]

Re : Problème worksheet

exemple pour descendre les flèches 4

Sub descendreShp4()
        ActiveSheet.Shapes("plus" & 4).Top = 120
        ActiveSheet.Shapes("moins" & 4).Top = 120
End Sub