Recopie sous Excel Fermé

Question

Bonjour à Toutes et Tous et merci de votre aide.
Je souhaite créer en automatique 1 étiquette sur 3 lignes avec 3 références différentes d'un autre tableau et je n'arrive pas a faire une recopie en automatique.

J'explique :

1er ligne =Sheet1!A2

2ème ligne =Sheet1!B2

3ème ligne =Sheet1!C2

Et j'aimerais que la 4ème, 5ème et 6ème... soient :

4ème ligne =Sheet1!A3

5ème ligne =Sheet1!B3

6ème ligne =Sheet1!C3

Puis...

7ème ligne =Sheet1!A4

8ème ligne =Sheet1!B4

9ème ligne =Sheet1!C4

Indéfiniment...

Merci de votre aide

Bonne journée

f894009 · Answer

Bonjour,

Connaissez vous la Programmation VBA?

Si oui, un code a mettre dans un module

Sub recopie()
    With Worksheets("Sheets1")           'nom de feuille a adapter
        p = 2
        For n = 2 To 5003 Step 3            'max a adapter
            .Cells(n, 3).Formula = "=Sheets1!A" & p
            .Cells(n + 1, 3).Formula = "=Sheets1!B" & p
            .Cells(n + 2, 3).Formula = "=Sheets1!C" & p
            p = p + 1
        Next n
    End With
End Sub

Maint_Bost · Answer

Bonsoir
Merci pour cette réponse
Cependant, le résultat n'est pas bon
Auriez-vous une autre piste?
Hors VBA, ceci est-il possible?
Merci de votre aide
Bien à vous

Le Pingou · Answer

Bonjour,

Une solution est passée par le publipostage de WORD pour créer les étiquettes et vous prenez votre feuille EXCEL comme base de données.

Si pas cela alors compléter votre explication .....!