EXCEL - Astuce sur CCM interessante!

Question

Bonjour,

Il y a une astuce forte intéressante ici sur les commentaires :
http://www.commentcamarche.net/faq/sujet 8660 mettre en forme les commentaires excel

Il faut la lire pour comprendre ma requete...

Je me demande s'il est possible d'inserer un graphique dans le commentaire (puisqu'il disent qu'on peut y inserer une image)

Alors je me dis qu'une marco pourrait faire cela :

1.créer un graph sur une plage de données
2.le convertir en image
3. Inserer l'image dans le commentaire d'une cellule definie
4. Effacer le graphique original

Je pense que ce serait une TRES belle macro...mais je suis incapable de faire ça!

Si vous avez des idées...

Raymond PENTIER · Accepted Answer

Bonjour, chère Ophélie.

Ton idée est séduisante. Le seul hic, c'est ta deuxième étape, pour laquelle je n'ai pas encore trouvé de solution. Mais il faut positiver, et espérer qu'une proposition constructive tombera incessamment ...
Pour le reste, c'est OK : argixu m'a indiqué comment insérer une image, et ça marche parfaitement bien. D'autres l'ont aussi évoqué, depuis, dans les colonnes de CCM. Reste juste à trouver comment convertir un graphe en image.

Ophelie75 · Answer

En tout cas cela m'interesserait bcp si un magicien de VB arrivait à créer ce genre de chose.
Je pense aussi que cela interesserait pas mal de monde...

oO · Answer

chalut <3

Ophelie75 · Answer

je vois pas ce que la pêche viens faire la dedans oO   ;-)

Ophelie75 · Answer

Je vois que ça ne déplace pas les foules...

:-(

Ophelie75 · Answer

Alors oui Raymond ça pouvait paraitre être l'étape la plus simple, mais en y repensant... pas vraiment!

PS : j'ajouterais même une étape ;-)       >>> 5. reprendre le process si une valeur est modifiée dans la plage de données liée au graphique!

J'imagine juste que cela pourait être quand même vraiment génial comme truc!

Ophélie

algoplus · Answer

Super intéressant, mais en version 2003, je ne peux même pas faire un copier coller avec du texte dans un commentaire.
sinon pour transformer le graph le selectionner, copier, coller sur word,ou dans traitement d'image ?

lermite222 · Answer

Bonjour à tous,
L'astuce est pas mal mais il parle d'insérer une photo, l'idéal ce serrait qu'il ai développé le mode d'emploi pour ce faire parce que moi j'ai pas réussi.
Quelqu'un sait-il ?
A+

Mike-31 · Answer

Salut les amis,

es ce de cela que vous parlez: mettre un graphique dans un commentaire avant de l'effacer,

https://www.cjoint.com/?hDwgmmt5AK

A+

Ophelie75 · Answer

Et voila! ça ressemble bien à quelque chose! Bravo Mike!
Est il possible que le graph prenne toute la place dans le com?

Mais en ce qui concerne l'automatisation du processus (voir post 1) je pense que c'est une autre histoire...
A suivre..

Utilisateur anonyme · Answer

Pour satisfaire en partie l'idée d'Ophélie : une macro trouvée sur un site avec tout plein d'explications à chaque ligne pour décoder qui me donnerait – presque – envie d'y goûter
https://vb.developpez.com/faqvba/?page=3.5#insertgraph 

Sans macro, on peut aussi. En copiant le graph sous Power par exemple ; le sélectionner, clic droit, l'enregistrer en tant qu'image qu'on peut insérer ensuite dans le commentaire.

Quant à l'étape 4 pour lier les données, il faut oublier, parce que dans un commentaire, ce n'est qu'une image qui peut y être insérée.

Mais quel est l'intérêt d'avoir un graphique dans un commentaire qui sera illisible à moins de zoomer à 200 % minimum, alors qu'un graphique a avant tout vocation d'être visuel ?

Mike-31 · Answer

Il y a toujours une solution

https://www.cjoint.com/?hDwWyB0WuP

Autre chose pour vous servir !!!

A+

Ophelie75 · Answer

L'avantage est clair :

Quand on a 3000 lignes de données on ne peut avoir 3000 graphiques à coté...

Et pour l'histoire de lier les données, nous parlons bien d'une image dans le commentaire depuis le début...

Pour mémo dans mon premier post j'écrivais ceci :

"
Alors je me dis qu'une marco pourrait faire cela : 

1.créer un graph sur une plage de données 
2.le convertir en image 
3. Inserer l'image dans le commentaire d'une cellule definie 
4. Effacer le graphique original 
"

Parce que l'interet de faire ça , c'est bien quand on a besoin de mettre beacoup de graph sur la même feuille...

Et puis je pense que pour voir une "tendance" une image de graph, même si elle est un peu floue, suffit...

Ophélie

eriiic · Answer

Bonsoir tout le monde :-)

