Renvoie de données
Fermé
Alex
-
30 juin 2022 à 17:21
via55 Messages postés 14512 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 janvier 2025 - 30 juin 2022 à 18:09
via55 Messages postés 14512 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 janvier 2025 - 30 juin 2022 à 18:09
2 réponses
DjiDji59430
Messages postés
4213
Date d'inscription
samedi 19 avril 2008
Statut
Membre
Dernière intervention
10 mars 2025
691
30 juin 2022 à 17:34
30 juin 2022 à 17:34
Bonjour,
Un fichier EXCEL (test ou non), complété par des explications exhaustives et des exemples remplis à la main, mis sur https://www.cjoint.com/ , ainsi que la version d'Excel, permettrait aux intervenants de répondre plus précisément à ta question.
Crdmt
Un fichier EXCEL (test ou non), complété par des explications exhaustives et des exemples remplis à la main, mis sur https://www.cjoint.com/ , ainsi que la version d'Excel, permettrait aux intervenants de répondre plus précisément à ta question.
Crdmt
via55
Messages postés
14512
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 janvier 2025
2 741
Modifié le 30 juin 2022 à 18:10
Modifié le 30 juin 2022 à 18:10
Bonjour
avec une macro du style de celle-ci qui va de la ligne 9 à la ligne 54 (à modifier pour adapter de même que les noms de feuilles ) et copie les données de Feuil1 les unes en dessous des autres dans Feuil2
Cdlmnt
Via
avec une macro du style de celle-ci qui va de la ligne 9 à la ligne 54 (à modifier pour adapter de même que les noms de feuilles ) et copie les données de Feuil1 les unes en dessous des autres dans Feuil2
Sub report() For n = 9 To 54 Step 5 x = x + 1 Sheets("Feuil2").Range("A" & x) = Sheets("Feuil1").Range("A" & n) Sheets("Feuil2").Range("B" & x) = Sheets("Feuil1").Range("B" & n + 5) Next End Sub
Cdlmnt
Via