Discussion :

[sab_etudianteBTS]

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 !

[tangjuncn]

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

[sab_etudianteBTS]

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

[sab_etudianteBTS]

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

[tangjuncn]

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

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?

[sab_etudianteBTS]

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!

Merci pour votre aide

[tangjuncn]

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
C'est pas du tout chiante de poser la question, c bien pour animer le forum et comprendre les choses

[sab_etudianteBTS]

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

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

[sab_etudianteBTS]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!!

[illight]

Tu as fait un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Macro vba Excel

Tu devrais plutot mettre, par exemple :

[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

[sab_etudianteBTS]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

[SilkyRoad]

bonsoir

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

[sab_etudianteBTS]

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!!

[sab_etudianteBTS]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!!!

[AlainTech]

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.

[SilkyRoad]

bonjour Alain ... ;o)

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

[sab_etudianteBTS]

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.