XL 2016 Consolidation sans les titres

[Jiheme]

Bonjour à tous

Dans cette macro de Stapple :

Sub ConsolidationIII()
Dim ws As Worksheet, P As Range, X&, Y&
For Each ws In Worksheets
If Not ws.Name = "Base-Global" Then
Set P = ws.Range(ws.Cells(2, "A"), ws.Cells(Rows.Count, "O").End(xlUp))
X = P.Rows.Count: Y = P.Columns.Count
Sheets("Base-Global").Cells(Rows.Count, 1).End(xlUp)(2).Resize(X, Y).Value = P.Value
End If
Set P = Nothing
Next
End Sub

Je cherche à la modifier de manière à ce qu'elle ne recopie pas la ligne 1 de chaque feuille (titres) j'ai essayé 2 ou trois modifs, mais sans succès.
J'ai besoin d'un peu d'aide SVP

 

[Calvus]

Bonjour,


Sans fichier compliqué, car chez moi la macro fonctionne..

A+

 

[Jiheme]

Bonjour Calvus, le fil

Chez moi aussi, mais elle recopie la ligne 1 (Les titres des colonnes) pour chaque feuillet alors que j'ai besoin de la ligne 2 à la dernière ligne renseignée.
Voici un exemple
Merci

 

[Calvus]

Re,

Essaie comme ceci :

Sub ConsolidationIII()
Dim ws As Worksheet, P As Range, X&, Y&
For Each ws In Worksheets
If Not ws.Name = "Consolidation" Then
Set P = ws.Range(ws.Cells(2, "A"), ws.Cells(Rows.Count, 1).End(xlUp).End(xlToRight))
X = P.Rows.Count: Y = P.Columns.Count
Sheets("Consolidation").Cells(Rows.Count, 1).End(xlUp)(2).Resize(X, Y).Value = P.Value
End If
Set P = Nothing
Next
End Sub

A+

 

[job75]

Bonjour Jiheme, Calvus,

Avec les UsedRange c'est mieux :

Sub Consolidation()
Dim ws As Worksheet
Application.ScreenUpdating = False
With Sheets("Base-Global")
    .UsedRange.Offset(1).EntireRow.Delete 'RAZ
    For Each ws In Worksheets
        If ws.Name <> .Name Then ws.UsedRange.Offset(1).EntireRow.Copy .UsedRange.Rows(.UsedRange.Rows.Count + 1).EntireRow
    Next
End With
End Sub

A+

 

[Jiheme]

Bonjour Job, le fil

Merci job ça marche.

 

[Calvus]

Re,

Merci job ça marche.

De rien...

 

[Jiheme]

Sorry Calvus, merci également, en fait merci à tous!

 

[Calvus]

Re,

Tu as vu que le code du post 4 fonctionnait ?

 

[job75]

Tu as vu que le code du post 4 fonctionnait ?

Oui mais mal, ce n'est pas forcément bon de s'appuyer sur la colonne A, fichier joint.

 

[Calvus]

Bonjour Job,


Oui en effet, mais je me suis appuyé sur le code fourni, en supposant que sa colonne A était toujours forcément renseignée.
Ta solution est évidemment plus complète, comme d'habitude 😉🙂

 

[Staple1600]

Bonsoir le fil

Jiheme
Juste de passage pour une petit crise d'égomanie
C'est Staple avec un seul p 😉

PS: Sinon pourquoi avoir ouvert un second fil ?
(sans prévenir par un lien dans le premier)
J'ai été répondre dans l'autre fil
(et c'est job75 qui m'a ramené par ici)

 

[Jiheme]

Bonsoir Staple, le fil

Excuse moi pour le "p" en trop.
Je me suis rendu compte un peu trop tard que j'aurais du faire un nouveau fil, je l'ai donc fait. J'ai fait un message pour le signaler dans le premier fil, mais je n'ai pas "poster".
Je ne pense pas que vous ayez remarqué ais j'ai été absent très longtemps pour des raisons de santé et je suis perdu dans la nouvelle mouture du site, très jolie au demeurant.
Comme je compte bien être plus présent, cela va rentrer dans mon vieux crane.
Bonne soirée à tous