Bonjour,
 
J'avais comme problématique de faire une macro sous excel pour ajuster une image sur une plaque d'autocollants:
3x8 etiquettes (70mm*35mm), la plaque n'a pas de marge sur les bords gauche et droit, mais une marge de 0.85 sur le haut et le bas.
 
J'ai fait la macro pour dupliquer et positionner l'image, mais je n'arrive pas à l'adapter pour correspondre parfaitement à la plaque d'autocollants (en particulier l'absence de marge sur le coté).
Une idée ?
 
Pour info, la macro:
'Creation du canevas d'etiquettes
 
Private Sub Test1_Click()
 
 
Dim Px As Integer
Dim x As Integer
Dim Py As Integer
Dim y As Integer
Dim MonDocument As Worksheet
Dim Rosace As Shape
Dim u As Integer
Dim Chemin As String
 
Chemin = Application.GetOpenFilename
c = InputBox("Nombre de colonnes ?"
l = InputBox("Nombre de lignes ?"
u = c - 1
v = l - 1
 
 
Set MonDocument = ActiveSheet
 
 
Py = 105 'Pas en hauteur 'au pif
Px = 160 'Pas en largeur 'au pif
For i = 0 To v
    y = i * Py
        For j = 0 To u
            x = j * Px
            Set Rosace = MonDocument.Shapes.AddPicture(Chemin, False, True, Cx + x, Cy + y, 160, 105)  
        Next j
Next i
 
 
 
 
End Sub