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
- VBA Excel:Copier/coller ligne+nom de feuille ds autre feuille ✓ - Forum - VB / VBA
- VBA EXCEL: copier/coller des lignes ✓ - Forum - VB / VBA
- Excel Copier coller colonne vers autre feuill ✓ - Forum - Excel
- Macro excel copier coller (ligne variable) ✓ - Forum - Programmation
- VBA Excel - Copier des lignes si condition ✓ - Forum - VB / VBA
1 réponse
ThauTheme
Modifié par ThauTheme le 18/02/2015 à 23:26
- Messages postés
- 1439
- Date d'inscription
- mardi 21 octobre 2014
- Statut
- Membre
- Dernière intervention
- 20 juin 2022
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!