Recopie sous Excel

Maint_Bost -  

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

3 réponses

  1.  f894009

    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
    0
    1. Maint_Bost

      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

      0
      1. Le Pingou

        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 .....!

        0