VBA : Copier/Coller des Lignes dans de Nouvelles Feuilles
Résolu/Fermé
A voir également:
- VBA : Copier/Coller des Lignes dans de Nouvelles Feuilles
- Mkdir vba ✓ - Forum VB / VBA
- Excel compter cellule couleur sans vba - Guide
- Vba range avec variable ✓ - Forum VB / VBA
- Autofill vba ✓ - Forum Excel
- L'indice n'appartient pas à la sélection vba ✓ - Forum Programmation
1 réponse
Ant049
Messages postés
154
Date d'inscription
jeudi 4 août 2016
Statut
Membre
Dernière intervention
9 septembre 2016
22
5 août 2016 à 13:06
5 août 2016 à 13:06
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
5 août 2016 à 13:21
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
5 août 2016 à 13:23
Je ne suis pas à Paris mais je ne dis jamais non à une bière ;)
A+
5 août 2016 à 13:28