[VBA-E] Débutante, insérer une image dans une cellule

Bonjour a tous,
Voila je suis débutante en VBA.
Je dois réaliser une macro sous excel, je m'explique :
Je dispose d'une feuille de planning. Une colonne est réservée pour rensigner l'avancement du projet (on doit y mettre alors des petits symboles). Jusqu'ici ces symboles était ajoutés en faisant du copier coller. Comme c plutot long et "chiant" a faire, j'ai décidé de faire une macro.
Le problème que j'en ai jms fait, et je ne sais pas trop cmt m'y prendre. J'ai deja regardé quelques tutoriaux sur internet, mais sans résultats.

Merci d'avance pour votre aide !

Peux-tu expliquer + detaillement ou même coller un exemple de ton fichier?

Svp, est ce que quelqu'un pourrait m'aider?!
Je voudrais que dans excel, lorsque j'ouvre mon fichier planning.xsl, une petite fenetre s'ouvre comportant les différents symboles (images). Je voudrais que lorsque je clique une cellule (ou je veux insérer l'image), je peux en effet l'insérer en double cliquant sur le symbole désiré.
Je ne demande pas que tout soit fait pour moi, au contraire! Je voudrais juste que l'on me donne une piste pour débuter et qq explications en meme tps.

Merci

Bon, puisque personne ne veut m'aider, je voudrais juste que quelqu'un m'explique cmt faire faire pour lorsque j'ouvre ma feuille exel, mon userForm apparaisse?
Merci :cry:

ah, je pense que peut-etre je saisis ton besoin 8O

http://www.mvps.org/dmcritchie/excel/event.htm

ici, c'est une référence donnée tous les événements qu'on peut définir ds un workbook ou un worksheet, par ex: double clic ou change etc.

tu peux peut-etre définie ton chargement d'image ds un événement qui te convient?

:bug:

Dsl, je vais réexpliquer ce que je souhaite réaliser :

Je voudrais créer ma propre petite "boite a outils" contenant uniquement des images. Ensuite ces images, on peut les insérer dans n'importe quelle cellule de la feuille en double cliquant dessus simplement...

J'ai crée un userform contenant mes images seulement je n'arrive pas a faire en sorte que cet userForm s'ouvre en meme tps que la feuille excel (enfin deja je voudrais commencer par ca)...

Je sais que je suis "chiante" mais je n'y connais vraiment rien! :oops:

Merci pour votre aide

ah oui, je vois ce que tu veux dire. C'est une boîte d'outils à toi même, non?
Mais dommage, j'ai jamais fait ça, attend les big boss alors :D
C'est pas du tout chiante de poser la question, c bien pour animer le forum et comprendre les choses:yaisse2: :yaisse2:

C bon en fin de compte g réussi grace a un tutorial de développez.com :king:
En tout cas je te remercie :yaisse2:

Je reviendrais sans doute dans la journée pour demander quelques petites astuces... :P

Bon dsl, mais je savais ke je reviendrais...
Voila, j'affiche mon userform contenant mes images
J'aimerais qu'en double cliquant sur une image, celle ci s'insère dans la cellule active.
J'ai testé avec ce code mais ca me met un msg d'erreur :

Code:

---

1 2 3 4 5 6 7

Private Sub imgPlannifié_Click()   'Insère l'image dans la cellule active   ActiveCell.FormulaR1C1 = imgPlannifié   End Sub

---

Je sais que c faux, c pq je vous demande de m'expliquer ce qui ne va pas svp!!

Tu as fait un

Code:

---

Userform1.show

---

? :)

Pour qeue l'on puisse te répondre et que ton titre nous titille un peu plus le syeux, il faudrait que tu mette un titre un peu plus explicite que

Citation:

---

Macro vba Excel

---

Tu devrais plutot mettre, par exemple :

Citation:

---

[VBA-E]Ouvrir un formulaire

---

ça serait mieux :)



N'hésite pas a faire des recherches dans la FAQ VBA, aussi présente dans la FAQ Access, dans les tutoriaux assez riches :) je pense que tu peux trouver beaucoup de choses qui t'aideront avancer :)

N'hésite pas non plus a utilise rla fonction recherche de ce forum, qui t'aideront aussi a trouver des réponses a tes questions :)

Re,
Je suis désolée, mais j'ai fait de nombreuses recherches mais je ne trouve pas...
J'ai bien mon userform qui s'affiche avec ma feuille excel. Dans cet userform, j'ai des images (je me répéte dsl) je voudrais que lorsque ke je clique sur une de ces images, cette image en question soit insérée dans la cellule active. Un peu comme :

