VBA : Copier/Coller des Lignes dans de Nouvelles Feuilles [Résolu/Fermé]

- - Dernière réponse :  Oowi - 5 août 2016 à 13:28
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é)
Afficher la suite 

1 réponse

Messages postés
154
Date d'inscription
jeudi 4 août 2016
Statut
Membre
Dernière intervention
9 septembre 2016
18
0
Merci
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
Salut Ant049,

Franchement solide ! Merci énormément ça marche grave et j'aurais pas pu y arriver quand je vois à ce à quoi tu es arrivé !

Si tu es sur Paris je te paye ma bière ! :D
Ant049
Messages postés
154
Date d'inscription
jeudi 4 août 2016
Statut
Membre
Dernière intervention
9 septembre 2016
18 -
Merci pour ton retour, le principal est que tu es compris le code que je t'ai passé.

Je ne suis pas à Paris mais je ne dis jamais non à une bière ;)

A+
> Ant049
Messages postés
154
Date d'inscription
jeudi 4 août 2016
Statut
Membre
Dernière intervention
9 septembre 2016
-
Le code est top tu l'as pris d'un angle différent et c'est vraiment cool A+ !