Faire apparaitre des photos dans une feuil

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

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.

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

Bonjour brucine

Merci pour ta réponse

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

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