j'ai un petit soucis avec une macro
je veux spliter un tableau sur plusieurs onglets en fontion de la colonne A
voici la macro :
Sub creation_onglets()
Dim Ws As Worksheet
Dim trouve As Boolean
Dim contenu As String
Dim lig As Integer
Dim derlig As Integer
With Sheets("Nominatif 20") 'à adapter Feuil1 = feuille ou sont vos données
derlig = .Range("A65536").End(xlUp).Row 'à adapter, E = colonne "Dossier groupe"
For lig = 2 To derlig
contenu = .Cells(lig, 2).Value 'à adapter 5 = 5ème col cf E ci dessus
For Each Ws In ThisWorkbook.Worksheets
trouve = False
If StrComp(Ws.Name, contenu, vbTextCompare) = 0 Then
trouve = True
Exit For
End If
Next Ws
If trouve = True Then
.Rows(lig).Copy Sheets(contenu).Range("A65536").End(xlUp).Offset(1, 0)
Else
Sheets.Add
ActiveSheet.Name = contenu
.Rows(lig).Copy Sheets(contenu).Range("A65536").End(xlUp).Offset(1, 0)
End If
Next lig
End With
End Sub
mais il me dit erreur a chaque fois sur cette ligne : ".Rows(lig).Copy Sheets(contenu).Range("A65536").End(xlUp).Offset(1, 0)"
j'aimerais bien comprendre pourquoiou vous avez des solutions plus simples je suis preneuse !!
merci beaucoup pour toutes vos réponses :)
