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

 

[Noel Bedard]

Bonsoir pompaero et le Forum,

J'ai ajouté un code dans This Workbook, ce qui va ajouter les commentaires s'ils n'existent pas à l'ouverture du classeur. Je n'ai pas trouvé le façon de faire pour ajouter une liste.
Je me suis permis d'ajouter un formatage à la fenêtre du message, si vous n'aimez pas juste supprimer tous ce qui se trouve entre With et End With inclus ces deux lignes.

Bonne Soirée
Noel

Ajout après c'est affichage: J'ai apporté une correction pour la justification.

 

[pompaero]

Bonsoir Noel, le forum,

Merci de ta contribution, ça à l'aire pas mal... Je rgarde ça plus en détails demain et reviens te dire ce qu'il en est.
Merci @ toi...

Bonne soirée
pompaero

 

[VIARD]

Bonsoir Noel, le forum,

Merci de ta contribution, ça à l'aire pas mal... Je rgarde ça plus en détails demain et reviens te dire ce qu'il en est.
Merci @ toi...

Bonne soirée
pompaero

Bonjour Pompaero, Noël Bedard

Je te propose un module qui devrait faire l'affaire, Il suffit que tu glisses ce module dans ton programme.
avec tu peux récupérer le texte d'une cellule et le placé sur une autre cellule idem si c'est une formule.
pour ma part ton programme ne fonctionne pas chez moi trop ancien.

A+ Jean-Paul

 

[Noel Bedard]

Bonjour pompaero et le Forum

Pourtant ce sont des instructions de bases, ça devrait fonctionner.
Les commentaires sont aux cellules H5 et L5 non pas comme mentionné H8 et L8 car les flèches pointaient vraiment H5 et L5.

J'ai modifié le premier envoie pour corriger la justification.
En voici une autre copie.
Bonne journée
Noël

 

[pompaero]

Bonjour Viard, Noel,

Extraordinaire ton module, c'est bien pensé. je vais m'en servir avec grand plaisir.
Noel, Oui excuse pour la nomination des cellules, en effet c'est bien H5 et L5 et ta proposition est forte interressante également.
Merci à vous
Cordialement
pompaero

 

[job75]

Bonsoir pompaero, Noël, VIARD,

Le plus simple est d'insérer dans le commentaire l'image de la plage :

Private Sub Worksheet_Activate()
With Sheets("Base")
    If .FilterMode Then .ShowAllData 'si la feuille est filtrée
    InsereImage .Range(.[E1], .[E65536].End(xlUp)), [H5]
    InsereImage .Range(.[H1], .[H65536].End(xlUp)), [L5]
End With
End Sub

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.gif", "GIF"
    .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.gif"
End With
Kill ThisWorkbook.Path & "\MonImage.gif" 'supprime le fichier gif
End Sub

Edit : cel.ClearComments est plus simple.

Ce code est à placer dans la feuille "Avarie".

Fichier joint.

A+

 

[job75]

Bonjour pompaero, Noël, VIARD,

S'agissant de tableaux Excel il faut compléter le code pour les "défiltrer" :

Private Sub Worksheet_Activate()
With Sheets("Base")
    If .ListObjects.Count Then .ListObjects(1).Range.AutoFilter: .ListObjects(1).Range.AutoFilter
    If .ListObjects.Count > 1 Then .ListObjects(2).Range.AutoFilter: .ListObjects(2).Range.AutoFilter
    If .FilterMode Then .ShowAllData 'si la feuille est filtrée
    InsereImage .Range(.[E1], .[E65536].End(xlUp)), [H5]
    InsereImage .Range(.[H1], .[H65536].End(xlUp)), [L5]
End With
End Sub

Fichier (2).

Bonne journée.

 

[pompaero]

Bonjour job75

Je viens de regarder les propositions et les essayer mais il s'affiche seulement une image, il n'y a pas de texte...

Cordialement

 

[job75]

Re,

Je viens de regarder les propositions et les essayer mais il s'affiche seulement une image, il n'y a pas de texte...

Ah bon ? Quelle tête elle a cette image ???

A+

 

[pompaero]

Juste un comentaire vide, pas de texte inscrit.

 

[Noel Bedard]

Bonjour job75 et pompaero

Oui effectivement ça fonctionne très bien votre code job75,
Probablement que Pompaero a nommée sa page autrement que Base ou comme vous dites des cellules vide.

Bonne jounée
Noël

 

[job75]

Bonjour pompaero, le forum,

Allons, vous avez forcément testé un fichier où les colonnes E et H de la feuille "Base" sont vides.

Ceux que j'ai déposés fonctionnent très bien : ils ont reçu 3 "J'aime"...

Si en feuille "Base"les tableaux sont toujours des tableaux Excel utiliser bien sûr :

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

Fichier (3).

Edit : vous êtes un rapide Noël, j'ai à peine eu le temps de refaire mon post en ajoutant la macro !

Bonne journée.

 

[VIARD]

Bonjour pompaero, le forum,

Allons, vous avez forcément testé un fichier où les colonnes E et H de la feuille "Base" sont vides.

Ceux que j'ai déposés fonctionnent très bien : ils ont reçu 3 "J'aime"...

Si en feuille "Base"les tableaux sont toujours des tableaux Excel utiliser bien sûr :

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

Fichier (3).

Edit : vous êtes un rapide Noël, j'ai à peine eu le temps de refaire mon post en ajoutant la macro !

Bonne journée.

Bonjour job75 et Pompaero, Noël

Je confirme la manip de "Job" est super génial et fonctionne très bien.

A+ Jean-Paul

 

[pompaero]

Bonjour à tous,

Je vous rassure, j'ai bien des tableaux excel en colonne E et H de la feuille "Base" mais le commentaire est vide, je ne comprends pas et ne doute absolument pas de vos compétences, bien au contraire.
C'est juste que je ne comprends pas pourquoi cela ne fonctionne pas.

Cordialement
A+ pompaero