Insérer un emplacement pour image

Melanie03 -  
Oliver000 Messages postés 337 Statut Membre -
Bonjour, voilà j'ai un petit soucis avec Excel. Je voudrais insérer un emplacement pour que par la suite je n'ai qu'à cliquer sur un icône pour insérer un image. Je ne veux pas insérer d'image tout de suite en fait.
On peut retrouver ça dans les smartart mais je n'arrive pas à récupérer cette fonctionnalité..
Quelqu'un pourrait-il m'aider ? :)
A voir également:

9 réponses

Oliver000 Messages postés 337 Statut Membre 56
 
Bonjour, cela ne convient pas ? :



Cdlt/
0
Melanie03
 
Non justement..
Je suis en train de créer un document pour une personne et je voudrais qu'elle n'ait pas à passer par ce système en fait. Je voudrais qu'il y ait un icône sur un endroit de la feuille afin qu'elle puisse cliquer dessus et ainsi la fenêtre du fichier image s'ouvrirait...
J'ai oublié de préciser que j'utilise Excel 2010
0
Oliver000 Messages postés 337 Statut Membre 56
 
Compris, entendu avec du code VBA il y a moyen oui, mais je n'ai plus excel sous la main là je pourrai t'envoyer ça plus tard. Sauf si quelqu'un passe par la avant ;)
0
Melanie03
 
D'accord ce n'est pas urgent donc pas de problème, merci beaucoup !
0
cs_Le Pivert Messages postés 8437 Statut Contributeur 729
 
Bonjour,

Voici un exemple en double cliquant à l'endroit où l'on veut mettre l'image.

Faire Alt F11 pour accéder au code.
Cliquer sur Feuil1 en haut à gauche ou toute autre feuille de votre choix et mettre ce code:

Option Explicit
Dim chemin, var As Variant
Dim position
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
position = Target.Address
position = Replace(position, "$", "")
ImportImages
End Sub
Sub ImportImages()
  chemin = Application.GetOpenFilename
  ActiveSheet.Pictures.Insert(chemin).Select
 Selection.Name = var
  Selection.ShapeRange.LockAspectRatio = msoFalse
  With ActiveSheet.Shapes(var)
    .Top = Range(position).Top
    .Left = Range(position).Left
    .Height = 50 'a adapter la dimension de l'image
    .Width = 80 'a adapter la dimension de l'image
  End With
End Sub




0
cs_Le Pivert Messages postés 8437 Statut Contributeur 729
 
Une petite erreur.

Remplacer:

 Selection.Name = var

par

var = Selection.Name
0
Melanie03
 
Bonjour, merci pour votre réponse ! Lorsque je fais Alt F11, une nouvelle feuille appelée Macro 1 s'ouvre, est-ce normal ? Ensuite quand je tape le code que vous me dites, rien ne se passe...
0
Oliver000 Messages postés 337 Statut Membre 56
 
Bonjour Melanie,

Voici comme convenu: http://www.cjoint.com/data3/3Eui6g3aR7J.htm

cela te convient ?
0
Melanie03
 
Ah merci beaucoup, c'est super ! Par contre comment puis-je récupérer ce bouton maintenant .. ? ^^
0
Oliver000 Messages postés 337 Statut Membre 56
 
Tu peux le recréer en t'aidant de cette procédure (j'ai que Excel 2003 sous la main, la création du bouton est légèrement différente sous 2010), je te joint mon bout de code du bouton concerné avec:

http://www.cjoint.com/data3/3EujucU1uYi.htm
0
Melanie03
 
Je n'arrive pas à ouvrir le fichier...
0
Oliver000 Messages postés 337 Statut Membre 56
 
Le .rar ? Bon on va le faire séparémment alors:

Procédure: http://www.cjoint.com/data3/3EukA5zdxBd.htm

Code: http://www.cjoint.com/data3/3EukBnvxgzz.htm
0
Melanie03
 
Bon j'ai réussi à créer le bouton et à insérer le code, mais lorsque que je clique sur le bouton j'ai ce message d'erreur qui s'affiche
"Impossible d'ouvrir la macro "nomdudocument.xlsx'!bouton1_cliquer'. Il est possible qu'elle ne soit pas disponible dans ce classeur ou que toutes les macro soient désactivées."
0
cs_Le Pivert Messages postés 8437 Statut Contributeur 729
 
Voici un exemple:

http://www.cjoint.com/data3/3EujbLi0Bc1.htm
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Melanie03p Messages postés 11 Statut Membre
 


Voilà, c'est étrange car de mon côté le lien fonctionne.
ps: mon pseudo a légèrement changé car j'ai dû m'inscrire
0
Oliver000 Messages postés 337 Statut Membre 56
 
Ok pour le message, ce que je souhaite voir c'est l'endroit ou tu as inséré le code stp
0
Melanie03p Messages postés 11 Statut Membre
 


ah désolée, voilà
0
Oliver000 Messages postés 337 Statut Membre 56
 
Ah ou bien peut etre que tu as copié le code au mauvais endroit.
0
Oliver000 Messages postés 337 Statut Membre 56
 
Ok dac, à part les caracteres avec accent qui sont pas passés dans "Title" je vois pas de fautes.

Sous cette interface, tu as un bouton "Play" pour exécuter directement le code (en 1 sur l'image) si ya un message d'erreur envoie un imprim ecran. Sinon en on peut exécuter les lignes une par une pour trouver ce qui coince (en 2 sur l'image) de même poste un imprim ecran si ya un message d'erreur.



Ou bien une chose encore plus simple j'ai un poste à mes côtés avec la même version Office que toi, s'il n'y a rien de confidentiel tu peux m'envoyer directement ton fichier par cijoint.com, c'est toi qui voit.

Faceless man.. , valar morghulis
0
Melanie03p Messages postés 11 Statut Membre
 
C'est étrange, lorsque je fais play ça fonctionne correctement. Je vais t'envoyer mon fichier ce sera plus simple.

https://www.cjoint.com/c/EEuoCTvKvoC
0
Melanie03p Messages postés 11 Statut Membre
 
Je ne sais pas comment j'ai fais mais ça fonctionne !
0
Melanie03p Messages postés 11 Statut Membre
 
En fait non... Enfin je n'ai plus le message d'erreur, lorsque je clique sur le bouton les documents s'ouvrent mais lorsque que j'ouvre l'image elle ne s'insère pas...
0
Oliver000 Messages postés 337 Statut Membre 56
 
Oui je viens de faire la manip aussi de mon coté, j'ai bien la fenetre pour selectionner et effectivement je ne la vois pas s'insérer. Curieux ça...^^ J'essaye de modifier ça.
0
Melanie03p Messages postés 11 Statut Membre
 
D'accord merci ! ^^
0
Oliver000 Messages postés 337 Statut Membre 56
 
Sous Office 2010 ya 2 types de boutons formulaire ou ActiveX, et ici c'est ActiveX:



Cela fait, tu reviens sur ta page Excel pour cliquer sur le bouton ;)
0
Melanie03p Messages postés 11 Statut Membre
 
Ah c'est parfait merci ! C'est juste un détail mais sous cette forme je ne peux pas modifier le texte ? :)
0
Oliver000 Messages postés 337 Statut Membre 56
 
De rien, tu parles du texte du bouton ? Si oui regarde au bout de flèche rouge, il faut modifier le champ "caption"
0
Melanie03p Messages postés 11 Statut Membre
 
D'accord c'est bon :) Une dernière petite chose, je rencontre un problème pour enregistrer mon document, je dois le mettre sous un format spécifique pour que les boutons restent actifs mais je ne sais pas lequel :/
0
Oliver000 Messages postés 337 Statut Membre 56
 
Ah mince je n'ai plus Office à coté là ^^

T'as un message, des propositions affichées ? (un ptit imprim ecran ^^)
0
Melanie03p Messages postés 11 Statut Membre
 


:)
0
Melanie03p Messages postés 11 Statut Membre
 
En t'envoyant la copie, je viens de me rendre compte que c'est parfaitement indiqué ... ^^ "classeur excel (prenant en charge les macros)"
Je ne devrais plus avoir besoin de t'embêter, merci beaucoup !!
0
Oliver000 Messages postés 337 Statut Membre 56
 
Super, content pour toi que ça marche.
Bonne continuation.
0

Discussions similaires