Commentaire évolutif

[DoubleZero]

Bonjour à toutes et à tous,

Est-il possible qu’un commentaire apparaisse, sous forme de texte ou d’image (selon le type d’événement), sur le jour du calendrier, en fonction de l’année choisie ?

A titre d’exemples, je souhaiterais que le commentaire affiche :

- Un texte du style « Penser à… » pour une occasion particulière (jour fixe) ;

- Une image de ma bibliothèque par jour férié (jour variable).

A toutes fins utiles, mon fichier (très gros) se trouve au post n° 14 de la discussion ci-dessous :

https://www.excel-downloads.com/threads/formule-matricielle-insertion-colonne-et-mfc.151059/

Je vous remercie pour votre aide et vous souhaite un très bon dimanche.

 

[BOISGONTIER]

Re : Commentaire évolutif

Bonjour,

http://boisgontierjacques.free.fr/fichiers/Dates/CalendrierlAnnivFetes.xls

JB

 

[DoubleZero]

Re : Commentaire évolutif

Bonjour et merci, BOISGONTIER,

A présent, divers tests me tendent les bras pour voir si je suis capable d'adapter ces merveilles à mes souhaits...

 

[DoubleZero]

Re : Commentaire évolutif

Re-bonjour , BOISGONTIER, le forum,

En ce qui concerne les événements (jours fériés-anniversaires-fêtes), le fichier joint est une pure merveille.

Malheureusement, toutes mes tentatives, pour réaliser ce que je souhaite, demeurent vaines…

Les images, insérées (et nommées) en lieu et place des écrits, ne restent pas figées dès lors que je change d’année ou navigue d’un feuillet à l’autre au sein du même fichier... Et je ne sais pas modifier la macro en conséquence.

S’il vous plaît, une modification de cette dernière serait-elle possible ?

Je vous remercie pour ce qu’il vous sera permis de faire pour m'aider.

 

[BOISGONTIER]

Re : Commentaire évolutif

Voir PJ

Affiche une image en commentaire dans la cellule où la fonction est écrite.
Les images sont dans c:\mesdoc\

=AfficheCmtPhoto(A7;"c:\mesdoc\") ' A7 contient le nom de l'image (pâques e.g.)

Function AfficheCmtPhoto(nom, répertoire)
  Application.Volatile
  Set f = Sheets(Application.Caller.Parent.Name)
  Set cel = Application.Caller
  If Not cel.Comment Is Nothing Then cel.Comment.Delete
  If nom <> "" Then
   With f.Range(cel.Address)
    If .Comment Is Nothing Then .AddComment
      If Dir(répertoire & nom & ".jpg") <> "" Then
       .Comment.Shape.Left = .Left
       .Comment.Shape.Top = .Top
       .Comment.Visible = True
       .Comment.Text Text:=" "
       .Comment.Shape.Fill.UserPicture répertoire & nom & ".jpg"
       .Comment.Shape.Height = 48
       .Comment.Shape.Width = 60
       .Comment.Shape.ScaleHeight 1.2, msoFalse, msoScaleFromTopLeft
      End If
     End With
    End If
    AfficheCmtPhoto = ""
End Function

JB

 

[DoubleZero]

Re : Commentaire évolutif

Bonsoir à toutes et à tous,

De nouveaux tests me tendent les bras…

Quels qu’en soient les résultats, un grand MERCI, BOISGONTIER !

 

[DoubleZero]

Re : Commentaire évolutif

Re-bonsoir à toutes et à tous,

Saperlipopette !

J’ai consommé mon stock d’acide acétylsalicylique… et je ne parviens à rien de bon !

Est-il possible d’être aussi bête ?

Oui ! J’en suis la triste preuve…

 

[DoubleZero]

Re : Commentaire évolutif

Bonjour à toutes et à tous,

Mes nouveaux essais de ce matin ne sont pas plus concluants que ceux d’hier.

Ci-dessous, trois copies d’écran qui montrent ce que j’obtiens en insérant la formule, laquelle semble contrarier la première macro.

Je ne sais plus comment m’y prendre et vous remercie de nouveau pour votre aide.

 

[Brigitte]

Re : Commentaire évolutif

Bonjour,

Ouhaou... encore un truc trop top, merci 00 d'avoir posé la question et merci jb pour ta réponse.

Ca marche chez moi 00... J'en veux pour preuve mon petit amusement joint (clin d'oeil à mon crs préféré).



Je peux pas mettre le fichier, puisque les photos étant sur mon dd, ca marcherait pas...

Je t'explique si tu veux, hihi. (et pas hihan), oublie pas le slash après le chemin.

 

[BOISGONTIER]

Re : Commentaire évolutif

Bonjour,

Version avec choix de l'échelle

http://boisgontierjacques.free.fr/pages_site/commentaire.htm#CmtPhoto0
http://boisgontierjacques.free.fr/fichiers/Commentaires/FonctionAfficheCmtPhoto.xls

JB

 

[DoubleZero]

Re : Commentaire évolutif

Bonjour à toutes et à tous,

BOISGONTIER,

Merci pour la précision.

Je ne peux, cependant, l'exploiter car je n'ai pas encore franchi le premier obstacle...

Brigitte,

Ouhaou... encore un truc trop top, merci 00 d'avoir posé la question et merci jb pour ta réponse.

Ca marche chez moi 00... J'en veux pour preuve mon petit amusement joint (clin d'oeil à mon crs préféré).

Je t'explique si tu veux, hihi. (et pas hihan), oublie pas le slash après le chemin.

Brigitte, ton "petit amusement" me fait... braire de bonheur : TU AS REUSSI ! !Un seul mot : bravo !

Regarde la pièce jointe 803143​

Et (encore quelques mots...), bien volontiers, si ton emploi du temps te le permet, je voudrais que tu m'apportes du foin pour emplir ma panse d'incompétences...

Bonne fin d'après-midi.

 

[Brigitte]

Re : Commentaire évolutif

Re,

00, appelle moi à l'occasion je te dis comment j'ai fait. Si j'ai réussi, je vois pas comment tu pourrais rater... Impossible...
Bises

 

[DoubleZero]

Re : Commentaire évolutif

... je vois pas comment tu pourrais rater... Impossible...
Bises

Impossible, dis-tu, Brigitte ?

J'espère que tu as raison... !

Grand merci + 😀 bizzz 😀 à toi et bonne soirée au forum.