Erreur d'exécution 9

Signaler
Messages postés
1
Date d'inscription
lundi 11 janvier 2021
Statut
Membre
Dernière intervention
11 janvier 2021
-
Messages postés
15513
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
12 janvier 2021
-
Bonjour,

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 :)

1 réponse

Messages postés
15513
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
12 janvier 2021
1 428
Bonjour,

Y a deux lignes, laquelle est en erreur?

Un fichier serait le bienvenu car j'ai fait des tests avec votre code en le modifiant pour les variables et ca marche