Petit souci de macro - Découpage tableau en plusieurs onglets

[emiliepo]

Bonjour,

J'ai un petit souci avec ma macro et je ne parviens pas à trouver d'où vient le problème.

Mon fichier Excel se compose d'un tableau regroupant un ensemble de postes informatiques:



Je souhaite découper ce tableau en plusieurs onglets triés sur la colonne B Site.

Bien sur je souhaite conserver l'entête du tableau. La macro que j'ai réalisé fonctionne à moitié car elle ne me copie que la première ligne de chaque site. Pourriez vous m'aider à trouver l'erreur?

Merci d'avance pour votre aide.

Voici la macro:

Sub Decoupsites()
Dim Ws As Worksheet
Dim trouve As Boolean
Dim contenu As String
Dim lig, derlig As Integer
With Sheets("ARTGO Systemes")
derlig = .Range("B65536").End(xlUp).Row
For lig = 6 To derlig
contenu = .Cells(lig, 2).Value
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(1).Copy Sheets(contenu).Range("A1")
.Rows(2).Copy Sheets(contenu).Range("A2")
.Rows(3).Copy Sheets(contenu).Range("A3")
.Rows(4).Copy Sheets(contenu).Range("A4")
.Rows(5).Copy Sheets(contenu).Range("A5")
End If
Next lig
End With
End Sub

 

[Paritec]

Re : Petit souci de macro - Découpage tableau en plusieurs onglets

bonjour Emiliepo le forum
oui c'est normal avec ta macro, là pas le temps mais met ton fichier en pièce jointe et je te ferai cela ce soir
a+
Papou

 

[emiliepo]

Re : Petit souci de macro - Découpage tableau en plusieurs onglets

Le voici en attachement
Regarde la pièce jointe Parc réf ART GO par sites.xlsm

 

[Paritec]

Re : Petit souci de macro - Découpage tableau en plusieurs onglets

Re emiliepo le forum
ton fichier en retour
tu ouvres tu cliques sur le bouton traiter
a+
Papou

 

[emiliepo]

Re : Petit souci de macro - Découpage tableau en plusieurs onglets

Magique! Merci! Sauf que c'était sur l'onglet ARTGO Systemes que je voulais faire le découpage!!!

 

[Paritec]

Re : Petit souci de macro - Découpage tableau en plusieurs onglets

Re Emiliepo le forum
oui ma chérie mais si tu le dis pas je ne peux pas le deviner
et c'est pas magique c'est Papou !!!
voilà
a+
Papou

 

[emiliepo]

Re : Petit souci de macro - Découpage tableau en plusieurs onglets

Ben si je l'avais mis dans la copie d'écran et dans ma macro!!!

Merci en tous cas! Là c'est impeccable!!!

 

[Paritec]

Re : Petit souci de macro - Découpage tableau en plusieurs onglets

Re emiliepo le forum
oui c'est vrai mais j'ai pas lu j'ai vu artgo et j'ai fait
j'ai fait une erreur
la V3
a+
Papou