Recopier ligne dans onglets en fonction du nom
Bonjour à tous,
voici mon probleme:
J'aimerai que mon code permette de créer des onglet on fonction des informations dans une liste.
J'ai donc ecrit la premiere partie du code qui permet que quand dans la liste (trié) l'information change comme par exemple a-a-a-a-b-b-b-b-c-c-c-c -> a-b-c, ca crée un onglet et le renome.
Ce que je n'arrive pas a faire, c'est qu'ensuite ca copy les informations dans l'onglet appropriè (tous les lignes qui commencent par a dans l'onglet a...etc....)
Merci d'avance pour votre aide
Sub Insertsheet()
Dim Rng As Range
Dim WorkRng As Range
Dim Sheetsadd As Worksheet
On Error Resume Next
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
'Application.ScreenUpdating = false
For i = WorkRng.Rows.Count To 2 Step -1
If WorkRng.Cells(i, 1).Value <> WorkRng.Cells(i - 1, 1).Value Then
Set Sheetsadd = Sheets.Add(After:=Sheets(Sheets.Count))
ActiveSheet.Name = WorkRng.Cells(i, 1).Value
End If
Next
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = WorkRng.Cells(i, 1).Value
'Application.ScreenUpdating = True
End Sub
Bonjour et bienvenue,
Je n'ai pas vraiment compris ! mais si tu cherches à éclater un onglet en plusieurs en fonction de la valeur d'une colonne, tu peux utiliser ceci :
Hello,
oui en gros c'est ce que je cherche a faire, et en plus renomer les onglets en fonction des données copié
Si cela te convient, alors ...