Modifier une macro

Bonjour,

La macro fonctionne bien mais j'ai un gros souci pour l'adapter à mon projet.

Quels modifications je dois faire dans ma macro pour imprimer les vignettes qui sont sur une autre feuille du classeur ? exemple ici : quand les vignettes sont en colonnes b,c,d sur "Feuil1" et le bouton pour l'activer sur "Claude".

voir fichier.

Merci d'avance

Bonjour

Essayes

Sub Claude() 'proposition
Dim DerL%, Lg%, i%
    With Sheets("Feuil1")     'ActiveSheet
        DerL = Cells.Find("*", , , , xlByRows, xlPrevious).Row + 1

        Select Case Range("i4") 'Lg = dernière ligne d'impression
            Case Is <= 3: Lg = 15
            Case Is <= 6: Lg = 30
            Case Is <= 9: Lg = 45
            Case Is <= 12: Lg = 60
            Case Is <= 15: Lg = 75
            Case Is <= 18: Lg = 90
            Case Is <= 21: Lg = 105
            Case Is <= 24: Lg = 120 'ajouté
            Case Else: Exit Sub
        End Select

        .PageSetup.PrintArea = "B1:D" & Lg
        .ResetAllPageBreaks 'efface sauts de pages existants
            For i = 30 To DerL Step 30
                .HPageBreaks.Add Before:=Rows(i + 1) 'sauts de pages
            Next i
        .PrintPreview
        '.PrintOut copies:=1
    End With
End Sub

Important :Il faut que tes étiquettes aient les mêmes dimensions (Hauteur et largeur des cellules)

Bonjour,

Tu veux copier les vignettes de la Feuil1 sur la feuille "Claude",

la feuille "Claude" serait un modèle d'impression, en quelque sorte.

C'est çà ?

Claude

Bonjour Claude, dans mon projet le nombre de vignettes et le bouton qui active la macro sont défini sur une page différente de celle où sont affichées les vignettes à imprimer. J'ai simplement le problème de savoir comment interpréter ces lien dans la macro.

Merci à Banzai64, je vais essayer votre proposition. Là, je part au boulot. Je vous répondrais ce soir après 23H. Cordialement

Cizzaro

Encore merci à tous. ça marche à merveille. Bonne soirée