Copie de lignes sous conditions [Résolu/Fermé]

Signaler
Messages postés
3
Date d'inscription
mardi 30 avril 2013
Statut
Membre
Dernière intervention
4 mai 2013
-
Messages postés
3
Date d'inscription
mardi 30 avril 2013
Statut
Membre
Dernière intervention
4 mai 2013
-
Bonjour,

Je voudrais copier les lignes d'une feuille de calcul récapitulative vers différents onglets d'un même classeur.

Dans un classeur Excel, j'ai un onglet "RECAP" avec des valeurs dans les 20 premières lignes et sur plusieurs colonnes.
Je souhaiterai copier la ligne 1 de l'onglet "RECAP" dans l'onglet "BT1" du même classeur en ligne 20, la ligne 2 de l'onglet "RECAP" dans l'onglet "BT2" du même classeur en ligne 20, la ligne 3 de l'onglet "RECAP" dans l'onglet "BT3" du même classeur en ligne 20, et ainsi de suite.

Merci de vos réponses

2 réponses

Messages postés
16275
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
29 octobre 2020
3 056
Bonjour
quelles sont ces colonnes ?

Michel
Messages postés
3
Date d'inscription
mardi 30 avril 2013
Statut
Membre
Dernière intervention
4 mai 2013

Bonjour,

Les 50 premières de la colonne "A" à la colonne "AX".

Merci d'avance

RSISO
Messages postés
16275
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
29 octobre 2020
3 056
Bonjour,

Je regarderai demain mais cet aprèm j'ai profité du soleil, chose rare chez moi en ce moment
Messages postés
16275
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
29 octobre 2020
3 056
bonjour,

avec une macro
Sub dispatcher()
Dim page As Byte

Application.ScreenUpdating = False
For page = 1 To 20
With Sheets("BT" & page)
     .Range("A1:AX1") = Sheets("recap").Range(Cells(page, "A"), Cells(page, "AX")).Value
End With
Next
End Sub
Messages postés
3
Date d'inscription
mardi 30 avril 2013
Statut
Membre
Dernière intervention
4 mai 2013

Merci à tous pour votre aide