Recopie sous Excel

Maint_Bost Messages postés 1 Statut Membre -  
Le Pingou Messages postés 12274 Date d'inscription   Statut Contributeur Dernière intervention   -

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 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     

    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
  2. 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
  3. Le Pingou Messages postés 12274 Date d'inscription   Statut Contributeur Dernière intervention   1 476
     

    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