VBA Excel:Copier/coller ligne+nom de feuille ds autre feuille
Résolu/Fermé
A voir également:
- VBA Excel:Copier/coller ligne+nom de feuille ds autre feuille
- Liste déroulante excel - Guide
- Formule excel - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
- Mise en forme conditionnelle excel - Guide
1 réponse
ThauTheme
Messages postés
1442
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
29 juillet 2022
160
Modifié par ThauTheme le 18/02/2015 à 23:26
Modifié par ThauTheme le 18/02/2015 à 23:26
Bonsoir Aude, bonsoir le forum,
Essaie comme ça :
À plus,
ThauTheme
Essaie comme ça :
Sub Macro1() Dim R As Worksheet 'déclare la variable R (onglet Recap) Dim DEST As Range 'déclare la variable DEST (cellule de DESTination) Set R = Sheets("Recap") 'définit l'onglet R For I = 2 To Sheets.Count 'boucle sur tous les onglets du classeur (en partant du second) Set DEST = R.Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0) 'définit la cellue de destination DEST DEST.Value = Split(Sheets(I).Name, "-")(1) 'renvoie dans DEST la partie du nom de l'onglet après le trait d'union 'copie les données de l'onglet et les colle dans DEST décalée d'une colonne à droite Sheets(I).Range("A6:F6").Copy DEST.Offset(0, 1) Next I 'prochain onglet de la boucle End Sub
À plus,
ThauTheme
19 févr. 2015 à 08:52
Petite question complémentaire: comment faire pour que les données soient collées, toujours dans la feuille 'Recap', à partir de B10 par exemple au lieu de B6?
Merci encore!
19 févr. 2015 à 09:07
Merci encore ThauTheme!