Insertion flèche + Date

A

apt

XLDnaute Impliqué

• 25 Septembre 2008

• #16

Re : Insertion flèche + Date

Bonsoir Catrice,

Donc tu me suggères d'éviter l'utilisation des flèches "objet".

Je crois qu'il sera mieux de se tourner vers les flèches avec tes formes personnalisées.

Seulement j'ai des problèmes avec le nombre de guillemets avant ChrW() et après.

Parfois en trouve trois, parfois quatre ...

En plus des erreurs signalées tout le temps avant d'équilibrer ces guillemets.

Code:

[COLOR=black][FONT=Verdana]";;;*[COLOR=blue]""[/COLOR] & ChrW(9679) &  [COLOR=blue]"""[/COLOR] & ChrW(9658) & [COLOR=blue]""""[/COLOR][/FONT][/COLOR]

Merci.

🙂

 

Dernière édition: 25 Septembre 2008

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 25 Septembre 2008

• #17

Re : Insertion flèche + Date

Bonsoir,

Je ne suggere pas specialement d'utiliser l'une ou l'autre méthode.
Ca dépend du besoin. Si tu veux absolument des objets fleches, il faut travailler sur une solution de tri qui gere les objets.
Si ce n'est pas un besoin absolu, la solution des formats cellules est peut etre plus souple et efficace.

En fait, il y a des guillemets dont on peut se passer (je mettais le ">" entre guillemets dans le format nombre mais ça n'est pas necessaire)

La ligne de code suivante fonctionne tres bien chez moi :
Target.Offset(0, 1).NumberFormat = ";;;" & ChrW(9679) & "*·" & ChrW(9658) & ""

 

Vote positif 0 Vote négatif

A

apt

XLDnaute Impliqué

• 30 Septembre 2008

• #18

Re : Insertion flèche + Date

Bonsoir Catrice,

Catrice à dit:

Bonsoir,

Je ne suggere pas specialement d'utiliser l'une ou l'autre méthode.
Ca dépend du besoin. Si tu veux absolument des objets fleches, il faut travailler sur une solution de tri qui gere les objets.
Si ce n'est pas un besoin absolu, la solution des formats cellules est peut etre plus souple et efficace.

Cliquez pour agrandir...

Excuse moi, mais pourrais-je avoir un petit exemple sur un tri qui traite des objets flèches ?

Merci d'avance 😛

 

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 1 Octobre 2008

• #19

Re : Insertion flèche + Date

Bonsoir apt,

si tu repasses par le Forum, ci-joint un bout de code qui trie les fleches en tant qu'objets.
Le code n'est surement pas optimisé ...

 

Pièces jointes

• Fleche_Date_v5.zip

  18.8 KB · Affichages: 24
• Fleche_Date_v5.zip

  18.8 KB · Affichages: 26
• Fleche_Date_v5.zip

  18.8 KB · Affichages: 35

Vote positif 0 Vote négatif

A

apt

XLDnaute Impliqué

• 1 Octobre 2008

• #20

Re : Insertion flèche + Date

Bonjour Catrice,

Merci de l'exemple.

Mais j'ai des diffécultés à comprendre tous le code.

Pour cette ligne :

Code:

MsgBox "Split = " & Split(Tablo(i - 1), ";")(1)

donne par exemple "Nom_0"

Mais je n'ai jamais vu un code valide que :

Code:

Range(Nom_0)

qui fonctionne 😕

Alors j'ai dis, comme le code marche bien, je vais essayé de voir ce que ça donne cette ligne :

Code:

MsgBox "Valeur = " & Range(Split(Tablo(i - 1), ";")(1)).Value

Elle déclenche une erreur :

Incomptabilité de type

Cliquez pour agrandir...

🙄

Et quand j'ajoute Resize ??

Code:

MsgBox "Valeur = " & Range(Split(Tablo(i - 1), ";")(1)).Resize(1, 1).Value

Ca donne la valeur "BT" 😕

Comment Resize fait valider une écriture tel que : Range(Nom_0) = Bt ? 😱

Merci 😎

 

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 1 Octobre 2008

• #21

Re : Insertion flèche + Date

Bonjour,

Essaie plutot ceci 😉 :
MsgBox "Adresse = " & Range(Split(Tablo(i - 1), ";")(1)).Address
MsgBox "Adresse = " & Range(Split(Tablo(i - 1), ";")(1)).Resize(1, 1).Address

Le Zip joint contient la macro avec une petite modif qui fait gagner 2 lignes et un Txt explicatif.
A+

 

Pièces jointes

• Fleche_Date_v5.zip

  19.8 KB · Affichages: 14
• Fleche_Date_v5.zip

  19.8 KB · Affichages: 13
• Fleche_Date_v5.zip

  19.8 KB · Affichages: 20

Dernière édition: 1 Octobre 2008

Vote positif 0 Vote négatif

A

apt

XLDnaute Impliqué

• 1 Octobre 2008

• #22

Re : Insertion flèche + Date

Bonjour Catrice,

Sans essayer avec les deux lignes d'affichage en haut j'ai pu comprendre que :

1) Nom_x est une plage nommée.

2) L'erreur provient du fait que je voulais avoir la valeur d'une zone complète avec plusieurs cellules à la fois 😀

Resize permet de se limiter à une seule cellule et ne donner que l'adresse de la première cellule (1,1) de la plage nommée Nom_x 😛

Au fait, les cellules ne sont pas toujours de la même couleur jaune 🙂

Exemple en PJ.

Merci pour tes explications.

Salutations.

 

Pièces jointes

• Fleche_Date_v5.2_Catrice.zip

  13.1 KB · Affichages: 26

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 1 Octobre 2008

• #23

Re : Insertion flèche + Date

Hello,

La couleur des autes cellules n'a pas d'importance.
J'ai testé l'exemple que tu as envoyé, chez moi ca fonctionne.
Il faut juste que les cellules sur lesquelles on veut trier soient en bleu et qu'il n'y en ait pas d'autre bleues.
Mais si on veut on peut tester d'autres criteres, on peut tres bien dire par exemple que les cellules à trier sont celles qui ont une cellule vides à droite ...
Le tout etant de trouver un critere fiable.


Pour les Fleches, remplace le code suivant dans BeforeDoubleClick:

If Target.Column = 3 And Target.Offset(0, -1).Interior.ColorIndex = 6 Then
par
If Target.Column = 3 And Target.Offset(0, -1) <> "" And Target.Offset(0, 1) = "" Then

 

Dernière édition: 1 Octobre 2008

Vote positif 0 Vote négatif

A

apt

XLDnaute Impliqué

• 1 Octobre 2008

• #24

Re : Insertion flèche + Date

Bonsoir Catrice,

Ok, je vais tester la nouvelle ligne de code.

🙂

 

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 1 Octobre 2008

• #25

Re : Insertion flèche + Date

Bonsoir,

Dernieres petites modifs.
En fait, il y avait un petit bug, avec le double-clic 2 fleches etaient créées.
Pas d'incidence sur le fonctionnement mais ca n'est pas tres clean.
Et le nouveaux code de controle perturbe la modification dans la feuille.
Donc adaptation du code...

 

Pièces jointes

• Fleche_Date_v6.zip

  20 KB · Affichages: 22

Vote positif 0 Vote négatif

A

apt

XLDnaute Impliqué

• 2 Octobre 2008

• #26

Re : Insertion flèche + Date

Bonsoir Catrice,

Catrice à dit:

Bonsoir,

Dernieres petites modifs.

Cliquez pour agrandir...

Ca y'est tu vas te reposer de ce fil ? 😉

En fait, il y avait un petit bug, avec le double-clic 2 fleches etaient créées.

Cliquez pour agrandir...

Je n'avais pas remarqué 🙁

Pas d'incidence sur le fonctionnement mais ca n'est pas tres clean.
Et le nouveaux code de controle perturbe la modification dans la feuille.
Donc adaptation du code...

Cliquez pour agrandir...

Comment ça il perturbe ? 😕

 

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 2 Octobre 2008

• #27

Re : Insertion flèche + Date

On ne pouvait plus modifier les cellules dans la feuille.
Mais la derniere version est corrigée

 

Vote positif 0 Vote négatif

A

apt

XLDnaute Impliqué

• 7 Octobre 2008

• #28

Re : Insertion flèche + Date

Bonjour Catrice,

Je m'éxcuse, j'étais en voyage.

Bon, je vais essayer d'adapter la version corrigée à mon besoin.

Merci.

 

Vote positif 0 Vote négatif