Insertion image par macro dans plusieurs cellules

Question

Bonjour, 

J'utilise actuellement une macro qui me permet d'insérer une image dans une cellule selon un format définis ( dans cette macro). J'aimerai s'il est possible que cette image s'insère non pas dans 1 seul cellules mais dans par exemple 3 cellules au lieu d'avoir 3 macros pour insérer 3 fois la photo dans 3 cellules différentes (j espère que ce j'écris est compréhensible).
Voici la macro que j'utilise :

Sub Macro1()
    Dim Photo As Variant
    Dim Gauche, Sommet, Largeur, Hauteur As Single
 
    Photo = Application.GetOpenFilename("Images JPEG (*.jpg), *.jpg")
    Gauche = Range("B11").Left
    Sommet = Range("B11").Top
    Largeur = Range("A50").Width
    Hauteur = Range("A50").Height
 
    If Photo <> False Then
        Feuil1.Shapes.AddPicture Photo, True, True, Gauche, Sommet, Largeur, Hauteur
    End If
End Sub

A noter que j'utilise excel 2003
Voila merci pour vos réponses!

Configuration: Windows XP / Chrome 49.0.2623.112

michel_m · Answer

Bonjour
Avec une tite boucle 

Dim Dep As String, Fin As String'......For cptr = 1 To 3    Dep = Choose(cptr, "B11", "M11", "Z11")    Fin = Choose(cptr, "A50", "X20", "K29")    Sommet = Range(Dep).Left'....etcNext
 
 Michel

michel_m · Answer

réflèchis un peu !!!

Insertion image par macro dans plusieurs cellules

2 réponses

Discussions similaires

Newsletters