XL 2016 Consolidation sans les titres

Jiheme

XLDnaute Accro
Bonjour à tous

Dans cette macro de Stapple :

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

Jiheme

XLDnaute Accro
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
 

Pièces jointes

  • test conca.xlsm
    18 KB · Affichages: 8

Calvus

XLDnaute Barbatruc
Re,

Essaie comme ceci :
VB:
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

XLDnaute Barbatruc
Bonjour Jiheme, Calvus,

Avec les UsedRange c'est mieux :
VB:
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+
 

Staple1600

XLDnaute Barbatruc
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

XLDnaute Accro
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
 

Discussions similaires

Réponses
1
Affichages
119
Réponses
0
Affichages
83
Réponses
5
Affichages
365

Statistiques des forums

Discussions
311 715
Messages
2 081 822
Membres
101 821
dernier inscrit
hybroxis