Automatisation d'impression d'étiquettes provenant d'une base de données

Bonjour à tous,

Pour un petit projet, j'ai réalisé une automatisation de création d'étiquettes.

Voici mon problème. J'aimerais pouvoir à l'aide d'une macro automatiser l'impression pour qu'à partir d'un clic, Excel imprime l'étiquette de tous les produits.

Je vous invite à bien vouloir trouver une représentation de ce programme en pièce jointe.

Merci énormément pour vos conseils !

Bonjour Mino8,

voici un exemple à tester:

Sub testMino8()

    Dim first As Variant
    Dim r As Range, c As Range, inputRange As Range

    ' Location of DataValidation cell
    Set r = Worksheets("Etiquette").Range("B2")
    ' Get DataValidation values
    Set inputRange = Evaluate(r.Validation.Formula1)

    Application.ScreenUpdating = False

    ' Loop through DataValidation list
    For Each c In inputRange
        If first = "" Then first = c.Value
        If c <> "" Then
            r.Value = c.Value

            Worksheets("Etiquette").PrintOut

        End If
    Next c

    ' Reset
    r = first

    Application.ScreenUpdating = True

End Sub

Bonjour Sequoyah,

Je viens de l'adapter pour mon cas et ça fonctionne très bien!!

Merci beaucoup d'avoir pris le temps de m'aider!

Bonjour à tous,

Suite au code de Mr Sequoyah qui fonctionne très bien, j'ai voulu essayer de dupliquer le code pour faire 4 étiquettes sur 1 feuille pour ainsi aller plus vite et gaspiller moins de papier.

Petit problème, une erreure empêche la macro de fonctionner. l'un de vous pourrait m'expliquer d'où vient cette erreur et m'aider à la résoudre?

Merci d'avance pour votre aide!