Aligner des lignes dont les cellules sont identiques

**IED factory** · 12/12/2016, 15h30

Bonjour à tous et merci pour votre aide par avance !

J'ai deux fichier contenant des colonnes identiques, mais pas en même nombres (+ 41 000 dans un et + 21 000 dans l'autre), je dois faire un rapprochement de ces deux fichiers.
Ces fichiers doivent être rapproché par la colonne identique et fiable qui s'intitule EAN et je dois mettre en vis-à-vis les EAN identiques.
D'habitude, je le fais manuellement en mettant cote à cote et classés par la colonne commune les deux fichiers en un. Puis en comparant les deux colonnes communes, j’insère des lignes vides soit à droite, soit à gauche pour que les cellules égales soit en vis-à-vis.
Vu le nombre cette fois, je ne peux le faire à la main pour comparer des dizaines de milliers de nombres à 13 chiffres (les EAN).

Merci d'avoir la gentillesse de me donner la solution, car je ne sais si cela fait appel à une macro ou un module !

**zoom61** · 12/12/2016, 16h04

Salut,

Si je comprends la demande, c'est de savoir si un code EAN existe dans les deux fichiers ou pas. Si c'est le cas, il suffit d'utiliser la fonction nb.si sur le code EAN.

Cdlt.

**IED factory** · 12/12/2016, 16h55

Merci du retour...mais non, c'est faire ce qu'on appelle je crois matcher et ensuite les faire correspondre sur la même ligne....Mise à jour du fichier, le premier été erroné : exemple_extrait2.ods

**IED factory** · 12/12/2016, 18h22

voici un fichier avec l'exemple de départ et l'exemple d'arrivé ci-dessous... : http://www.cjoint.com/c/FLmruIA7Dw8

**IED factory** · 13/12/2016, 08h43

Merci si quelqu'un a le temps de me répondre....

**zoom61** · 13/12/2016, 09h09

Envoyé par IED factory

Merci si quelqu'un a le temps de me répondre....

On est sur un forum, il faut donc être patient.

Voici un bout de code :

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 zoom61() 
    Dim monDocument1 As Object, monDocument2 As Object
    Dim lesFeuilles1 as Object, lesFeuilles2 as Object
    Dim maFeuille1 As Object, maFeuille2 As Object
    Dim maCellule1 As Object, maCellule2 As Object, maCellule1A As Object, maCellule1B
    Dim maPosition1 As Object, maPosition2 As Object
    Dim nbLigne1 As Integer, nbLigne2 As Integer 
    Dim valCellule1 As String, valCellule2 As String, valCellule3 As String
    Dim Arg(1) As New com.sun.star.beans.PropertyValue
    Dim nomFichier1 As String, nomFichier2 As String 
 
    monDocument1 = ThisComponent
    lesFeuilles1 = monDocument1.Sheets
    maFeuille1 = lesFeuilles1.getByName("Feuille1")
    maPosition1 = maFeuille1.createCursor
    maPosition1.gotoEndOfUsedArea(False)
    nbLigne1 = maPosition1.RangeAddress.EndRow + 1
 
    nomFichier2 =ConvertToURL( "/.../fichier2.ods")
    monDocument2 = StarDesktop.loadComponentFromURL(nomFichier2, "_blank", 0, Arg())
    lesFeuilles2 = monDocument2.Sheets
    maFeuille2 = lesFeuilles2.getByName("Feuille1")
    maPosition2 = maFeuille2.createCursor
    maPosition2.gotoEndOfUsedArea(False)
    nbLigne2 = maPosition2.RangeAddress.EndRow + 1
 
    For i = 2 To nbLigne1
        maCellule1 = maFeuille1.getCellByPosition(6,i)
        valCellule1 = maCellule1.String
        For j = 2 To nbLigne2
            maCellule2 = maFeuille2.getCellByPosition(6,j)
            valCellule2 = maCellule2.String
            If valCellule1 = valCellule2 Then 
                For k = 0 To 11
                    maCellule1A = maFeuille2.getCellByPosition(k,j)
                    valCellule3 = maCellule1A.String 
                    maCellule1B = maFeuille1.getCellByPosition(k+12,i)
                    maCellule1B.String = valCellule3                   
                Next             
            End If
        Next 
    Next     
    MsgBox "Fin", 48
 
End Sub

**IED factory** · 13/12/2016, 09h16

Merci de ce retour et de ce code. Je suis désolé, mais je ne sais pas quoi faire de ce code. Pouvez-vous m'expliquer comment l'appliquer ? Je suis vraiment un novice en la matière !

**zoom61** · 13/12/2016, 09h22

Ce code doit être insérer dans le fichier contenant le plus de ligne, et la ligne 19 doit être modifiée pour avoir le nom et le chemin du second fichier.

**IED factory** · 13/12/2016, 09h25

Merci, mais comment insère ton un code dans un fichier .ods ? (Je sais je suis nul !)

**zoom61** · 13/12/2016, 09h56

Tu as les éléments ici ou ici.

**IED factory** · 13/12/2016, 16h52

Merci je vais essayer de comprendre cela....

**IED factory** · 13/12/2016, 17h51

J'ai compris comment appliquer la macro, la sauvegarder, et l'appliquer. mais cela ne fonctionne pas.

Je me pose une question simple. Comment votre code peut fonctionner alors que les deux fichiers n'ont pas de noms de colonnes identiques, ainsi que leur emplacement ?
Encore merci de votre retour..

**zoom61** · 14/12/2016, 07h56

Envoyé par IED factory

Je me pose une question simple. Comment votre code peut fonctionner alors que les deux fichiers n'ont pas de noms de colonnes identiques, ainsi que leur emplacement ?

