XL 2016 Consolider un fichier

[linebich]

Bonsoir forum j'espere que vous allez bien , je demande votre aide pour trouver une solution à mon probleme en fait mon objectif c'est de consolider des feuilles excel contenant le meme model de tableau dans une feuille globale j'ai ecris ce code , sauf que je sais pas comment est excel va connaitre les tableau dans les feuilles et ne me copie pas les entête
Sub transfert()

Dim i As Byte
Dim DLig As Long

DLig = Range("A7").End(xlDown).Row + 1

For i = 1 To Worksheets.Count

If UCase(Sheets(i).Name) <> "Base-Global" Then

Sheets(i).Cells("A1").CurrentRegion.Copy Sheets("Base-Global").DLig



End If

Next

End Sub

 

[Staple1600]

Bonsoir le fil

linebich
Un petit exemple tout droit sorti du four

https://www.excel-downloads.com/thr...onglets-via-une-macro.20041635/#post-20299259

(Qui devrait pouvoir t'inspirer)

Sinon, même conseil que dans tes autres fils, utilises le moteur de recherche du forum. 😉

 

[linebich]

Bonsoir Staple Merci pour ton retour
ça marche trés bien avec le test sauf que moi le nombre de feuilles doit etre calcué a chaque fois
et j'ai pas compris
' en redimensionnant à chaque fois la plage de cellules de 10 lignes et 3 colonnes
moi j'ai de A2 a O le nombre de ligne change
comment est ce que je peux paramétrer ton code
cordialement



Sub Consolidation()
Dim ws As Worksheet
For Each ws In Worksheets
If Not ws.Name = "Base-Global" Then
'ici on "recopie" les valeurs seules
' en redimensionnant à chaque fois la plage de cellules de 10 lignes et 3 colonnes
'taille des tableaux des 3 feuilles à consolider
Sheets("Base-Global").Cells(Rows.Count, 1).End(xlUp)(2).Resize(10, 3).Value = ws.Range("A2:O1000").Value 'ICi j'ai pris le maximum
End If
Next
End Sub

 

[Staple1600]

Re

de A à C, il y a bien 3 colonnes
Et dans mon exemple , les tableaux comptaient 10 lignes
Donc il faut adapter en conséquence
De A à O, je doute fort qu'il y ait 3 colonnes
Et O1000 ne correspond assurément pas à O10
Tu vois où je veux en venir et où il faut adapter dans le code ? 😉

 

[Staple1600]

Re

Précisions
Donc ta description n'était pas exact 😉

mon objectif c'est de consolider des feuilles excel contenant le meme model de tableau

 

[linebich]

Re est ce possible avec un nombre de ligne qui change ?
mais la même entête
a ce niveau
.Resize(10, 3)

 

[Staple1600]

Re

Donc tu n'as compris l’adaptation à faire?
Avec ton exemple, il fallait ceci 😉

Sub ConsolidationII()
Dim ws As Worksheet
For Each ws In Worksheets
If Not ws.Name = "Base-Global" Then
Sheets("Base-Global").Cells(Rows.Count, 1).End(xlUp)(2).Resize(999, 15).Value = ws.Range("A2:O1000").Value
End If
Next
End Sub

 

[Staple1600]

Re

Pour finir (il est tard, faut que j'aille me brosser les dents et enfiler mon pyjama en pilou 😉), une version pour si les tableaux sont de taille différente.

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

 

[linebich]

Tu es génial , je découvre mes fautes et j'arrive a comprendre et les corriger grace à toi staple vrm un grand merci

 

[Staple1600]

Re

Le vrm est interdit en nos murs.
Tu me feras 27 pompes avant d'aller au dodo!

Pourquoi est-ce interdit?
Voir la charte du forum, palsambleu !

<oui passé 23h00, je peux avoir de faux airs du captain Haddock> 😉

 

[Staple1600]

Re

Je veux m'endormir en étant sur que tu as compris mes deux derniers messages.
Donc la charte a dit

4 – Le langage SMS et le verlan ne sont pas autorisés sur les forums.

J'ai supputé que vrm= > vraiment
Donc tu as franchi un interdit ! 😉

Maintenant je peux aller dormir serein et apaisé et te laisser consolider à donf. 😉

Merde, j'ai franchi aussi
(mais je ne fais jamais de pompes en pyjama)

Allez, bonne nuit et bonne consolidation 😉

 

[linebich]

Trés bien compris 😀

 

[Jiheme]

Bonjour le fil,

Dans la macro de Stapple du message n°8 :

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.

 

[Staple1600]

Bonsoir Jiheme

Je viens de refaire le test
Les lignes de titre ne sont pas copiées.

EDITION: Essaies ce petit test
Sur un classeur vierge, lance la macro ci-dessous
(pour créer un classeur de test)

Sub Créer_Exemple()
Dim i As Byte, P As Range
For i = 1 To 4
Sheets.Add(after:=Sheets(Sheets.Count)).Name = "Test_" & i
Next
For i = 1 To 4
With Sheets("Test_" & i)
.Range("A1:O1") = "=""ITEM_""&COLUMN()"
Set P = .Range("A2:O" & Application.RandBetween(1, 37))
P.Formula = "=CHAR(64+" & i & ")&ADDRESS(ROW(),COLUMN(),4)"
P = P.Value
Set P = Nothing
End With
Next
Sheets.Add(after:=Sheets(Sheets.Count)).Name = "Base-Global"
Application.DisplayAlerts = False
Sheets(1).Delete
End Sub

Puis lance la macro ConsolidationIII
Tu verras que les lignes de titre ne sont pas recopiées 😉

 

[job75]

Bonsoir,

https://www.excel-downloads.com/threads/consolidation-sans-les-titres.20042518/#post-20306580

A+