VBA : Copier/Coller des Lignes dans de Nouvelles Feuilles
Résolu
Oowi
-
Oowi -
Oowi -
Bonjour à tous,
Après des heures de recherches infructueuses, même au sein de ce forum je ne trouve pas mon bonheur donc je vous expose mon problème qui parait simple.
Je veux grâce à une macro VBA selectionner mes lignes une par une et les recopier automatiquement dans de nouvelles feuilles créées automatiquement (Même si possible la première cellule recopiée puisse être le nom du nouvel onglet mais pas obligé)
Après des heures de recherches infructueuses, même au sein de ce forum je ne trouve pas mon bonheur donc je vous expose mon problème qui parait simple.
Je veux grâce à une macro VBA selectionner mes lignes une par une et les recopier automatiquement dans de nouvelles feuilles créées automatiquement (Même si possible la première cellule recopiée puisse être le nom du nouvel onglet mais pas obligé)
1 réponse
-
Bonjour,
Sub Bouton1_Cliquer()
Sheets("Feuil1").Activate
Cells(1, 1).Select
Do While Not (IsEmpty(ActiveCell))
Var1 = ActiveCell.Value
Rows(ActiveCell.Row).Select
Selection.Copy
Sheets.Add
ActiveSheet.Name = Var1
ActiveSheet.Paste
Sheets("Feuil1").Activate
Selection.Offset(1, 0).Select
Loop
Sheets("Feuil1").Move Before:=Sheets(1)
Cells(1, 1).Select
End Sub