N'ayant eu qu'un fichier, je suis parti du principe que les deux étaient identiques. Il faut l'adapter, les lignes qui sélectionnent le EAN sont les lignes 28 et 32.

**IED factory** · 14/12/2016, 08h26

Merci beaucoup de ces précisions, je vais adapter mes fichiers de tests et revenir vers vous.

**IED factory** · 14/12/2016, 08h52

Je vous joins les deux fichiers de tests formatés de la même façon, car je suis incapable d'adapter ce code ! Merci encore pour votre gentillesse, compétence et disponibilité !fichier2015.ods fichier2016.ods

**zoom61** · 14/12/2016, 09h08

Donc le code à mettre dans le fichier de 2015 :

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 zoom61() 
    Dim monDocument1 As Object, monDocument2 As Object
    Dim lesFeuilles1 as Object, lesFeuilles2 as Object
    Dim maFeuille1 As Object, maFeuille2 As Object
    Dim maCellule1 As Object, maCellule2 As Object, maCellule1A As Object, maCellule1B
    Dim maPosition1 As Object, maPosition2 As Object
    Dim nbLigne1 As Integer, nbLigne2 As Integer 
    Dim valCellule1 As String, valCellule2 As String, valCellule3 As String
    Dim Arg(1) As New com.sun.star.beans.PropertyValue
    Dim nomFichier1 As String, nomFichier2 As String 
 
    monDocument1 = ThisComponent
    lesFeuilles1 = monDocument1.Sheets
    maFeuille1 = lesFeuilles1.getByName("Feuille1")
    maPosition1 = maFeuille1.createCursor
    maPosition1.gotoEndOfUsedArea(False)
    nbLigne1 = maPosition1.RangeAddress.EndRow + 1
 
    nomFichier2 =ConvertToURL("/home/vincent/Téléchargements/fichier2016.ods")
    monDocument2 = StarDesktop.loadComponentFromURL(nomFichier2, "_blank", 0, Arg())
    lesFeuilles2 = monDocument2.Sheets
    maFeuille2 = lesFeuilles2.getByName("Feuille1")
    maPosition2 = maFeuille2.createCursor
    maPosition2.gotoEndOfUsedArea(False)
    nbLigne2 = maPosition2.RangeAddress.EndRow + 1
 
    For i = 1 To nbLigne1
        maCellule1 = maFeuille1.getCellByPosition(0,i)
        valCellule1 = maCellule1.String
        For j = 1 To nbLigne2
            maCellule2 = maFeuille2.getCellByPosition(0,j)
            valCellule2 = maCellule2.String
            If valCellule1 = valCellule2 Then 
                For k = 0 To 8
                    maCellule1A = maFeuille2.getCellByPosition(k,j)
                    valCellule3 = maCellule1A.String 
                    maCellule1B = maFeuille1.getCellByPosition(k+9,i)
                    maCellule1B.String = valCellule3                   
                Next             
            End If
        Next 
    Next     
    MsgBox "Fin", 48
 
End Sub

**IED factory** · 14/12/2016, 15h16

Alors super ! Avec LO dernière version sur PC Windows 10, cela fonctionne ! Un grand merci !
Trois questions encore :
Y-a-t-il une limitation de donnée, car dans mes deux fichiers il va y avoir d'un coté plus de 41 000 et de l'autre plus de 29 000 ?
Lors de votre premier test, vous avez mis la macro dans le fichier le plus fourni et donc 2016. Dans la dernière, vous me dite de partir de 2015, alors qu'il était volontairement égale en terme de ligne. Que dois-je faire ?
Pouvez-vous m'expliquer comment adapter le code au nombre de lignes, si besoin ?
Merci encore !

**zoom61** · 14/12/2016, 15h26

Envoyé par IED factory

Y-a-t-il une limitation de donnée, car dans mes deux fichiers il va y avoir d'un coté plus de 41 000 et de l'autre plus de 29 000 ?

Il y a une limitation du nombre de lignes qui de 1 048 576, donc cela devrait aller, ensuite plus il y aura de lignes et plus la macro sera longue, mais vu les quantités de deux fichiers cela devrait être rapide.

Envoyé par IED factory

Lors de votre premier test, vous avez mis la macro dans le fichier le plus fourni et donc 2016. Dans la dernière, vous me dite de partir de 2015, alors qu'il était volontairement égale en terme de ligne. Que dois-je faire ?

Il suffit de mettre la requête dans le fichier où l'on veut récupérer les données et modifier la ligne 19 pour y mettre le chemin et le nom du fichier où l'on va chercher les données.

Envoyé par IED factory

Pouvez-vous m'expliquer comment adapter le code au nombre de lignes, si besoin ?

La macro va elle même chercher la dernière ligne du fichier.

**IED factory** · 14/12/2016, 15h39

Comment vous remercier ?!!!! Je ne sais que vous dire ! Merci de donner un peu de votre savoir à des gens ignorant ! Amateur de jazz, il y a un titre d'Aderley qui s'appelle Mercy, Mercy, Mercy !

Je vais de ce pas mettre mon fichier entier et tester tout cela ! je reviens vers vous pour conclure je l'espère...

**IED factory** · 14/12/2016, 15h51

On y est presque. J'ai ce message d'erreur à la fin du traitement : "Valeur ou type de données incorrect(e). Débordement" et l'éditeur de macro s'ouvre avec une flèche rouge montrant la ligne nbLigne1 = maPosition1.RangeAddress.EndRow + 1
Voir capture : Nom : Capture d’écran 2016-12-14 à 16.26.15.jpg
Affichages : 766
Taille : 267,3 Ko

Nom : Capture d’écran 2016-12-14 à 16.26.15.jpg
Affichages : 766
Taille : 267,3 Ko

Aligner des lignes dont les cellules sont identiques

OpenOffice & LibreOffice

Discussions similaires

Partager

Partager