Copie de lignes sous conditions

Résolu
RSISO Messages postés 3 Statut Membre -  
RSISO Messages postés 3 Statut Membre -
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
A voir également:

2 réponses

michel_m Messages postés 18903 Statut Contributeur 3 317
 
Bonjour
quelles sont ces colonnes ?

Michel
0
RSISO Messages postés 3 Statut Membre
 
Bonjour,

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

Merci d'avance

RSISO
0
michel_m Messages postés 18903 Statut Contributeur 3 317
 
Bonjour,

Je regarderai demain mais cet aprèm j'ai profité du soleil, chose rare chez moi en ce moment
0
michel_m Messages postés 18903 Statut Contributeur 3 317
 
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
0
RSISO Messages postés 3 Statut Membre
 
Merci à tous pour votre aide
0