Pour le 3 et le 4 (le faire par macro) il y a tout ce qu'il faut sur le lien fourni par argixu.
eric

Ophelie75 · Answer

Merci eric et surout argixu pour le bon plan! je vais me pencher sur le 1 et 2

Ophelie75 · Answer

Encore mieux non?

dandypunk · Answer

Salut Ophélie quelle est ta version d'XL ?

Ophelie75 · Answer

Salut dandypounk,

ma version est 2003.

Ophélie

dandypunk · Answer

OK qui peu le plus peut le moins.
Je travaille sous 2000.
Ce latin, en faisant des recherche sur l'aide en ligne, j'ai vu comment modifier les bulles d'aide.
Je ne garantis pas le résultat.
Laisse moi une petite semaine (04/08)

SGDG (Sans Garantie Du Gouvernement)

Dandypunk

Raymond PENTIER · Answer

Merci, Mike ! Merci, argixu ! 

Vos solutions (copier le graphe dans Paint ou PowerPoint et sauvegarder en format image) marchent toutes les deux. 

Il faut juste penser, en terminant la sélection de l'image dans "Format de commentaire", à préciser "Verrouiller les proportions de l'image". Je n'ai pas réussi à voir quels avantages et inconvénients présentent les différents formats d'image PNG, GIF, JPEG ; en tout cas je ne suis jamais parvenu à faire en sorte que la taille de l'image et celle de la fenêtre de commentaire s'adaptent automatiquement (remplissage à 100%).

Et merci à Ophélie qui a posé le problème ...

Ophelie75 · Answer

Bonjour Lermitte

Ok sorry for that...

Source : https://vb.developpez.com/

Ophélie

Smart91 · Answer

Moi je dis bravo à tout le monde, je viens d'apprendre quelque chose de super que je vais m'empresser d'utiliser
Je merci à tous car cela m'évite d'oublier quelq'un

Je pense qu'un des contrib devrait faire une astuce

Smart

Ophelie75 · Answer

Ok lermite encore une fois je suis désolée...
On ne m'y reprendra plus.

Ophélie

Smart91 · Answer

Et même si on fait un lien vers la source en la citant ?

Smart

Ophelie75 · Answer

En gros il faut cacher le lien hypertexte?

Smart91 · Answer

Non au contraire, je pense qu'il faut donner le lien, mais en précisant bien la source et l'auteur. Un peu comme pour les articles CCM:

Ce document intitulé « Algorithmique - Introduction » issu de Comment Ça Marche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.

Smart

lermite222 · Answer

Tu n'a CERTAINEMENT PAS LU LE COPYRIGHT DE DEVELOPER.COM ??????????????
Les sources présentées sur cette page sont libres de droits, et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une oeuvre intellectuelle protégée par les droits d'auteurs. Copyright © 2008 Developpez LLC. Tous droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à 3 ans de prison et jusqu'à 300 000 E de dommages et intérêts. Cette page est déposée à la SACD.
A bon entendeur..

lermite222 · Answer

Sais pas si c'est de nouveau un bug mais mon 1er poste n'est pas passer..
Je ne crois pas que tu ai lu le copyright de Developez.com
Les sources présentées sur cette page sont libres de droits, et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une oeuvre intellectuelle protégée par les droits d'auteurs. Copyright © 2008 Developpez LLC. Tous droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à 3 ans de prison et jusqu'à 300 000 E de dommages et intérêts. Cette page est déposée à la SACD.
A bon entendeur...

Mike-31 · Answer

Salut,

Ce code est génial, il faudrait l'améliorer de sorte que l'on ai pas à modifier le code macro chaque fois qu'un commentaire doit s'inscrire dans une cellule autre que A1.

ce que je cherche à faire, c'est d'inscrire par exemple en A1 la référence d'une cellule exemple F10 et que le commentaire s'inscrive automatiquement en F10.

