Recopie sous Excel

Maint_Bost Messages postés 1 Statut Membre -  
Le Pingou Messages postés 12639 Statut Contributeur -

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

A voir également:

3 réponses

Réponse 1 / 3
f894009 Messages postés 17413 Statut Membre 1 715
 

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
Réponse 2 / 3
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
Réponse 3 / 3
Le Pingou Messages postés 12639 Statut Contributeur 1 462
 

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