IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Affichage image en fonction du nom de fichier


Sujet :

Macros et VBA Excel

  1. #1
    Futur Membre du Club
    Profil pro
    Inscrit en
    Avril 2010
    Messages
    7
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2010
    Messages : 7
    Points : 6
    Points
    6
    Par défaut Affichage image en fonction du nom de fichier
    Bonjour,
    Sur une feuille Excel, j'ai une colonne A qui contient les noms de fichiers de photos (51a.jpg, 43b.jpg, 28c.jpg).
    Ces noms de fichiers correspondent à des images stockées dans un dossier local de mon disque dur.
    J'aimerais obtenir l'affichage dans la colonne B et pour chaque ligne de mon tableau, l'affichage de l'image correspondante. Cette image doit être associé à chaque cellule de la colonne B (de manière par ex. à pouvoir faire des tris ensuite).B1 contient l'image 51a.jpg, B2 contient 43b.jpg..
    Merci des pistes que vous pourrez me conseiller, s'il y a une solution sans vba (que je ne connais pas du tout) je suis preneuse aussi,
    Nathalie

  2. #2
    Expert éminent Avatar de casefayere
    Homme Profil pro
    RETRAITE
    Inscrit en
    Décembre 2006
    Messages
    5 138
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 70
    Localisation : France, Ardennes (Champagne Ardenne)

    Informations professionnelles :
    Activité : RETRAITE
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Décembre 2006
    Messages : 5 138
    Points : 9 548
    Points
    9 548
    Par défaut
    Bonjour fuema7, le forum

    Inspires-toi de ce lien


    http://excel.developpez.com/faq/?pag...CondiSansMacro

  3. #3
    Futur Membre du Club
    Profil pro
    Inscrit en
    Avril 2010
    Messages
    7
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2010
    Messages : 7
    Points : 6
    Points
    6
    Par défaut
    Merci de votre réponse,
    j'ai vu cette demo, mais sauf erreur de ma part, les images sont dans ce cas stockées par avance et manuellement dans la feuille de classeur.. ce qui n'est pas ce que je cherche à faire,
    d'autres idées ?

  4. #4
    Membre éclairé Avatar de sabzzz
    Profil pro
    Inscrit en
    Octobre 2009
    Messages
    748
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2009
    Messages : 748
    Points : 879
    Points
    879
    Par défaut
    bonjour fuema7,

    une solution conciste à mettre un control Picture sur la feuille contenant la liste des images (pour l'exemple A1:A10) et de copier la macro suivante sur la page code de cette feuille,

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Set ici = Application.Intersect(Target, Range("A2:A10"))
    If Not ici Is Nothing Then
    photo = "c:\" & Range("A" & Target.Row)
    ActiveSheet.Image1.Picture = LoadPicture(photo)
    End If
    End Sub

Discussions similaires

  1. [Toutes versions] Insérer une image en écrivant le nom du fichier
    Par pessineemm dans le forum VBA Word
    Réponses: 3
    Dernier message: 11/02/2014, 19h09
  2. Affichage image en fonction d'une liste déroulante
    Par watcha2008 dans le forum Macros et VBA Excel
    Réponses: 0
    Dernier message: 10/04/2013, 09h17
  3. Comparaison et tri en fonction du nom du fichier
    Par halloumiali dans le forum C
    Réponses: 9
    Dernier message: 20/03/2012, 18h16
  4. Variable en fonction du nom de fichier
    Par nicolasf85 dans le forum MATLAB
    Réponses: 3
    Dernier message: 08/10/2009, 09h50
  5. Réponses: 3
    Dernier message: 11/10/2008, 13h13

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo