Iinserer une image

Bonjour,

J'utilise ce code pour afficher une image selon une valeur, seulement cette image s'affiche que sur la cellules P91, Alors que je voudrais quelles insert dans les cellules P91 à S92

Mon code:

Set objFeuille = ActiveSheet

  ' parcour la collection de Shape pour les supprimer sauf celui dont le nom
 ' est explicitement inscrit
 For Each Sh In objFeuille.Shapes
    If Sh.Type <> msoFormControl Then
      If Sh.Name <> "CommandButton21" And Sh.Name <> "CommandButton2" And Sh.Name <> "CommandButton3" Then Sh.Delete

   End If

  Next Sh

  With Sheets("Facture").Range("AI91")
    If .Value > 0 And .Value < 20 Then
      Set objPict = objFeuille.Pictures.Insert(Range("AK91") & "\admin" & .Value & ".jpg")
      With objPict
        .Left = Range("P91").Left
        .Top = Range("P91").Top
        .Width = Range("P91").Width
        .Height = Range("P91").Height
      End With
    End If
  End With

End Sub

J'ai essayé ceci mais c'est pareille.

With Sheets("Facture").Range("AI91")
    If .Value > 0 And .Value < 20 Then
      Set objPict = objFeuille.Pictures.Insert(Range("AK91") & "\admin" & .Value & ".jpg")
      With objPict
        .Left = Columns("P").Left
        .Top = Rows("91").Top
        .Width = Columns("S").Width
        .Height = Rows("92").Height
      End With
    End If
  End With

End Sub

Merci de votre généreuse aide.

SALUT

A CHAQUR CELLUE DE RANGE OU ETIREE SUR TOUTE LA PLAGE

ET SVP ENVOYER UN EXEMPLE " bien sur un extrait"

Salut Amir,

désolé pour le manque de détail, c'est étiré,

Voici un exemple.

Merci.

SALUT

ESSAI CA

 Sub testtt()

    Dim myDocument
    Set myDocument = Worksheets(1)
myDocument.Shapes.AddPicture _
    "C:/Nouveau Image bitmap.bmp", _
    True, True, 540, 100, 70, 70

    End Sub

Merci,

Mais j'y comprend rien, Je l'insert ou dans ma formule?? (je suis nul en macro)

a quoi correspond quoi?

SALUT

Sub insertr()
Dim objFeuille, repertoire, Sh

    Set objFeuille = ActiveSheet

      ' parcour la collection de Shape pour les supprimer sauf celui dont le nom
    ' est explicitement inscrit
    For Each Sh In objFeuille.Shapes
        If Sh.Type <> msoFormControl Then
          If Sh.Name <> "CommandButton21" And Sh.Name <> "CommandButton2" And Sh.Name <> "CommandButton3" Then Sh.Delete

       End If

      Next Sh

      With Sheets("Facture").Range("AI91")
        If .Value > 0 And .Value < 20 Then
          repertoire = "\admin" & .Value & ".jpg"

         '100, 100, 70, 70  pour la position de limage SVP consulter l'aide exel devlopeur enter "AddPicture"
          objFeuille.Shapes.AddPicture _
                  repertoire, _
            True, True, 100, 100, 70, 70

        End If
      End With

    End Sub

Super Amir,

Merci beaucoup, c'est exactement ce que je voulais Heureusement que vous êtes la, je ferais rien sans vous.

Encore merci beaucoup.