Insertion flèche + Date

[apt]

Bonjour,

Comment faire pour que quand une cellule en colonne C à la valeur "x", il y'aura insertion d'une flèche dans la colonne D et la date courante en colonne E.

Et quand le "x" disparaît, la flèche ainsi que la date disparaissent eux aussi ?

Merci.

🙂

 

[apt]

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.

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

Merci.

🙂

 

[Catrice]

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) & ""

 

[apt]

Re : Insertion flèche + Date

Bonsoir Catrice,

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.

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

Merci d'avance 😛

 

[Catrice]

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é ...

 

[apt]

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 :

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

donne par exemple "Nom_0"

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

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 :

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

Elle déclenche une erreur :

Incomptabilité de type

🙄

Et quand j'ajoute Resize ??

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 😎

 

[Catrice]

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+

 

[apt]

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.

 

[Catrice]

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

 

[apt]

Re : Insertion flèche + Date

Bonsoir Catrice,

Ok, je vais tester la nouvelle ligne de code.

🙂

 

[Catrice]

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...

 

[apt]

Re : Insertion flèche + Date

Bonsoir Catrice,

Bonsoir,

Dernieres petites modifs.

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.

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...

Comment ça il perturbe ? 😕

 

[Catrice]

Re : Insertion flèche + Date

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

 

[apt]

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.