Copie de lignes sous conditions

Résolu/Fermé

RSISO Messages postés 3 Date d'inscription mardi 30 avril 2013 Statut Membre Dernière intervention 4 mai 2013 - 30 avril 2013 à 22:29
RSISO Messages postés 3 Date d'inscription mardi 30 avril 2013 Statut Membre Dernière intervention 4 mai 2013 - 4 mai 2013 à 12:54

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:

Copie de lignes sous conditions
Copie cachée - Guide
Super copie - Télécharger - Gestion de fichiers
Copie écran samsung - Guide
Copie disque dur - Guide
Site de vente en ligne particulier - Guide

2 réponses

Réponse 1 / 2

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
Modifié par michel_m le 1/05/2013 à 09:22

Bonjour
quelles sont ces colonnes ?

Michel

Réponse 2 / 2

RSISO Messages postés 3 Date d'inscription mardi 30 avril 2013 Statut Membre Dernière intervention 4 mai 2013
1 mai 2013 à 09:28

Bonjour,

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

Merci d'avance

RSISO

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
1 mai 2013 à 16:23

Bonjour,

Je regarderai demain mais cet aprèm j'ai profité du soleil, chose rare chez moi en ce moment

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
2 mai 2013 à 14:19

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

RSISO Messages postés 3 Date d'inscription mardi 30 avril 2013 Statut Membre Dernière intervention 4 mai 2013
4 mai 2013 à 12:54

Merci à tous pour votre aide

Discussions similaires

lien copié

Comment retrouver des lien copier sur sont téléphone

[référencement] Ne pas être référencé

Afficher toutes les lignes masquées excel

Discussions similaires

Newsletters