Par le code Feuille pas de problème
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$A$1" Then
   Range(Target.Value).Select
  End If
End Sub

Reste à trouver le code pour l'insérer dans la macro. Si quelqu'un à la solution je suis preneur avant de me prendre la tête

A+

Mike-31 · Answer

Salut mermite222,

Si l'on prend l'exemple du code macro précité dans cette discussion ou l’on veut insérer un commentaire différent avec ou sans image dans plusieurs cellules, qui ne sauraient pas défini au départ dans le code macro.

Il serait intéressant de saisir la référence d’une cellule exemple en A1 on saisirai P5 et le commentaire se créerait dans la cellule P5. si un autre commentaire devait être insérer dans une autre cellule il serait plus facile de saisir une référence dans la cellule que de modifier à chaque fois le code macro

A+

dandypunk · Answer

Voila un code qui tourne (enfin chez moi)
Sub CopierGraph()
    Dim sChemin As String
    Dim sNomGraphique As String
    Dim rPlageDeDonnees As Range
    Dim rCelluleACommenter As Range
    
    On Error GoTo SupprimerCommentaire
    'On crée une feuille qui servira à stocker le nom du dernier fichier
    
    If Worksheets(1).Name <> "DernierFichier" Then
        Worksheets(1).Select
        Sheets.Add
        Worksheets(1).Name = "DernierFichier"
        Sheets("DernierFichier").Select
        ActiveWindow.SelectedSheets.Visible = False
        Sheets("DernierFichier").Range("A1").Value = 1
    End If
    
    'Crée le fichier MonGraphx.BMP
    sChemin = ThisWorkbook.Path + "\MonGraph" & Sheets("DernierFichier").Range("A1").Value & ".GIF"
    
    'Selection des cellules
    Set rPlageDeDonnees = Application.InputBox("Saisissez la plage de données nécessaires au graphique", Type:=8)
    Set rCelluleACommenter = Application.InputBox("Indiquez la cellule à commenter", Type:=8)
        
    'On crée le graphique
    Charts.Add
    With ActiveChart
        sNomGraphique = .Name
            'Histogramme (Le type de graphique se trouve dans CharType)
            'On pourra ajouter un UserForm pour sélectionner le type de graphique
        .ChartType = xlColumnClustered
        .SetSourceData Source:=rPlageDeDonnees, PlotBy:=xlColumns
        'On exporte le graphique
        .Export Filename:=sChemin, Filtername:="GIF"
    End With
    
    
    'On supprime le graphique sans msg de confirmation
    Application.DisplayAlerts = False
    Sheets(sNomGraphique).Delete
    Application.DisplayAlerts = True
    
    'On ajoute le commentaire
    With Worksheets(rCelluleACommenter.Worksheet.Index).Range(rCelluleACommenter.Address)
        .AddComment "Le graphique correspondant à la plage est"
        .Comment.Shape.Height = 400
        .Comment.Shape.Width = 500
        .Comment.Shape.Fill.UserPicture (sChemin)
    End With
        
    If MsgBox("Voulez vous effacer le fichier image ?", vbYesNo + vbQuestion) = vbYes Then
        Kill sChemin
    Else
        Sheets("DernierFichier").Range("A1").Value = Sheets("DernierFichier").Range("A1").Value + 1
    End If
    
    Exit Sub

SupprimerCommentaire:
    If Err.Number = 1004 Then
        'On supprime le commentaire existant car AddComment a provoqué une erreur
       Worksheets(rCelluleACommenter.Worksheet.Index).Range(rCelluleACommenter.Address).Comment.Delete
       Resume
    End If
End Sub

Il suffit de l'enregistrer dans PERSO.XLS puis d'affecter la macro à un bouton de la barre de commande.

Ophelie75 · Answer

Bonjour tout le monde!

D'abord j'espère que lermite ne m'en veut plus pour la petit écart à la charte CCM et j'espère que vous allez bien...

Quelqu'un pourrait faire un petit topo de ce qui a été proposé, car je l'avoue franchement je n'y comprends plus rien!

Quid des étapes que je proposais dans mon post initial? (cf post n°1)

Merci à tous pour l'engouement (comme quoi l'dée de base interesse!) et bonne journée

Ophélie

dandypunk · Answer

