Recopie sous Excel

Maint_Bost Messages postés 1 Date d'inscription vendredi 3 novembre 2023 Statut Membre Dernière intervention 3 novembre 2023 - Modifié le 4 nov. 2023 à 09:49
Le Pingou Messages postés 12075 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 19 mai 2024 - 7 nov. 2023 à 17:58

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

f894009 Messages postés 17191 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mai 2024 1 707
4 nov. 2023 à 09:35

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

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
Le Pingou Messages postés 12075 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 19 mai 2024 1 433
Modifié le 7 nov. 2023 à 18:01

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