Discussion :

[Muzzik]

Bonjour à tous,

Merci du temps que vous pourrez me consacrer pour m'accompagner sur cette demande
Ce sujet ressort très souvent et je me vois désolé mais je tourne en rond sur cette macro

je dois traiter un fichier de tarifs constructeurs qui comporte a la base 2 onglets (tarif1 & tarif2) chaque onglet compte grosso modo 1 050 000 & 630 000 lignes et pèse dans sa forme initiale 120Mo
je traite par le biais de différentes macro une épuration des différentes colonnes inutiles, doublons pour ramener celui ci a une taille de 50 Mo et toujours 2 onglets 847 000 & 510 000 lignes.

Bien entendu que les 2 onglets sont de conception identiques 4 colonnes avec nommage (Familly / Product / Product Description / Price in USD)

Je dois pour pousser encore plus loin ce régime maintenant fusionner ses 2 onglets en 1 seul.
l'objectif extraire les familles de produit qui me sont réellement utiles dans mon CRM.

j'ai parcouru plusieurs Forums et je suis tombé sur cette macro que je n'arrive pas à adapter a mon besoin

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Sub TableauFinal()
 
Dim sh As Worksheet, F As Worksheet
 
Set sh = Worksheets.Add
On Error Resume Next
Application.DisplayAlerts = False
Sheets("DmResultat").Delete
Application.DisplayAlerts = True
sh.Name = "DmResultat"
 
For Each F In Worksheets
If F.Name <> sh.Name Then
If WorksheetFunction.CountA(F.UsedRange) <> 0 Then
With F
.Range(.Cells(1, 1), .Cells(DerLig(F), DerCol(F))).Copy _
sh.Cells(DerLig(sh) + 1, 1)
End With
End If
End If
Next
Set sh = Nothing: Set F = Nothing
 
 
End Sub
 
'--------------------------------------
Function DerLig(sh As Worksheet)
On Error Resume Next
DerLig = sh.Cells.Find(What:="*", _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
On Error GoTo 0
End Function
'--------------------------------------
Function DerCol(sh As Worksheet)
On Error Resume Next
DerCol = sh.Cells.Find(What:="*", _
LookIn:=xlFormulas, _
SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious).Column
On Error GoTo 0
End Function
'--------------------------------------

Celle ci me copie correctement les 847 000 lignes de tarif1 mais ne prend pas en compte les lignes de tarif2.

Je vous remercie par avance de l'aide que vous pourriez m'apporter
Chris

[Philippe Tulliez]

Bonjour,
Sauf erreur de ma part et après avoir parcouru rapidement ton code, il est impossible de te répondre car dans cette procédure tu utilises notamment deux variables dimensionnées DerLig et DerCol dont on ne voit pas à quelle moment tu les initialises

[BENNASR]

bonsoir
j'ai eu un jour ce code de l'un des grand monsieur de ce site je crois que te convient parfaitement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub test()
Dim c As Range, Plage As Range, j As Long, w As Worksheet
 
j = Sheets("feuil2").Range("A1048576").End(xlUp).Row
For Each w In ThisWorkbook.Worksheets
If w.Name <> "Feuil2" Then ' ici la feuille qui va recevoir le résultat sans doublons
w.Activate
Set Plage = w.Range("A1", Range("A65536").End(xlUp))
'j = 1
For Each c In Plage
If Not IsNumeric(Application.Match(c.Value, Sheets("Feuil2").Range("A:A"), 0)) _
Or j = 1 Then
Sheets("Feuil2").Range("A" & j).Value = c.Value
Sheets("Feuil2").Range("B" & j).Value = Cells(c.Row, 2)
Sheets("Feuil2").Range("C" & j).Value = Cells(c.Row, 3)
Sheets("Feuil2").Range("D" & j).Value = Cells(c.Row, 4)
 
j = j + 1
End If
Next c
End If
Next w
End Sub

[Muzzik]

bonsoir
j'ai eu un jour ce code de l'un des grand monsieur de ce site je crois que te convient parfaitement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub test()
Dim c As Range, Plage As Range, j As Long, w As Worksheet

j = Sheets("feuil2").Range("A1048576").End(xlUp).Row
Merci pour ton aide mais j'ai peut etre oublié de préciser que je ne suis pas un expert mais volontaire pour apprendre
Je ne comprends pas l'instruction ci dessus 
j = Sheets("feuil2").Range("A1048576").End(xlUp).Row a quoi cela fait il référence
For Each w In ThisWorkbook.Worksheets
If w.Name <> "Feuil2" Then ' ici la feuille qui va recevoir le résultat sans doublons
w.Activate
Set Plage = w.Range("A1", Range("A65536").End(xlUp))
'j = 1
For Each c In Plage
If Not IsNumeric(Application.Match(c.Value, Sheets("Feuil2").Range("A:A"), 0)) _
Or j = 1 Then
Sheets("Feuil2").Range("A" & j).Value = c.Value
Sheets("Feuil2").Range("B" & j).Value = Cells(c.Row, 2)
Sheets("Feuil2").Range("C" & j).Value = Cells(c.Row, 3)
Sheets("Feuil2").Range("D" & j).Value = Cells(c.Row, 4)

j = j + 1
End If
Next c
End If
Next w
End Sub

[Muzzik]

Bonjour,
Sauf erreur de ma part et après avoir parcouru rapidement ton code, il est impossible de te répondre car dans cette procédure tu utilises notamment deux variables dimensionnées DerLig et DerCol dont on ne voit pas à quelle moment tu les initialises

Bonjour et merci du temps consacré Philippe

Ci dessus mon message initial modifié

Cdlt

[Marc-L]

Bonjour !

je dois traiter un fichier de tarifs constructeurs qui comporte a la base 2 onglets (tarif1 & tarif2) chaque onglet compte grosso modo 1 050 000 & 630 000 lignes et pèse dans sa forme initiale 120Mo
je traite par le biais de différentes macro une épuration des différentes colonnes inutiles, doublons pour ramener celui ci a une taille de 50 Mo et toujours 2 onglets 847 000 & 510 000 lignes

Ce n'est vraiment pas sérieux de traiter cela dans Excel car c'est juste un tableur !
C'est pour une association j'espère, pas une entreprise quand même ?
J'espère que les vrais données se trouvent ailleurs, sinon les sauvegardes du classeur ont intérêt à être bétonnées !
Dire qu'Access est au moins 50 (voir 100 !) fois plus rapide qu'Excel pour ce genre de traitement …

___________________________________________________________________________________________________________
Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[Menhir]

je traite par le biais de différentes macro une épuration des différentes colonnes inutiles, doublons pour ramener celui ci a une taille de 50 Mo et toujours 2 onglets 847 000 & 510 000 lignes.

Je dois pour pousser encore plus loin ce régime maintenant fusionner ses 2 onglets en 1 seul.

Tu vas te retrouver confronté une limite physique : Excel n'accepte pas plus de 1 048 576 lignes par feuille et tes données font 1 357 000 lignes.
https://support.office.com/fr-fr/art...7-269d656771c3

Donc, soit tu parviens à éliminer encore 250 000 lignes, soit (ce qui serait plus sage) tu t'orientes vers un gestionnaire de base de données.

[Muzzik]

Bonsoir,

Merci a tous pour vos retours, effectivement au vue de vos remarques je vais m'orienter vers Access.
pas simple mais on va potasser le sujet

Bien a vous tous