Je crois que mon post 50 répond au cahier des charges que tu proposais.
J'ai choisi de pouvoir conserver les fichiers images afin de pouvoir éventuellement les incorporer dans un fichier annexe.
Le problème est que le graphique de ton commentaire "n'évoluera" pas si tes données changent

Ophelie75 · Answer

Super merci beaucoup je vais regarder la macro ce WE.

Je laisse le post en non résolu encore pour quelques jours...

bonne aprem!

Ophélie

Mike-31 · Answer

Salut mes amis,

Nous ne sommes jamais assez prudents et tout le mérite de quelques intervenants vigilants à veiller aux dérapages et aux respects des chartes comme l’a fait hermite222 en lisant la charte du Forum émetteur.
Comme tout artiste la connaissance et le savoir appartiennent à son auteur qui lui seul est libre de donner, vendre ou garder. Dans la lignée de ce post, la formule libre d’accès et de droits, est accessible par tous. Par contre il aurait été normal que l’on fasse référence à ce lien et non copier la formule dans un post sans Nommer son auteur 
Nous le voyons tous chaque jour les règles élémentaires de savoir vivre se perdent et il est bon de temps à autre de faire des rappels à l’ordre.
Tout à sont honneur, Ophèlie75 à fait son mea culpa, ne s’est pas débinée, à reconnue son erreur et fait retirée le post en question.

Je pense avoir cerné les besoin d’Ophèlie75 en poussant à la modification du code et dandypunk presque entièrement automatisé en ajoutant des contrôles qui définissent la cellule de réception du commentaire et la plage du graphique. Je n’ai pas le temps de poursuivre cette discussion, aussi je lui laisse le choix de proposer une userform pour le choix du graphique.

Peut être un jour c’est enchainement de compétences sera sur dans les astuces des forums pour notre plus grand plaisir
A+

dandypunk · Answer

Le UserForm est en cours, j'essaye de l'alléger. Il devrait être en ligne lundi, comme annoncé dans mon post 28.

Ophelie75 · Answer

Bonsoir Dandy,

le resultat est vraiment spectaculaire, cela marche vraiment tres bien!!!

Est il possible de faire en sorte que l'opération se repete par exemple si je saisis la plage A3:F3 et afficher le commentaire en H3 que l'opération se repete en A4:F4 et le commentaire en H4 et ainsi de suite?

Mike-31 · Answer

Salut Ophélie,

Juste deux mot avant de prendre quelques jours, Nous sommes partis d’une idée et avons presque automatisé tout un processus. Dandypunk donne tout ce qu’il peut pour le finaliser de sorte que l’on puisse choisir un graphique à partir d’une userform.
Une fois cela bouclé il ne restera plus qu’à personnaliser l’utilisation en fonction des besoins de chacun, mais n’avançons pas plus vite que la musique, le principal est d’avoir un outil qui nous donne le choix de la cellule à commenter, de la plage du graphique et bientôt garce à Dandypunk le choix du graphique.


A+

Ophelie75 · Answer

Merci mike pour l'état des lieux...

Bonne vacances!

Ophelie75 · Answer

Tu fais monter le suspens :-)

dandypunk · Answer

@ Ophélie 75
Je ne fait â monter le suspense, j'essaye de sortir un code "propre".
donc réutilisable et commenté
.
Qui plus et il sera didactique.

Je sais que le mieu est l'ENI du bien, Mais

dandypunk · Answer

L'accouchement est plus difficile que prévu ( Pb de mise en forme)
On commence à voir les cheveux.
Ce sera pour demain matin très tôt

Bonne soirée

Dandypunk

dandypunk · Answer

Pour vous faire les dents voici où j'en suis.
http://dl.free.fr/getfile.pl?file=/cuAYq37l (lien valable 30 j)

Je m'attèle (Singe araignée ;-)) au dernier UserForm

J'inclurai aussi un topo qui résumera l'évolution du projet

Plan envisagé :
1) Utilisation des préfixe dans le nom des variables
2) Utilisation des constantes
3) Propriété Item
4) Utilisation des conteneurs (Frame, Page ...)
5) Utilisation de la propriété Tag
6) Utilisation des ListBox
7) Proposition pour passer à une version supérieure
8) Eventuellement Gestion des erreurs personalisées.



Désolé pour le retard.
Le projet correspondant au cahier des charges devrait aboutir jeudi soir avec un delta de 1J.

