Copier une image en adaptant le format a la cellule


#1

Bonsoir à tous,
je recherche une formule qui me permette de copier une image ( format : 15 cm x 10 ) dans mon fichier image et de la coller dans une cellule (format : 5 cm x 5 ) en sachant que l’image doit s’adapter au format de la cellule .
Avez vous une solution à me proposer ?
merci de votre aide
Cdt
Christophe


#2

Bonjour,
Un petit classeur exemple serait souhaité, avec le nom du chemin du dossier contenant les images
image


#3

Bonjour, vous avez en pièce jointe ma demande sur une feuille excel.
Merci de votre aide
Cdt

exemple de la demande.xlsx (93,0 Ko)


#4

Bonjour,

Un double clic sur la cellule “Photo 3”, et HOP !

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Dim Sh As Shape
  If Not Application.Intersect(Target, Range("B13")) Is Nothing Then
    Set Sh = ActiveSheet.Shapes("Image 4")
    Sh.Copy
    Range("B13").Select
    ActiveSheet.Paste
    Selection.Left = Range("B13").Left
    Selection.Top = Range("B13").Top
    Selection.Width = Range("B13:D19").Width
    Selection.Height = Range("B13:D19").Height
    Range("A13").Select
  End If
End Sub

exemple de la demande.xlsm (100,1 Ko)


#5

Bonsoir, désolé du retard de ma réponse,mais c’est super, ça marche !!!
merci Mimimathy


fermé automatiquement #6

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.