Relier un texte à une image

Résolu/Fermé
Valerie54001 Messages postés 135 Date d'inscription mardi 22 novembre 2016 Statut Membre Dernière intervention 22 avril 2024 - Modifié le 20 déc. 2020 à 12:43
Valerie54001 Messages postés 135 Date d'inscription mardi 22 novembre 2016 Statut Membre Dernière intervention 22 avril 2024 - 20 déc. 2020 à 17:53
Bonjour la communauté,

Je viens vers vous car j'essaie de créer mon propre template toujours pour ma passion le foot !!!
Et oui je n'ai rien laché :)

Voilà dans le fichier excel ci-joint, https://www.cjoint.com/c/JLulQn3PBio,
Il y a 2 onglets , le premier '' Template Essai '' on y trouvera les rencontres des matches que j'aurai récupéré sur le net.

Ensuite, le second onglet '' Bibli '' est celui ou nous avons les équipes et leurs blasons.
Je voudrais relier le nom d'une équipe à une image dans cette '' bibli '' !
Ensuite lorsque je rentrerai , sous l'onglet '' Template Essai '' , de nouvelles rencontres en utilisant la même zone de travail '' E2:I20 '', je souhaite que l'mage de chaque équipe se met à coté de son texte !
Bien sûr, l'image devra pourtant se mettre à droite ou à gauche du texte, cela dépendra si elle joue à domicile ou à l'extérieur.

J'ai fouillé le forum et je n'ai pas trouvé un sujet similaire.

Pouvez-vous me dépatouiller ?

Amicalement Valérie

3 réponses

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
20 déc. 2020 à 17:48
Voir ce site pour les shapes:

http://boisgontierjacques.free.fr/pages_site/lesimages.htm#Suppression

suppression des images (refresh ):
mettre un bouton sur la feuille Temlate Essai avec ce code:

Private Sub CommandButton1_Click()
Dim s
  For Each s In ActiveSheet.Shapes
      If s.Type <> 8 And s.Type <> 12 Then s.Delete
  Next s
End Sub


pour le centrage des images:
mettre un bouton avec ce code

Private Sub CommandButton2_Click()
Dim champ, img, s, i
i = 2
   For Each s In ActiveSheet.Shapes
  If s.Type <> 8 And s.Type <> 12 Then
  Set champ = Range("J" & i)
  Set img = s
  img.Top = champ.Top + champ.Height / 2 - img.Height / 2
  img.Left = champ.Left + champ.Width / 2 - img.Width / 2
  i = i + 2
  End If
  Next s
End Sub


code pour la colonne J, faire de même pour la colonne D

Voilà

@+ Le Pivert
1
Valerie54001 Messages postés 135 Date d'inscription mardi 22 novembre 2016 Statut Membre Dernière intervention 22 avril 2024 1
20 déc. 2020 à 17:53
Merci Mr Le Pivert !!!
0
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
20 déc. 2020 à 15:24
0
Valerie54001 Messages postés 135 Date d'inscription mardi 22 novembre 2016 Statut Membre Dernière intervention 22 avril 2024 1
Modifié le 20 déc. 2020 à 15:48
WAhooo c'est super Le Pivert.

Par contre, lorsque je mets à jour les nouveaux noms dans mes données en colonne A
Elles ne se mettent pas à jour dans les colonne E et J.
Pourrais-tu inclure un refresh ? car l'image se superpose à l'ancienne. et si en même temps les nouveaux logos pouvainet se centrer dans le leurs cellules je suis preneuse !!

Merci d'avance mr Le Pivert
0