Autres "appeler" une image lorsqu'on écrit le nom dans une cellule (feuille de calcul xlsx)

[hervoul]

Bonjour,
J'aimerais pouvoir afficher une image dans une cellule lorsque j'écris son nom dans une autre cellule.

Les images sont stockées pêlemêle dans un autre onglet sur la même feuille.

Ci joint le fichier .
merci d'avance.
*PS : rien ne presse.
RVoul

 

[Oneida]

Bonjour,

Une facon de faire.
Il y a deux procedures pour arriver au meme point:
une simple: Insert_Image(Lig, Img), celle utilisee actuellement
une plus "elaboree" trouvee sur internet: Insert_Image1(Lig, Img)
Dans les deux cas il faut que les images soit reprises en hauteur ou/et largeur car pas pile/poil une fois redimensionnees, sauf si vous voulez vous lancez dans des calculs magiques
Oups,oubli:
Il faut renomer les images du texte que vous voulez saisir

 

[Gégé-45550]

Bonjour,
J'aimerais pouvoir afficher une image dans une cellule lorsque j'écris son nom dans une autre cellule.

Les images sont stockées pêlemêle dans un autre onglet sur la même feuille.

Ci joint le fichier .
merci d'avance.
*PS : rien ne presse.
RVoul

Bonjour,
une proposition alternative,
Cordialement

 

[Oneida]

Bonjour,
une proposition alternative,
Cordialement

Bonjour,
Ok, perso je prefaire que les images aient en nom le texte saisie

 

[hervoul]

Merci à tous, je vais regarder ça posément...
Encore merci et très bonne continuation.
RVoul

 

[patricktoulon]

bonjour
pour placer une image ou shapes dans un range maximisé sans modifier l'aspect ratio
il y a ma fonction toute prête

Sub placeLaShapeBleue() 'test avec une shape
    Dim shap
    Set shap = ActiveSheet.Shapes("shapebleue")
    PlaceThePictureInCenterRange [C4].MergeArea, shap, 50    ' 50% de la taille de la plage de destination de 0 à 100
End Sub

Sub PlaceThePictureInCenterRange(rng As Range, Obj As Variant, Optional PercentMarge As Long = 100)     'la marge exprime un pourcentage de 1 à x%
    Dim Ratio#, Wx#, Yx#
    Wx = rng.Cells(1).MergeArea.Width * (PercentMarge / 100)
    Yx = rng.Cells(1).MergeArea.Height * (PercentMarge / 100)
    Ratio = Application.Min(Wx / Obj.Width, Yx / Obj.Height)
    With Obj
        If TypeName(Obj) = "Shape" Then .LockAspectRatio = msoTrue Else .ShapeRange.LockAspectRatio = msoTrue
        .Width = .Width * Ratio
        .Top = rng.Top + ((rng.Cells(1).MergeArea.Height - .Height) / 2)
        .Left = rng.Left + ((rng.Cells(1).MergeArea.Width - .Width) / 2)
    End With
End Sub

vous aviez les versions (anciennes mais néanmoins fonctionnelles ) ici
méthode directe et indirecte

centrer une image dans un range en toute circonstances quel que soit le ratio (range/image)

bonjour a tous voici deux méthode avec exemple pour centrer une image sur un range la méthode que j'appelle directe en effet j'agit directement sur l'image en bloquant l'apect ratio...

excel-downloads.com

 

[hervoul]

Heuuuuuuuu peux tu insérer la fonction dans mon fichier STP avec mes images... je suis très empirique, je fonctionne en copiant bêtement les codes....
Meeeerci.....

RVoul

 

[hervoul]

En fait les image sont des photos d'élèves dans un trombinoscope, placées ça et là dans un onglet, mais peut être serait il plus facile de les placer dans un dossier?
Il faudrait que lorsque j'écris le nom dans la cellule, que la photo s'affiche au dessus...
Le problème étant le nombre d'images....
Renommer, prends pas mal de temps....

mais ce que j'ai vu est déjà très bien....
Of course !
Rvoul

 

[hervoul]

Bonjour,
une proposition alternative,
Cordialement

ça me va très bien ...merci bcp !!!
RVoul

 

[Gégé-45550]

ça me va très bien ...merci bcp !!!
RVoul

Bonsoir, accessoirement, marquez la réponse en solution, svp.
Cordialement,

 

[hervoul]

Bonsoir, accessoirement, marquez la réponse en solution, svp.
Cordialement,

Hello,
Petite question :
L'ordre d'apparition des images est bien alpha?
Car pour éviter de taper les noms des élèves dans le code, j'ai nommé les images 1;2;3 etc...et j'insère les photos par ordre alpha et je les appelle par 1;2;3 etc...
ça semble correspondre en tout cas....
merci bien encore!

 

[hervoul]

Le Fichier de

Gégé-45550 me semble le plus simple à utiliser....​

Merci encore !

 

[hervoul]

Bonsoir, accessoirement, marquez la réponse en solution, svp.
Cordialement,

Re.....
Dernière requête.
Quelle "modif" pour que l'image apparaisse à droite et nom au dessus SVP?
merci

 

[Gégé-45550]

Hello,
Petite question :
L'ordre d'apparition des images est bien alpha?
Car pour éviter de taper les noms des élèves dans le code, j'ai nommé les images 1;2;3 etc...et j'insère les photos par ordre alpha et je les appelle par 1;2;3 etc...
ça semble correspondre en tout cas....
merci bien encore!

Bonjour,
L'ordre est numérique (image1, image2, etc.) ... => donc votre méthode de tri et de nommage convient parfaitement
Cordialement

 

[Gégé-45550]

Re.....
Dernière requête.
Quelle "modif" pour que l'image apparaisse à droite et nom au dessus SVP?
merci

re-Bonjour,
Modifiez

Destination:=Target.Offset(-1, 0)

en

Destination:=Target.Offset(0, 1)

Cordialement

NB : Merci de marquer la réponse comme "SOLUTION"