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 ? :)

9 réponses

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



    Cdlt/
    0
    1. 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
    2. 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
    3. Melanie03
       
      D'accord ce n'est pas urgent donc pas de problème, merci beaucoup !
      0
  2. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    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
    1. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
       
      Une petite erreur.

      Remplacer: 

       Selection.Name = var

      par 

      var = Selection.Name
      0
    2. 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
  3. Oliver000 Messages postés 337 Statut Membre 56
     
    Bonjour Melanie,

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

    cela te convient ?
    0
    1. Melanie03
       
      Ah merci beaucoup, c'est super ! Par contre comment puis-je récupérer ce bouton maintenant .. ? ^^
      0
    2. 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
    3. Melanie03
       
      Je n'arrive pas à ouvrir le fichier...
      0
    4. 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
    5. 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
  4. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    Voici un exemple:

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

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

    Posez votre question
  6. 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
    1. 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
  7. Melanie03p Messages postés 11 Statut Membre
     

    ah désolée, voilà
    0
    1. Oliver000 Messages postés 337 Statut Membre 56
       
      Ah ou bien peut etre que tu as copié le code au mauvais endroit.
      0
  8. 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
    1. 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
    2. Melanie03p Messages postés 11 Statut Membre
       
      Je ne sais pas comment j'ai fais mais ça fonctionne !
      0
    3. 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
    4. 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
    5. Melanie03p Messages postés 11 Statut Membre
       
      D'accord merci ! ^^
      0
  9. 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
    1. 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
    2. 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
    3. 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
    4. 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
  10. Melanie03p Messages postés 11 Statut Membre
     

    :)
    0
    1. 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
    2. Oliver000 Messages postés 337 Statut Membre 56
       
      Super, content pour toi que ça marche.
      Bonne continuation.
      0

Discussions similaires

Retrouver l'image originale d'une photo modifiée
Raven -
Asta972155 -

10 réponses