Code:

---

ActiveCell.FormulaR1C1 = "test"

---

, sauf que ce serait l'image sur laquelle g cliquée qui s'afficherait.
Pour mes images, j'utilise le controle "image".
Voila, en espérant etre assez claire.

Je vous remercie pour votre aide!

bonsoir

Citation:

---

Voila, j'affiche mon userform contenant mes images
J'aimerais qu'en double cliquant sur une image, celle ci s'insère dans la cellule active.
J'ai testé avec ce code mais ca me met un msg d'erreur :

Code :
Private Sub imgPlannifié_Click()

'Insère l'image dans la cellule active

ActiveCell.FormulaR1C1 = imgPlannifié

End Sub
Je sais que c faux, c pq je vous demande de m'expliquer ce qui ne va pas svp!!

---

ça ne fonctionne pas comme ça, et il manque des infos avant d'aller plus loin:
ton image est en fixe dans l'UserForm? ou tu la charges à partir d'un fichier sur le disque dur?


michel

Merci de t'intéresser a mon problème, je commencais a désespérer...
Hé bien, justement, je réfléchie a cmt je pourrais m'y prendre! Peut on créer des petits symbole sous excel (par exemple un rond tout noir, une triangle qui pointe vers le haut)? Si oui je préférerais les faire directement sur excel, sinon ba je prendrais des images sur mon disque dur...
Merci bcp pour ton aide!!

Bon finalement j'ai changé de voix car comme ca je n'y arrive pas.
On m'a passé un fichier excel contenant une légende avec des symboles(images) et a coté de chacun de ces symboles, il y a un petit bouton de commande (Set). Lorsqu'on clique sur ce bouton, le symbole correspondant apparait alors dans la cellule active. Voici le code de la macro :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Sub CreateToolBar()   Dim ctoolbar As CommandBar Dim btnFrm As CommandBarButton Dim btnStartPln As CommandBarButton, btnEndPln As CommandBarButton Dim btnStartEff As CommandBarButton, btnEndEff As CommandBarButton Dim btnS1 As CommandBarButton, btnS2 As CommandBarButton, btnS3 As CommandBarButton, btnS4 As CommandBarButton Dim btnSVert As CommandBarButton, btnSJaune As CommandBarButton, btnSRouge As CommandBarButton Set ctoolbar = CommandBars.Add(Name:="PDCA", Temporary:=True)   With ctoolbar .Position = msoBarFloating '.Protection = msoBarNoChangeVisible End With   Set btnStartPln = ctoolbar.Controls.Add(msoControlButton) 'ActiveWorkbook.Sheets("Param").Shapes("StartPln").Copy   With btnStartPln .PasteFace .OnAction = "PasteShape" .Parameter = "StartPln" .TooltipText = "Insère un symbole date de début planifiée" .BeginGroup = True End With   ctoolbar.Visible = True End Sub

---

Voila, je voudrais faire la meme chose, le probleme c que j'y comprend strictement rien et en plus g un message d'erreur lorsque que je lance la macro!

Svp aidez moi c urgent, je dois le faire pour cet après midi!!! :(

Plus on me dit que c'est urgent, moins j'ai envie de répondre!

Ceci dit, tu pourrais nous donner encore moins d'information, de façon à ce qu'on perde un peu de temps à essayer de deviner ton problème.

Tu nous dit "g" (que je traduis par j'ai, merci) un message d'erreur.
Il est clair que nous savons tous quel message d'erreur tu reçois. Nous sommes devins.

bonjour Alain ... ;o)

Citation:

---

Peut on créer des petits symbole sous excel (par exemple un rond tout noir, une triangle qui pointe vers le haut)? Si oui je préférerais les faire directement sur excel,

---

Pour faire simple:

rond noir: tu écris la valeur 5 dans une cellule, puis tu spécifie la police de caractères type "Webdings"

triangle qui point vers le haut: tu écris la lettre n dans une cellule, puis tu spécifie la police de caractères "Webdings"



michel

Je te remercie AlainTech pour ta sympathie, c'est vrai que j'ai oublié de préciser le message d'erreur. En ce qui concerne les explications, j'ai fait du mieux que j'ai pu, désolée!
En tout cas, j'ai finalement réussi à terminer ma macro comme je le souhaitais.
Encore une fois merci à vous.