Problème worksheet

desatan · 22 Mai 2015

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 · 22 Mai 2015

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 · 22 Mai 2015

Re : Problème worksheet

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

gilbert_RGI · 22 Mai 2015

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 · 22 Mai 2015

Re : Problème worksheet

Voilà le fichier qui fonctionne enfin pour moi 🙄

desatan · 22 Mai 2015

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 · 22 Mai 2015

Re : Problème worksheet

alors voilà

desatan · 22 Mai 2015

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 · 22 Mai 2015

Re : Problème worksheet

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

demande s'il faut des explications

desatan · 27 Mai 2015

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 · 27 Mai 2015

Re : Problème worksheet

Bonjour,

remplace la procédure supprime_shape par celle-ci

VB:

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 · 27 Mai 2015

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 · 27 Mai 2015

Re : Problème worksheet

voilà le code expliqué

VB:

    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 · 27 Mai 2015

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 · 27 Mai 2015

Re : Problème worksheet

exemple pour descendre les flèches 4

VB:

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

Problème worksheet

desatan

XLDnaute Occasionnel

Pièces jointes

gilbert_RGI

XLDnaute Barbatruc

desatan

XLDnaute Occasionnel

gilbert_RGI

XLDnaute Barbatruc

gilbert_RGI

XLDnaute Barbatruc

Pièces jointes

desatan

XLDnaute Occasionnel

gilbert_RGI

XLDnaute Barbatruc

Pièces jointes

desatan

XLDnaute Occasionnel

gilbert_RGI

XLDnaute Barbatruc

desatan

XLDnaute Occasionnel

gilbert_RGI

XLDnaute Barbatruc

desatan

XLDnaute Occasionnel

gilbert_RGI

XLDnaute Barbatruc

gilbert_RGI

XLDnaute Barbatruc

gilbert_RGI

XLDnaute Barbatruc

Discussions similaires

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.

Problème worksheet

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

XLDnaute Occasionnel

XLDnaute Barbatruc

Pièces jointes

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency