Insérer un emplacement pour image

Bonjour, cela ne convient pas ? :



Cdlt/

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

Bonjour Melanie,

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

cela te convient ?

Voici un exemple:

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

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

ah désolée, voilà

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

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 ;)

:)