Faire apparaitre des photos dans une feuil

Merci pour l'exemple

Je vais essayer de mettre en place dans le fichier original

Crdlt

Bonsoir Daniel,

Merci pour ta solution ça  fonctionne du tonnerre

Tu m'enlève une belle épine du pied

Crdlt

Bonjour Daniel,

Je viens à nouveau te solliciter

Est il possible de mettre le logo du premier sur le podium, ainsi que le deuxième et le troisième

Merci pour ton aide

Bonjour à tous,

Essaie :

Sub logos()
  Dim C As Range, Ligne As Variant, Sh As Shape
  Application.ScreenUpdating = False
  With Sheets("Classement Général")
    For Each Sh In .Shapes
      If Sh.TopLeftCell.Column = 6 Then
        Sh.Delete
      ElseIf Sh.TopLeftCell.Address = "$N$3" Or _
        Sh.TopLeftCell.Address = "$L$4" Or _
        Sh.TopLeftCell.Address = "$P$4" Then
        Sh.Delete
      End If
    Next Sh
    For Each C In .Range("G3", .Cells(.Rows.Count, 7).End(xlUp))
      Ligne = Application.Match(C, [photos!B:B], 0)
      If IsNumeric(Ligne) Then
        With Sheets("Photos")
          For Each Sh In .Shapes
            If Sh.TopLeftCell.Row = Ligne Then
              .Select
              Sh.Select
              Selection.Copy
              Sheets("Classement Général").Select
              C.Offset(, -1).Select
              ActiveSheet.Paste
              Selection.Top = Selection.Top + 10
              Selection.Left = Selection.Left + 22
              Exit For
            End If
          Next Sh
        End With
      End If
    Next C
    'podium
    For Each C In Range("N3,L4,P4")
      Ligne = Application.Match(C, [photos!B:B], 0)
      If IsNumeric(Ligne) Then
        With Sheets("Photos")
          For Each Sh In .Shapes
            If Sh.TopLeftCell.Row = Ligne Then
              .Select
              Sh.Select
              Selection.Copy
              Sheets("Classement Général").Select
              C.Select
              ActiveSheet.Paste
              Selection.Width = C.Width + C.Offset(, 1).Width
              Selection.Left = (C.Width + C.Offset(, 1).Width - Selection.Width) / 2 + _
                C.Left + 1
              Exit For
            End If
          Next Sh
        End With
      End If
    Next C
  End With
  Application.ScreenUpdating = True
End Sub

https://www.cjoint.com/c/NKDkJy66sx4

Daniel

Re Daniel

Je te joins une photo il y a un problème de mélange dans les photos

https://www.cjoint.com/c/NKDlgGjqCDQ

Je ne comprends pas ce que tu m'envoies. Ca fonctionne dans le classeur que je t'ai envoyé. Fais-moi parvenir le classeur qui donne ce résultat.

Daniel

Bonjour,

Voir par exemple là?

https://www.bonbache.fr/extraire-les-images-d-une-recherche-par-calculs-excel-282.html

Bonjour jee pee

Ok pour la remarque.

Quelle solution me proposes-tu?

Crdlt

Au passage, la syntaxe de RECHERCHEV n'est pas bonne, elle devrait être:

=RECHERCHEV(H2;Feuil2!$A$1:$B$4;2;FAUX)

Cette fois-ci elle ne me rend plus #REF! mais 0 parce que le cellule de destination n'est pas du texte et/ou verrouillée.

Bonjour brucine

Merci pour ta réponse

Trop compliqué à mettre en place pour mon petit niveau de bureautique

Crdlt

pour l'erreur de syntaxe il s'agit d'une banale faute de sélection

Illustration suite message 7 :

Daniel

Bonjour danielc0

Ta formule ne fonctionne pas avec office 2021

Pour la question de sélection des images rien n'est verrouillé ,je ne comprend pas que tu ne puisses pas avoir ces images

Crdlt

Bonjour,

"Ta formule ne fonctionne pas avec office 2021"

Non, en effet, c'est une nouveauté Excel 365.

"je ne comprend pas que tu ne puisses pas avoir ces images"

Je les vois. Je ne peux pas les sélectionner pour les déplacer, par exemple. Ni avec Excel 365, ni avec Excel 2010. J'essaierai plus tard de redémarrer Windows...

Par contre, je peux le faire avec une macro ?

Daniel

Bonjour Michel

Désolé de revenir sur le sujet

Dans l'exemple que tu me donnes post15 je ne saisi pas comment tu fait apparaitre le chien et si je demande le velo celui-ci n'apparait pas

Crdlt

Bonjour Michel

j'ai testé quand on fait une MàJ du Classement Général tout est mélangé

Crdlt