Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

VBA Insertion Image dans cellule fusionnée à partir d'un lien Hypertexte

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion preysgnouf
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
P

preysgnouf

XLDnaute Nouveau
Bonjour,

Je souhaite créer une fiche de site à partir du listing de sites. Le listing est situé dans la "feuille 1" et la fiche dans la "feuille 2".
Lorsque l'on appelle en "D1" le code du site, l'ensemble du tableau se complète.

Je souhaite afficher la photo (issue du lien hypertexte) dans les cellules fusionnées A19:Y19, mais je dois avoir un problème de code. Je n'ai pas de connaissance en VBA, ma macro est donc issue de copier coller de forums.

La photo doit prendre la hauteur ou la largeur de la cellule et respecter les proportions.

Je vous remercie d'avance
 

Pièces jointes

Trier par date Trier par votes
Re : VBA Insertion Image dans cellule fusionnée à partir d'un lien Hypertexte

Bonjour

La macro est copié du boisgontierjacques. Sur son site il expose deux solutions que je n arrive pas a assembler

Preysgnouf
 
Vote positif 0 Vote négatif
Re : VBA Insertion Image dans cellule fusionnée à partir d'un lien Hypertexte

bonjour,

Voici le code. Pouvez vous me dire ou se trouve l'érreur (ou les érreurs)

Function AfficheImage(NomImage As Range)
Application.Volatile
Set f = Sheets(Application.Caller.Parent.Name)
Set adr = Range(NomImage.Address)
temp = NomImage & "_" & NomImage.Address
Existe = False
For Each s In adr.Worksheet.Shapes
If s.Name = temp Then Existe = True
Next s
If Not Existe Then
For Each k In adr.Worksheet.Shapes
P = InStr(k.Name, "_")
If Mid(k.Name, P + 1) = adr.Address Then k.Delete
Next k
Set s = f.Shapes.AddPicture(NomImage, True, True, adr.Left, adr.Top, adr.Width, adr.Height - 8)
s.Name = NomImage & "_" & NomImage.Address
'Vous insèrez en A19:Y19'
Set Pos = Range("A19:Y19")
Set Pict = ActiveSheet.Shapes(1)
With Pict
'Vous conservez les proportions de l'image
.LockAspectRatio = msoTrue
'Vous positionnez l'image sur la sélection
.Left = Pos.Left
.Top = Pos.Top
'Vous adaptez la hauteur de l'image à la sélection
.Height = Pos.Height
.Width = Pos.Width
End With
End If
End Function

Merci d'avance
Preysgnouf
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

T
  • Résolu(e)
XL 2010 VBA - Insérer image proportionnelle à la taille de la cellule
Réponses
8
Affichages
160
job75
D
  • Résolu(e)
XL 2021 Créer feuilles automatiquement dans un classeur a partir d'une liste et lien hypertexte
Réponses
6
Affichages
558
Phil69970
J
  • Question Question
Microsoft 365 Problème lien hypertexte
Réponses
5
Affichages
554
Phil69970
  • Résolu(e)
Microsoft 365 VBA - BeforeDoubleClick, 1ère cellule vide à partir de cellule active pour insertion de ligne
Réponses
4
Affichages
194
AlCapone
  • Question Question
XL 2016 Insertion automatique d'une photo dans une cellule
Réponses
5
Affichages
543
Jean Marc DALPHRASE
R
  • Résolu(e)
XL 2016 Créer un .doc à partir des données d'un tableur
Réponses
9
Affichages
388
job75
  • Question Question
XL 2016 saisir un lien hypertexte depuis un nom dans une cellule
Réponses
4
Affichages
600
job75
3
  • Question Question
Microsoft 365 se rendre sur une cellule à partir d'un lien
Réponses
5
Affichages
411
riton00
J
  • Résolu(e)
XL 2021 Aide code VBA - à partir de deux listes, créer une base de donnée
2
Réponses
22
Affichages
998
merinos-BernardEtang
A
  • Question Question
Microsoft 365 Diviser une cellule non déjà fusionnée en plusieurs lignes
Réponses
0
Affichages
444
alexandre.o
A
A
  • Question Question
XL 2016 Adapter une image à une cellule
2
Réponses
16
Affichages
2 K
Dudu2
M
  • Question Question
Microsoft 365 Calcul du nombre de chiffres dans une cellule. Mise en page d'un fichier.
Réponses
2
Affichages
367
MCOTTEND
M
  • Résolu(e)
Microsoft 365 Vba : Transférer des données d'un tableau dans un autre fichier
Réponses
7
Affichages
483
Chaton77
M
  • Question Question
XL 2019 Images dans plusieurs cellules à partir de plusieurs URL
2
Réponses
15
Affichages
873
patricktoulon
G
  • Question Question
Microsoft 365 Saut de ligne dans une cellule
Réponses
3
Affichages
523
GClaire
G
C
Excel : Fusionner des cellules en conservant le contenu et la police des cellules à fusionner
Réponses
5
Affichages
185
crocrocro
C
A
  • Question Question
XL 2019 Ajout d'un lien hypertexte dans un mail envoyé par VBA
Réponses
2
Affichages
642
angelusr71
A
L
  • Résolu(e)
XL 2016 Lien hypertexte VBA
Réponses
1
Affichages
1 K
Louu59
L
C
  • Résolu(e)
XL 2019 Copier et renommer (en même temps) des feuilles à partir d'une liste de noms dans un colonne
Réponses
13
Affichages
2 K
Clemee61
C
M
  • Question Question
XL 2010 Comment alimenter automatiquement des cellules à partir d'une ligne sélectionnée dans un tableau?
Réponses
13
Affichages
1 K
ManuXZ
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…