[ résolu ] afficher une flèche suivant la date d'aujourdhui

[al1.2loin]

Bonjour, sur mon planning j'ai mis la date d’aujourd’hui en surbrillance avec une MFC, pour en faire un peu plus, est il possible d'afficher une flèche au dessus en suivant la date en surbrillance.

 

[Modeste geedee]

Re : afficher une flèche suivant la date d'aujourdhui

Bonsour®
ajouter cette instruction dans l'évènement change de la feuille souhaitée

ActiveSheet.Shapes("flechedate").Left = Cells(3, Application.Match(Range("a2"), Range("A4:AH4"), 0)).Left

 

[al1.2loin]

Re : afficher une flèche suivant la date d'aujourdhui

Bonjour et merci d'avoir répondu si rapidement, je suis un peu novice en ce qui concerne les codes, j'ai copier / coller votre code dans ma feuille mais il n'y a pas de flèche qui apparait.

 

[Modeste geedee]

Re : afficher une flèche suivant la date d'aujourdhui

Bonsour®
le fichier en retour
ne concerne que la feuille novembre

 

[al1.2loin]

Re : afficher une flèche suivant la date d'aujourdhui

Bonjour, et merci de m'avoir mis sur la voie, j'ai regardé le fichier que vous avez rectifié, mais la flèche ne suit pas la date du jour qui est en surbrillance, et elle est aligné sur la gauche alors que je l'aurais voulu centré sur la cellule, j'en demande beaucoup .
Bon week-end à vous.

 

[Modeste geedee]

Re : afficher une flèche suivant la date d'aujourdhui

Bonsour®

mais la flèche ne suit pas la date du jour qui est en surbrillance.

dans ce cas attendez une autre réponse !!!

il s'agit d'une procédure événementielle... Change
il faut apporter un changement dans la feuille !

alternative :
Private Sub Worksheet_Activate()
ActiveSheet.Shapes("flechedate").Left = Cells(3, Application.Match(Range("a2"), Range("A4:AH4"), 0)).Left
End Sub
mais il faudra dans ce cas au moins changer de feuille !

 

[al1.2loin]

Re : afficher une flèche suivant la date d'aujourdhui

Bonjour Modeste ,j'ai trouvé un autre moyen,en glanant sur le forum, j'ai remplacé ma flècheshape tout bonnement par la police wingdind3 avec la formule:
=SI(C4=AUJOURDHUI();"a";"") et le tour est joué.
Merci pour votre implication.

 

[BOISGONTIER]

Re : afficher une flèche suivant la date d'aujourdhui

Bonjour,

Avec une fonction

=positionshape("fleche";C4)

http://boisgontierjacques.free.fr/fichiers/Images/FlecheDate.xls

JB

 

[al1.2loin]

Re : afficher une flèche suivant la date d'aujourdhui

Bonjour JB ,votre formule fonctionne mais je n'ai pas trouvé de positionnement vers le bas, mais je la garde sous le coude si je veux l'utiliser pour pour d'autres fonctions, je vais rester sur la fonction avec police wingding3.
merci à vous et bonne journée.