PS: Le répertoire "Image" servira au dernier UserForm

dandypunk · Answer

Désolé pour le retard.
Il y avait de bugs
Il suffisait d'inverser l'orientation et le type de graphique

Or donc celui là tourne  http://dl.free.fr/rm.pl?h=pwivSasav&i=5374221&s=wivSasavjAqfDTi6PH1ddRaDcoZC9kRL

Qui plus est j'avais un client qui demandait un dossier pour avant-hier, ma mère était à l'hosto, bref la totame.

Le topo suivra.

wilfried_42 · Answer

Bonjour à tous

les fichier placés etant volatiles, je mets quelques lignes de VBA pour inserrer une image dans un commentaire

dim mfc_c as comment, cellule as range, travail as string, mfc_image as string
travail = "Voila l'image"
Mfc_image = Thisworkbook.path & "\Monimage.Gif"
set cellule = range("A1")
Set mfc_c = cellule.AddComment ' Initialise un commentaire
mfc_c.Text travail ' J'y applique le texte
If mfc_image > "" Then mfc_c.Shape.Fill.UserPicture mfc_image ' J'y applique l'eventuelle image
mfc_c.Visible = True ' Je la rend visible

j'ai placé un fichier tout aussi volatile Colorer des cellules sur conditions

Ophelie75 · Answer

@ Dandy :

Salut, peux-tu reposter ton fichier car le lien est périmé...

Merci!!

Ophelie75 · Answer

Bonjour si vous avez telechargé les fichier de dandypunk et/ou mike31 

pouvez vous les reposter ici????

Merci!

Ophelie75 · Answer

UP!
car c'est très important pour moi! 

et il serait vraiment dommage de perdre ces fichiers!!!

Alors si un de vous qui passez par là avait téléchargé ces fichiers en question dans les posts plus haut, un grand  merci d'avance si vous pouvez me les envoyer ou les reposter ici!!!

Ophélie

lermite222 · Answer

Bonjour,
Je ne pense pas que quelqu'un ai eu l'occasion de télécharger le classeur de dandypunk, Mike a voulu le télécharger le lendemain mais il n'était déjà plus disponnible, d'autre part dandypunk ne donne plus de nouvelle depuis le 6/8 !
Mais j'en revient à l'un de mes poste précédant, il n'est vraiment pas nécessaire de faire un UF qui reprendroit toutes les possibilités d'un graph, il y à l'assistant pour ce faire et la sub de DVP pour le mettre dans un commentaire.
Tu met le même graph dans tout tes commentaires ?
les mêmes plages par ligne ?
A+

Ophelie75 · Answer

Merci de ta réponse seuulement les sub que j'ai pu essayé ne marchent ou je n'arrive pas a les faire marcher...

dandypunk · Answer

Je suis à noouveau sur la toile.
Je prépare les liens.
J'ai l'impression que la dernière fois ils étaient un peut trop chargés.

dandypunk · Answer

Tout vient à point à qui sait attendre.
http://dl.free.fr/getfile.pl?file=/oCpj9mi9
http://dl.free.fr/getfile.pl?file=/a1rGK9bx
http://dl.free.fr/getfile.pl?file=/9zr3Toi9

Pour le topo promis dans un de mes post précédents, MIke31 comprendra ce que j'ai fait.

P.S. Le répertoire images n'est important que pour la partie XL_like, à savoir la moins intressante au niveau programmation.

Ophelie75 · Answer

Merci dandypunk!

...pour l'interet général, A quoi correspondent les 3 fichiers?

dandypunk · Answer

Le premier correspond au cahier des charges que tu avais demandé.
Le deuxième est la correspondance entre le constantes Xl et le indices réels
Le troisième correspons au images qui sont sur les boutons dans la sélection XL_like.

J'essaye de faire un ctrl+c ctrl+V .

Ophelie75 · Answer

bon et bien je teste tout ça et je te tiens au courant!!

En tout cas bravo pour le travail c'est du sérieux!

Merci dandy punk

Ophelie75 · Answer

Je ne peux pas tester de suite mais je te tiendrais au courant (ensuite on pourra passer en "résolu")

MErci encore!

dandypunk · Answer

Dans le pire des cas je reste à ta disposition en MP

EXCEL - Astuce sur CCM interessante!

57 réponses

Votre réponse

Newsletters