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