XL 2016 Renseigner commentaire

[pompaero]

Bonjour le forum,

Après multiples essais, je m'incline à vous demander de l'aide.
J'aimerai dans mon classeur renseigner des commentaires en cellule H8 et L8 de la feuil "Avarie" venant des liste correspondante de la feuile "Base".
J'ai bien trouver un code (en essai dans feuil "Base") mais je n'arrive pas à l'adapter à ma demande.
Est-ce possible ?
Merci à vous.

cordialement
pompaero

 

[job75]

Bonsoir pompaero,

Cela peut venir de votre version Excel qui serait vérolée.

A tout hasard joignez le fichier que vous avez testé.

A+

 

[pompaero]

Bonjour job75

Je ne vois pas de quoi cela peu venir !!!! Merci de ton aide.
En PJ mon fichier original sans données officielles.

Merci
pomapero

 

[job75]

Bonjour pompaero, le fil,

Je ne vois pas de quoi cela peu venir !!!!

Il est pourtant évident que la feuille "Base" de votre dernier fichier est différente de celle de votre 1er fichier.

Il y a un tableau Excel de plus, placé avant les 2 tableaux en colonnes E et H.

Donc utiliser :

Private Sub Worksheet_Activate()
With Sheets("Base")
    .ListObjects(1).Range.AutoFilter: .ListObjects(1).Range.AutoFilter
    .ListObjects(2).Range.AutoFilter: .ListObjects(2).Range.AutoFilter
    .ListObjects(3).Range.AutoFilter: .ListObjects(3).Range.AutoFilter
    If .FilterMode Then .ShowAllData 'si la feuille est filtrée
    InsereImage .ListObjects(2).Range, [H8]
    InsereImage .ListObjects(3).Range, [L8]
End With
End Sub

A+

 

[job75]

Re,

Cela dit même sans cette correction les images du 1er tableau (colonnes A:B) et du 2ème tableau (colonne E) auraient du s'afficher dans les commentaires.

Si après la correction rien ne s'affiche chez vous c'est qu'effectivement votre version Excel est vérolée.

A+

 

[job75]

Re,

Pour essayer de comprendre d'où vient le problème neutralisez (en mettant une quote ') :

'Kill ThisWorkbook.Path & "\MonImage.gif" 'supprime le fichier gif

Essayez ensuite d'ouvrir le fichier MonImage.gif. Y arrivez-vous ?

Normalement l'image du tableau en colonne H doit s'y trouver.

A+

 

[pompaero]

Bonjour job75

excuse du silence !!
Je viens de tester tes recommandations mais toujours sans résultat.

Cordialement
pompaero

 

[job75]

Bonsoir pompaero,

excuse du silence !!

D'accord mais vous ne répondez pas à ma question : y a-t-il une image dans le fichier MonImage.gif ?

A+

 

[pompaero]

oui, il y a bien la forme du commentaire qui s'affiche mais sans texte dedans

 

[job75]

Re,

Votre version Excel semble ne pas savoir traiter les fichiers .gif.

Alors essayez avec un fichier JPEG :

Sub InsereImage(plage As Range, cel As Range)
plage.CopyPicture
With plage.Parent.ChartObjects.Add(0, 0, plage.Width, plage.Height).Chart
    .Paste
    .Export ThisWorkbook.Path & "\MonImage.jpg", "JPEG"
    .Parent.Delete 'supprime le graphique temporaire
End With
cel.ClearComments
With cel.AddComment("").Shape
    .Width = plage.Width
    .Height = plage.Height
    .Fill.UserPicture ThisWorkbook.Path & "\MonImage.jpg"
End With
Kill ThisWorkbook.Path & "\MonImage.jpg" 'supprime le fichier JPEG
End Sub

Fichier (2).

A+

 

[pompaero]

Re,

Vraiment désolé, mais ça ne change rien, toujours un commentaire sans texte.

Si cela ne fonctionne pas, c'est pas grave je ferai sans, tampi.
Merci
A +

 

[job75]

Bonjour pompaero, le forum,

L'image semble ne pas se coller correctement dans le graphique.

Pour vérifier exécutez cette macro :

Sub Test()
With Sheets("Base").[H1:H17]
    .CopyPicture
    Workbooks.Add.Sheets(1).ChartObjects.Add(0, 0, .Width, .Height).Chart.Paste
End With
End Sub

Y a-t-il le texte dans la feuille créée ?

S'il n'y est pas cela confirmera que votre version Excel est vérolée.

Bonne journée.

 

[pompaero]

Bonjour job75, le forum

ça ne fonctionne pas !!! merci pour tout, c'est sympa de ta part d'avoir fais le maximum.
Tampis, c'est pas grave, Je vais réfléchir à faire autrement

Bonne journée
cordialement

 

[job75]

Re,

L'appareil photo d'Excel ne fonctionne donc pas chez vous en VBA.

Pour vérifier s'il fonctionne manuellement sélectionnez la plage H1:H17 de la feuille "Base".

Ensuite clique sur l'icône Copier à gauche du menu ACCUEIL => Copier comme image.

Sélectionnez une cellule quelconque puis clic droit => Coller.

Si cela ne donne toujours rien voyez ce lien :

https://answers.microsoft.com/fr-fr/surface/forum/surfpro4-surfmusic/appareil-photocaméra-ne-fonctionne-pas/e1529b3e-356f-488b-b25e-8d5a7431d734

A+

 

[pompaero]

Re,
Je viens de tester manuellement ta proposition, ça marche bien chez moi.

 

[job75]

Re,

Non j'avais donné de mauvaises indications, j'ai corrigé le post #28, retestez.

A+