Insertion flèche + Date

deudecos

XLDnaute Impliqué

• 23 Septembre 2008

• #2

Re : Insertion flèche + Date

Salut apt, le forum,

En piece jointe une solution pour l'affichage de la date, par contre, concernant la fleche, j'avoue que je seche, mais surement que quelqu'un aura la solution !

Bonne journee

Olivier

 

Pièces jointes

• TestV2.xls

  11.5 KB · Affichages: 88
• TestV2.xls

  11.5 KB · Affichages: 95
• TestV2.xls

  11.5 KB · Affichages: 90

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 23 Septembre 2008

• #3

Re : Insertion flèche + Date

Bonjour,

Un exemple ci-joint

 

Pièces jointes

• Test.xls

  14 KB · Affichages: 121
• Test.xls

  14 KB · Affichages: 109
• Test.xls

  14 KB · Affichages: 111

Vote positif 0 Vote négatif

CB60

XLDnaute Barbatruc

• 23 Septembre 2008

• #4

Re : Insertion flèche + Date

Bonjour
Pour la fléche tu peut faire:

Code:

=SI(C7="x";"a";"")

avec dans la cellule ou tu a ta formule en format Wingdings 3 cela te permet de mettre le type de fléche que tu souhaite en remplaçant le "a" par d'autre lettre

 

Vote positif 0 Vote négatif

A

apt

XLDnaute Impliqué

• 23 Septembre 2008

• #5

Re : Insertion flèche + Date

Bonjour deudecos, Catrice et CB60,

Pour la date j'aimerais bien l'insérer d'une façon automatique, parce que j'ai essayé avec les formules et ça me posait quelques problèmes après pour d'autres traitements.

Pour la flèche, il faut qu'elle soit sur la longueur totale de la cellule en colonne C, en raison, qu'il y'a dans la colonne C aussi des cellules qui contiennent des sommes.

Alors pas possible pour la font Wingdings3.

La flèche que me proposait Catrice est simple est abordable. Mais de point de vue esthétique, je souhaiterais l'obtenir avec les Shapes.

Une question pour Catrice : Pourquoi cette D39 dans la formule :

Code:

=SI(C6="x";REPT("-";17+D39)&">";"")

Merci.

 

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 23 Septembre 2008

• #6

Re : Insertion flèche + Date

Re,

Ci-joint une autre approche avec les formats nombres.
Esthétiquement ça risque de ne pas coller mais en revanche ça s'adapte à la largeur de la colonne.

Pour ce qui concerne le D39, c'est une erreur de frappe.

Je n'ai pas bien compris ton probleme avec l'insertion de la date ...

 

Pièces jointes

• Classeur1.xls

  14.5 KB · Affichages: 94
• Classeur1.xls

  14.5 KB · Affichages: 88
• Classeur1.xls

  14.5 KB · Affichages: 92

Vote positif 0 Vote négatif

A

apt

XLDnaute Impliqué

• 23 Septembre 2008

• #7

Re : Insertion flèche + Date

Re,

C'est trés bien l'idée d'une forme personnalisée.

Bon mon fichier doit ressembler à ceci :

 

Pièces jointes

• Fleche_Date_v2.zip

  5 KB · Affichages: 52

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 23 Septembre 2008

• #8

Re : Insertion flèche + Date

Re,

Avec ma solution de format, je ne pourrai pas faire beaucoup mieux que ce que tu trouveras dans l'onglet Solution1 du fichier joint.
Mais dans l'onglet Solution2, je propose une solution Macro qui affiche les objets comme tu les souhaites.

 

Pièces jointes

• Fleche_Date_v2.xls

  32.5 KB · Affichages: 128

Dernière édition: 23 Septembre 2008

Vote positif 0 Vote négatif

A

apt

XLDnaute Impliqué

• 23 Septembre 2008

• #9

Re : Insertion flèche + Date

Salut,

C'est supère géniale ta solution 😀

En fait tes deux solutions le sont 😛

Merci infiniment Catrice 🙂

 

Vote positif 0 Vote négatif

A

apt

XLDnaute Impliqué

• 24 Septembre 2008

• #10

Re : Insertion flèche + Date

Bonjour Catrice,

