Connecteurs - épaisseur & couleurs du trait

Dranreb

XLDnaute Barbatruc

• 19 Avril 2011

• #2

Re : Connecteurs - épaisseur & couleurs du trait

Bonjour.
Par une macro. Boucler sur les Shapes. Ils ont un jeu de propriétés faites pour les connecteurs attachés.
J'ajouterais bien le code moi même à votre classeur.
À+

 

Vote positif 0 Vote négatif

C

CdG06

XLDnaute Nouveau

• 19 Avril 2011

• #3

Re : Connecteurs - épaisseur & couleurs du trait

Merci Dranreb pour ta réponse.

J'ai joint un exemple (pas forcément très beau.....) de ce que je fais manuellement!!!

VBA n'est pas bien maitrisé de ma part, j'ai essayé avec l'enregistreur sans résultat.

Le "rêve" serait que ces flèches se mettent à jour toutes seules à chaque changements de données......... sinon ce sera à la main!!! 😛

 

Pièces jointes

• Connecteurs.xlsx

  9.7 KB · Affichages: 183

Vote positif 0 Vote négatif

klin89

XLDnaute Accro

• 19 Avril 2011

• #4

Re : Connecteurs - épaisseur & couleurs du trait

Bonjour CdG06, Dranreb
Bonjour à tous,

Une idée dans ce fil :

https://www.excel-downloads.com/threads/couleur-fleche-suivant-la-valeur-dune-cellule.156967/

Ou ceci :

https://www.excel-downloads.com/threads/mise-en-forme-conditionnelle-dun-connecteur.131503/

Klin89

 

Dernière édition: 19 Avril 2011

Vote positif 0 Vote négatif

C

CdG06

XLDnaute Nouveau

• 19 Avril 2011

• #5

Re : Connecteurs - épaisseur & couleurs du trait

Merci Klin89, vais étudier ce code pour la couleur.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 19 Avril 2011

• #6

Re : Connecteurs - épaisseur & couleurs du trait

Je croyais que le volume de flux était inscrit dans les recangles.
Là, comment ou établit le lien entre les connecteurs et les cellules correspondante ?
À+

 

Vote positif 0 Vote négatif

C

CdG06

XLDnaute Nouveau

• 19 Avril 2011

• #7

Re : Connecteurs - épaisseur & couleurs du trait

Dranreb, en fait les donnés de volumes sont dans un pavé de cellules hors dessin. J'ai juste fait 4 classes de volume pour 4 épaisseurs, le signe m'indiquant la couleur. Les rectangles indiquant d'autres infos ou un nom.

Bonne journée

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 19 Avril 2011

• #8

Re : Connecteurs - épaisseur & couleurs du trait

Bon.
Puisque vous ne répondez pas à ma question, je décide:
Le nom du connecteuer sera de la forme "Conn" & Adresse de la cellule contenant le volume.
À+

Voilà:

VB:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Sh As Shape, Vol As Long
For Each Sh In Me.Shapes
   If Left(Sh.Name, 4) = "Conn" Then
      Vol = Me.Range(Mid$(Sh.Name, 5)).Value
      End If
   Sh.Line.Weight = Abs(Vol) + 1
   If Vol > 0 Then Sh.Line.ForeColor.RGB = RGB(0, 128, 0) _
              Else Sh.Line.ForeColor.RGB = RGB(255, 0, 0)
   Next Sh
End Sub

À+

 

Dernière édition: 19 Avril 2011

Vote positif 0 Vote négatif

C

CdG06

XLDnaute Nouveau

• 19 Avril 2011

• #9

Re : Connecteurs - épaisseur & couleurs du trait

Désolé Dranreb, je n'avais pas compris l'objet de votre question. Le nom que vous donnez me va bien et il est explicite 😱 Merci et bon appétit, vue l'heure!!!

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 19 Avril 2011

• #10

Re : Connecteurs - épaisseur & couleurs du trait

Ébauche de solution dans modif de post précédent.
Bon appétit à vous aussi.

 

Vote positif 0 Vote négatif

C

CdG06

XLDnaute Nouveau

• 19 Avril 2011

• #11

Re : Connecteurs - épaisseur & couleurs du trait

Merci Dranreb, vais étudier cela maintenant.....m'attendais pas à ces instructions, totalement inconnues........
Sympa ton aide merci et à tout à l'heure

 

Vote positif 0 Vote négatif

C

CdG06

XLDnaute Nouveau

• 19 Avril 2011

• #12

Re : Connecteurs - épaisseur & couleurs du trait

Dranreb,
Le test pour la couleur semble correct, cependant la flèche ne connait que le "rouge". L'épaisseur du trait est la même, mais je pense qu'il me faut lui indiquer quelle éppaisseur de trait pour quel volume.

@+

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 19 Avril 2011

• #13

Re : Connecteurs - épaisseur & couleurs du trait

Non, normalelment si les cellules contiennent bien des nombres il ne devrait colorier en rouge que les négatifs. Effectivement j'affecte le volume+1 comme epaisseur, peut être un Log serait plus indiqué ?
En revanche une erreur grave dans mon code: le End If devrait être juste avant le Next Sh.

Ah et puis il va de soit que le "Connecteur droit avec flèche 5" doit être renommé "ConnD12"
et que le "Connecteur droit avec flèche 7" doit être renommé "ConnG12".

Remarque: Des noms de plages marcheraient aussi et ce serait mieux.

À+

 

Dernière édition: 19 Avril 2011

Vote positif 0 Vote négatif

C

CdG06

XLDnaute Nouveau

• 19 Avril 2011

• #14

Re : Connecteurs - épaisseur & couleurs du trait

Dranreb,

Alors il manquerait un Endif non?
As tu essayer dans un classeur?

@+

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 19 Avril 2011

• #15

Re : Connecteurs - épaisseur & couleurs du trait

Oui. dans un .xls fabriqué à partir de ton .xlsx ça marche.
Non, il était à la mauvaise place:

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Sh As Shape, Vol As Long
For Each Sh In Me.Shapes
   If Left(Sh.Name, 4) = "Conn" Then
      Vol = Me.Range(Mid$(Sh.Name, 5)).Value
      Sh.Line.Weight = Abs(Vol) + 1
      If Vol > 0 Then Sh.Line.ForeColor.RGB = RGB(0, 128, 0) _
                 Else Sh.Line.ForeColor.RGB = RGB(255, 0, 0)
   ElseIf Sh.Connector Then
      MsgBox "Nom de connecteur """ & Sh.Name & """ Incorrect"
      End If
   Next Sh
End Sub

 

Vote positif 0 Vote négatif