XL 2016 Consolider un fichier

Staple1600

XLDnaute Barbatruc

• 18 Février 2020

• #2

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.

 

Vote positif 0 Vote négatif

L

linebich

XLDnaute Junior

• 18 Février 2020

• #3

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 18 Février 2020

• #4

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 ?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 18 Février 2020

• #5

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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

L

linebich

XLDnaute Junior

• 18 Février 2020

• #6

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 18 Février 2020

• #7

Re

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

VB:

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 18 Février 2020

• #8

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.

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

 

Vote positif 0 Vote négatif

L

linebich

XLDnaute Junior

• 18 Février 2020

• #9

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 18 Février 2020

• #10

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>

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 18 Février 2020

• #11

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.

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

L

linebich

XLDnaute Junior

• 19 Février 2020

• #12

Trés bien compris

 

Vote positif 0 Vote négatif

Jiheme

XLDnaute Accro

• 10 Mars 2020

• #13

Bonjour le fil,

Dans la macro de Stapple du message n°8 :

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.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 10 Mars 2020

• #14

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)

VB:

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

 

Dernière édition: 10 Mars 2020

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Mars 2020

• #15

Bonsoir,

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

A+

 

Vote positif 0 Vote négatif