Je voulais essayer d'insérer la flèche en pointillé par VBA, mais ce n'est pas tout à fait réussi :

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 3 And Target.Offset(0, -1).Interior.ColorIndex = 6 Then
        If Target = "X" Then
            Target = ""
    'EffaceFleche Target.Offset(0, 1)
            Target.Offset(0, 1) = ""
            Target.Offset(0, 2) = ""
        Else
            Target = "X"
    'LaFleche Target.Offset(0, 1)
    'Target.Offset(0, 1).NumberFormat = ";;;*·""?"""
            'Target.Offset(0, 1).NumberFormat = ";;;*·" & Chr(117) & ""
            Target.Offset(0, 1) = " "
            Target.Offset(0, 2) = Date
        End If
    End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Column = 3 And Target.Offset(0, -1).Interior.ColorIndex = 6 Then
        If Target = "" Then
            Target = ""
    'EffaceFleche Target.Offset(0, 1)
            Target.Offset(0, 1) = ""
            Target.Offset(0, 2) = ""
        Else
            Target = "X"
    'LaFleche Target.Offset(0, 1)
            Target.Offset(0, 1).NumberFormat = ";;;*·" & Chr(117) & ""
            Target.Offset(0, 1) = " "
            Target.Offset(0, 2) = Date
        End If
    End If
    Application.EnableEvents = True
End Sub

🙄

 

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 24 Septembre 2008

• #11

Re : Insertion flèche + Date

Bonjour,

Il faut juste modifier le code ci-dessous :

Sub LaFleche(Arg1)
Set MaFleche = ActiveSheet.Shapes.AddLine(Arg1.Left, Arg1.Top + (Arg1.Height / 2), Arg1.Left + Arg1.Width, Arg1.Top + (Arg1.Height / 2))
MaFleche.Line.EndArrowheadStyle = msoArrowheadTriangle
MaFleche.Line.BeginArrowheadStyle = msoArrowheadOval
MaFleche.Line.DashStyle = msoLineDash
End Sub

en faisant une recherche dans l'aide sur DashStyle, tu obtiendras les autres constantes appliquables.

 

Vote positif 0 Vote négatif

A

apt

XLDnaute Impliqué

• 24 Septembre 2008

• #12

Re : Insertion flèche + Date

Bonjour Catrice,

Non ce n'est pas ce que je cherchais.

J'aimerais savoir comment peut-on utiliser ta forme personnalisée (;;;*."►") depuis le code VBA ?

Merci.

 

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 24 Septembre 2008

• #13

Re : Insertion flèche + Date

Bonsoir,

Si j'ai bien compris ce que tu voulais faire, voir le fichier joint.

 

Pièces jointes

• Fleche_Date_v3.xls

  36.5 KB · Affichages: 99

Vote positif 0 Vote négatif

A

apt

XLDnaute Impliqué

• 24 Septembre 2008

• #14

Re : Insertion flèche + Date

Bonsoir Catrice,

Ca marche très bien. Merci bien.

Je voulais savoir cela parce que dans ce post :

http://www.excel-downloads.com/forum/104092-tri-croissant-dune-zone.html

Lien supprimé

J'avais un problème lors d'un tri de plages.

Les flèches (Shapes Line) sont dupliquées et déplacées en haut de la feuille au lieu de disparaître lors d'une suppression... !!?

Je ne sais pas quel est le problème ?

Pourquoi avoir utiliser ChrW() au lieu de Chr() ? et d'ou comment les caratères pour ChrW() ?

Merci.

 

Dernière édition: 24 Septembre 2008

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 25 Septembre 2008

• #15

Re : Insertion flèche + Date

bonsoir,

Le probleme de la fleche vient du fait que le code de PierreJean fait des copier/coller et supprime les lignes (Detete) de l'ancien bloc à trier. Le probleme est que le Delete supprime tout sauf les objets.
Donc en final, on se retrouve avec les n fleches qui n'ont pas été effacées.
Il faudrait plutot faire des deplacements mais là c'est compliqué car quand on deplace on perd les references des autes Blocs 🙁
Mais la methode des "tablo" me semble etre la bonne.
A suivre ...

Le Chrw permet d'afficher les caracteres Unicode (au dela de 255. 255 pour Chr)
Les valeurs utilisées sont les valeurs Decimales converties des valeurs Hexadecimales trouvées dans Insertion/Caracteres spéciaux.

 

Dernière édition: 25 Septembre 2008

Vote positif 0 Vote négatif