Comparaison de deux feuilles

Le
batieres
Bonjour à tous et à toutes,

Mon probleme est le suivant :

J'ai un premier fichier "x" avec une seule feuille dedans en colonne "a"
j'ai des codes barres, en "b" des prix d'achats, en "c" des quantites, le
deuxieme fichier "y" a la meme conception.

Mon but etant de connaitre les differences dans les deux fichiers suivant
cet ordre :

1) savoir si les eans du premier fichier sont presents dans le second.
2)Si c'est le cas allez voir les quantites et les prix d'achats pour savoir
si ils sont conformes
Tout cela en macro de preference!!

J'espere avoir été assez clair!!

Merci d'avance
Avoir raison c''''est avoir le tort des autres
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Christophe Mathon
Le #16434451
Bonjour (qui que tu sois....),

les eans, ce sont les code barres?
Est ce que tu peut avoir des doublons?
Combien de ligne dans chaque fichier (10,100,200, plus)?

--
Regards
Christophe Mathon
while(!(succeed=try()));

"batieres" news:
Bonjour à tous et à toutes,

Mon probleme est le suivant :

J'ai un premier fichier "x" avec une seule feuille dedans en colonne "a"
j'ai des codes barres, en "b" des prix d'achats, en "c" des quantites, le
deuxieme fichier "y" a la meme conception.

Mon but etant de connaitre les differences dans les deux fichiers suivant
cet ordre :

1) savoir si les eans du premier fichier sont presents dans le second.
2)Si c'est le cas allez voir les quantites et les prix d'achats pour
savoir
si ils sont conformes
Tout cela en macro de preference!!

J'espere avoir été assez clair!!

Merci d'avance
Avoir raison c''''est avoir le tort des autres


batieres
Le #16434561
Bonjour,

Ce sont bien des codes barres et oui effectivement le but est de savoir si
il y a des codes barres en plus d'un coté ou de l'autre et si les codes
barres communs ont des quantités et des PA différents.
--
Avoir raison c''''est avoir le tort des autres


"Christophe Mathon" a écrit :

Bonjour (qui que tu sois....),

les eans, ce sont les code barres?
Est ce que tu peut avoir des doublons?
Combien de ligne dans chaque fichier (10,100,200, plus)?

--
Regards
Christophe Mathon
while(!(succeed=try()));

"batieres" news:
> Bonjour à tous et à toutes,
>
> Mon probleme est le suivant :
>
> J'ai un premier fichier "x" avec une seule feuille dedans en colonne "a"
> j'ai des codes barres, en "b" des prix d'achats, en "c" des quantites, le
> deuxieme fichier "y" a la meme conception.
>
> Mon but etant de connaitre les differences dans les deux fichiers suivant
> cet ordre :
>
> 1) savoir si les eans du premier fichier sont presents dans le second.
> 2)Si c'est le cas allez voir les quantites et les prix d'achats pour
> savoir
> si ils sont conformes
> Tout cela en macro de preference!!
>
> J'espere avoir été assez clair!!
>
> Merci d'avance
> Avoir raison c''''est avoir le tort des autres





Christophe Mathon
Le #16435921
Bonjour Marcel,

La suite de macro suivante devrai arriver à faire tous ce que tu veut.
Remplace bien YFile, XFile, DestFile et PathToFile par les valeurs de tes
fichiers (Cree DestFile !!).

Apres execute CompareBothSheet.
<><><><><><><><><><><><><><>
<><><><><><><><><><><><><><>
Const YFile = "Y.xls"
Const XFile = "X.xls"
Const DestFile = "Z.xls"
Const PathToFile = "C:Documents and SettingsAdministratorDesktop"

Sub OpenOtherFile(Path, FileName)
On Error GoTo OpenFile
Windows(FileName).Activate
Exit Sub

OpenFile:
Workbooks.Open FileName:=Path & FileName
Windows(FileName).Activate
End Sub

Function getRowNumberForCodeBarre(CodeBarreToSearch)
getRowNumberForCodeBarre = 0
PositionLastValue = Range("A65536").End(xlUp).Row

For i = 1 To PositionLastValue
If Cells(i, 1).Value2 = CodeBarreToSearch Then
getRowNumberForCodeBarre = i
Exit For
End If
Next

End Function

Sub CompareInfoNotInBothList(FileOne, FileTwo)
Windows(FileOne).Activate
PositionLastValue = Range("A65536").End(xlUp).Row

For i = 1 To PositionLastValue
Windows(FileOne).Activate
valueX = Cells(i, 1)
Windows(FileTwo).Activate
PositionInOtherFile = getRowNumberForCodeBarre(valueX)
If (PositionInOtherFile = 0) Then
Windows(DestFile).Activate
PositionLastValueInZ = Range("A65536").End(xlUp).Row + 1
Cells(PositionLastValueInZ, 1).Value2 = valueX
End If
Next
End Sub
Sub CompareInfoInBothList()
Windows(XFile).Activate

PositionLastValue = Range("A65536").End(xlUp).Row

For i = 1 To PositionLastValue
Windows(XFile).Activate
valueX = Cells(i, 1).Value2

Windows(YFile).Activate
PositionInOtherFile = getRowNumberForCodeBarre(valueX)
If (PositionInOtherFile <> 0) Then
ValuePrixY = Cells(PositionInOtherFile, 2)
ValueQuantiteY = Cells(PositionInOtherFile, 3)
Windows(XFile).Activate
ValuePrixX = Cells(i, 2)
ValueQuantiteX = Cells(i, 3)
If ((ValuePrixY <> ValuePrixX) Or (ValueQuantiteY <>
ValueQuantiteX)) Then
Windows(DestFile).Activate
PositionLastValueInZ = Range("A65536").End(xlUp).Row + 1
Cells(PositionLastValueInZ, 1).Value2 = valueX
Cells(PositionLastValueInZ, 2).Value2 = ValuePrixY
Cells(PositionLastValueInZ, 3).Value2 = ValueQuantiteY
Cells(PositionLastValueInZ, 4).Value2 = ValuePrixX
Cells(PositionLastValueInZ, 5).Value2 = ValueQuantiteX
End If
End If
Next
End Sub

Sub CompareBothSheet()
'
' 9/07/2008 by Christophe Mathon
'
OpenOtherFile PathToFile, YFile
OpenOtherFile PathToFile, DestFile

Windows(DestFile).Activate
Cells.Select
Selection.ClearContents
Cells(1, 1).Value2 = "Code barre"
Cells(1, 2).Value2 = "Prix dans " & YFile
Cells(1, 3).Value2 = "Quantite dans " & YFile
Cells(1, 4).Value2 = "Prix dans " & XFile
Cells(1, 5).Value2 = "Quantite dans " & XFile

CompareInfoInBothList

Windows(DestFile).Activate
LastRow = Range("A65536").End(xlUp).Row + 2
Cells(LastRow, 1).Value2 = "value who are in " & YFile & " but not in "
& XFile
CompareInfoNotInBothList YFile, XFile

Windows(DestFile).Activate
LastRow = Range("A65536").End(xlUp).Row + 2
Cells(LastRow, 1).Value2 = "value who are in " & XFile & " but not in "
& YFile
CompareInfoNotInBothList XFile, YFile

End Sub
<><><><><><><><><><><><><><>
<><><><><><><><><><><><><><>


--
Regards
Christophe Mathon
while(!(succeed=try()));

"batieres" news:
Bonjour,

Ce sont bien des codes barres et oui effectivement le but est de savoir si
il y a des codes barres en plus d'un coté ou de l'autre et si les codes
barres communs ont des quantités et des PA différents.
--
Avoir raison c''''est avoir le tort des autres


"Christophe Mathon" a écrit :

Bonjour (qui que tu sois....),

les eans, ce sont les code barres?
Est ce que tu peut avoir des doublons?
Combien de ligne dans chaque fichier (10,100,200, plus)?

--
Regards
Christophe Mathon
while(!(succeed=try()));

"batieres" news:
> Bonjour à tous et à toutes,
>
> Mon probleme est le suivant :
>
> J'ai un premier fichier "x" avec une seule feuille dedans en colonne
> "a"
> j'ai des codes barres, en "b" des prix d'achats, en "c" des quantites,
> le
> deuxieme fichier "y" a la meme conception.
>
> Mon but etant de connaitre les differences dans les deux fichiers
> suivant
> cet ordre :
>
> 1) savoir si les eans du premier fichier sont presents dans le second.
> 2)Si c'est le cas allez voir les quantites et les prix d'achats pour
> savoir
> si ils sont conformes
> Tout cela en macro de preference!!
>
> J'espere avoir été assez clair!!
>
> Merci d'avance
> Avoir raison c''''est avoir le tort des autres







batieres
Le #16438371
Bonjour,

Je dis respect pour les gens qui savent. La macro est parfaite. Je iens à
te remercier pour ton engagement et ta comprehension à cerner le sujet.
Juste un petit detail, la macro n'arrive pas a ouvrir le fichier nommé sous
"XFile" qui est un fichier se nommant "inter".
Je te mets dessous la ligne incrimée.
Sub CompareInfoInBothList()
Windows(XFile).Activate >ligne incriminée(message : erreur 9 l'indice
n'apparait pas à la selection"

PositionLastValue = Range("A65536").End(xlUp).Row

Mais si je l'ouvre avant, la macro est d'une perfection innegalée.
Merci beaucoup encore car la c'est de l'art.
Au fait moi c'est gilles!!!!
--
Avoir raison c''''est avoir le tort des autres


"Christophe Mathon" a écrit :

Bonjour Marcel,

La suite de macro suivante devrai arriver à faire tous ce que tu veut.
Remplace bien YFile, XFile, DestFile et PathToFile par les valeurs de tes
fichiers (Cree DestFile !!).

Apres execute CompareBothSheet.
<><><><><><><><><><><><><><>
<><><><><><><><><><><><><><>
Const YFile = "Y.xls"
Const XFile = "X.xls"
Const DestFile = "Z.xls"
Const PathToFile = "C:Documents and SettingsAdministratorDesktop"

Sub OpenOtherFile(Path, FileName)
On Error GoTo OpenFile
Windows(FileName).Activate
Exit Sub

OpenFile:
Workbooks.Open FileName:=Path & FileName
Windows(FileName).Activate
End Sub

Function getRowNumberForCodeBarre(CodeBarreToSearch)
getRowNumberForCodeBarre = 0
PositionLastValue = Range("A65536").End(xlUp).Row

For i = 1 To PositionLastValue
If Cells(i, 1).Value2 = CodeBarreToSearch Then
getRowNumberForCodeBarre = i
Exit For
End If
Next

End Function

Sub CompareInfoNotInBothList(FileOne, FileTwo)
Windows(FileOne).Activate
PositionLastValue = Range("A65536").End(xlUp).Row

For i = 1 To PositionLastValue
Windows(FileOne).Activate
valueX = Cells(i, 1)
Windows(FileTwo).Activate
PositionInOtherFile = getRowNumberForCodeBarre(valueX)
If (PositionInOtherFile = 0) Then
Windows(DestFile).Activate
PositionLastValueInZ = Range("A65536").End(xlUp).Row + 1
Cells(PositionLastValueInZ, 1).Value2 = valueX
End If
Next
End Sub
Sub CompareInfoInBothList()
Windows(XFile).Activate

PositionLastValue = Range("A65536").End(xlUp).Row

For i = 1 To PositionLastValue
Windows(XFile).Activate
valueX = Cells(i, 1).Value2

Windows(YFile).Activate
PositionInOtherFile = getRowNumberForCodeBarre(valueX)
If (PositionInOtherFile <> 0) Then
ValuePrixY = Cells(PositionInOtherFile, 2)
ValueQuantiteY = Cells(PositionInOtherFile, 3)
Windows(XFile).Activate
ValuePrixX = Cells(i, 2)
ValueQuantiteX = Cells(i, 3)
If ((ValuePrixY <> ValuePrixX) Or (ValueQuantiteY <>
ValueQuantiteX)) Then
Windows(DestFile).Activate
PositionLastValueInZ = Range("A65536").End(xlUp).Row + 1
Cells(PositionLastValueInZ, 1).Value2 = valueX
Cells(PositionLastValueInZ, 2).Value2 = ValuePrixY
Cells(PositionLastValueInZ, 3).Value2 = ValueQuantiteY
Cells(PositionLastValueInZ, 4).Value2 = ValuePrixX
Cells(PositionLastValueInZ, 5).Value2 = ValueQuantiteX
End If
End If
Next
End Sub

Sub CompareBothSheet()
'
' 9/07/2008 by Christophe Mathon
'
OpenOtherFile PathToFile, YFile
OpenOtherFile PathToFile, DestFile

Windows(DestFile).Activate
Cells.Select
Selection.ClearContents
Cells(1, 1).Value2 = "Code barre"
Cells(1, 2).Value2 = "Prix dans " & YFile
Cells(1, 3).Value2 = "Quantite dans " & YFile
Cells(1, 4).Value2 = "Prix dans " & XFile
Cells(1, 5).Value2 = "Quantite dans " & XFile

CompareInfoInBothList

Windows(DestFile).Activate
LastRow = Range("A65536").End(xlUp).Row + 2
Cells(LastRow, 1).Value2 = "value who are in " & YFile & " but not in "
& XFile
CompareInfoNotInBothList YFile, XFile

Windows(DestFile).Activate
LastRow = Range("A65536").End(xlUp).Row + 2
Cells(LastRow, 1).Value2 = "value who are in " & XFile & " but not in "
& YFile
CompareInfoNotInBothList XFile, YFile

End Sub
<><><><><><><><><><><><><><>
<><><><><><><><><><><><><><>


--
Regards
Christophe Mathon
while(!(succeed=try()));

"batieres" news:
> Bonjour,
>
> Ce sont bien des codes barres et oui effectivement le but est de savoir si
> il y a des codes barres en plus d'un coté ou de l'autre et si les codes
> barres communs ont des quantités et des PA différents.
> --
> Avoir raison c''''est avoir le tort des autres
>
>
> "Christophe Mathon" a écrit :
>
>> Bonjour (qui que tu sois....),
>>
>> les eans, ce sont les code barres?
>> Est ce que tu peut avoir des doublons?
>> Combien de ligne dans chaque fichier (10,100,200, plus)?
>>
>> --
>> Regards
>> Christophe Mathon
>> while(!(succeed=try()));
>>
>> "batieres" >> news:
>> > Bonjour à tous et à toutes,
>> >
>> > Mon probleme est le suivant :
>> >
>> > J'ai un premier fichier "x" avec une seule feuille dedans en colonne
>> > "a"
>> > j'ai des codes barres, en "b" des prix d'achats, en "c" des quantites,
>> > le
>> > deuxieme fichier "y" a la meme conception.
>> >
>> > Mon but etant de connaitre les differences dans les deux fichiers
>> > suivant
>> > cet ordre :
>> >
>> > 1) savoir si les eans du premier fichier sont presents dans le second.
>> > 2)Si c'est le cas allez voir les quantites et les prix d'achats pour
>> > savoir
>> > si ils sont conformes
>> > Tout cela en macro de preference!!
>> >
>> > J'espere avoir été assez clair!!
>> >
>> > Merci d'avance
>> > Avoir raison c''''est avoir le tort des autres
>>
>>
>>





Christophe Mathon
Le #16439611
Bonjour Gilles,



J'ai crée la macro pour qu'elle soit dans le fichier XFile.

Si elle n'y est pas, rajoute la ligne suivante dans CompareBothSheet:

OpenOtherFile PathToFile, XFile



Ce qui donne:



Sub CompareBothSheet()
'
' 9/07/2008 by Christophe Mathon
'
OpenOtherFile PathToFile, YFile
OpenOtherFile PathToFile, DestFile

OpenOtherFile PathToFile, XFile

.......


--
Regards
Christophe Mathon
while(!(succeed=try()));

"batieres" news:
Bonjour,

Je dis respect pour les gens qui savent. La macro est parfaite. Je iens à
te remercier pour ton engagement et ta comprehension à cerner le sujet.
Juste un petit detail, la macro n'arrive pas a ouvrir le fichier nommé
sous
"XFile" qui est un fichier se nommant "inter".
Je te mets dessous la ligne incrimée.
Sub CompareInfoInBothList()
Windows(XFile).Activate >ligne incriminée(message : erreur 9 l'indice
n'apparait pas à la selection"

PositionLastValue = Range("A65536").End(xlUp).Row

Mais si je l'ouvre avant, la macro est d'une perfection innegalée.
Merci beaucoup encore car la c'est de l'art.
Au fait moi c'est gilles!!!!
--
Avoir raison c''''est avoir le tort des autres


"Christophe Mathon" a écrit :

Bonjour Marcel,

La suite de macro suivante devrai arriver à faire tous ce que tu veut.
Remplace bien YFile, XFile, DestFile et PathToFile par les valeurs de tes
fichiers (Cree DestFile !!).

Apres execute CompareBothSheet.
<><><><><><><><><><><><><><>
<><><><><><><><><><><><><><>
Const YFile = "Y.xls"
Const XFile = "X.xls"
Const DestFile = "Z.xls"
Const PathToFile = "C:Documents and SettingsAdministratorDesktop"

Sub OpenOtherFile(Path, FileName)
On Error GoTo OpenFile
Windows(FileName).Activate
Exit Sub

OpenFile:
Workbooks.Open FileName:=Path & FileName
Windows(FileName).Activate
End Sub

Function getRowNumberForCodeBarre(CodeBarreToSearch)
getRowNumberForCodeBarre = 0
PositionLastValue = Range("A65536").End(xlUp).Row

For i = 1 To PositionLastValue
If Cells(i, 1).Value2 = CodeBarreToSearch Then
getRowNumberForCodeBarre = i
Exit For
End If
Next

End Function

Sub CompareInfoNotInBothList(FileOne, FileTwo)
Windows(FileOne).Activate
PositionLastValue = Range("A65536").End(xlUp).Row

For i = 1 To PositionLastValue
Windows(FileOne).Activate
valueX = Cells(i, 1)
Windows(FileTwo).Activate
PositionInOtherFile = getRowNumberForCodeBarre(valueX)
If (PositionInOtherFile = 0) Then
Windows(DestFile).Activate
PositionLastValueInZ = Range("A65536").End(xlUp).Row + 1
Cells(PositionLastValueInZ, 1).Value2 = valueX
End If
Next
End Sub
Sub CompareInfoInBothList()
Windows(XFile).Activate

PositionLastValue = Range("A65536").End(xlUp).Row

For i = 1 To PositionLastValue
Windows(XFile).Activate
valueX = Cells(i, 1).Value2

Windows(YFile).Activate
PositionInOtherFile = getRowNumberForCodeBarre(valueX)
If (PositionInOtherFile <> 0) Then
ValuePrixY = Cells(PositionInOtherFile, 2)
ValueQuantiteY = Cells(PositionInOtherFile, 3)
Windows(XFile).Activate
ValuePrixX = Cells(i, 2)
ValueQuantiteX = Cells(i, 3)
If ((ValuePrixY <> ValuePrixX) Or (ValueQuantiteY <>
ValueQuantiteX)) Then
Windows(DestFile).Activate
PositionLastValueInZ = Range("A65536").End(xlUp).Row + 1
Cells(PositionLastValueInZ, 1).Value2 = valueX
Cells(PositionLastValueInZ, 2).Value2 = ValuePrixY
Cells(PositionLastValueInZ, 3).Value2 = ValueQuantiteY
Cells(PositionLastValueInZ, 4).Value2 = ValuePrixX
Cells(PositionLastValueInZ, 5).Value2 = ValueQuantiteX
End If
End If
Next
End Sub

Sub CompareBothSheet()
'
' 9/07/2008 by Christophe Mathon
'
OpenOtherFile PathToFile, YFile
OpenOtherFile PathToFile, DestFile

Windows(DestFile).Activate
Cells.Select
Selection.ClearContents
Cells(1, 1).Value2 = "Code barre"
Cells(1, 2).Value2 = "Prix dans " & YFile
Cells(1, 3).Value2 = "Quantite dans " & YFile
Cells(1, 4).Value2 = "Prix dans " & XFile
Cells(1, 5).Value2 = "Quantite dans " & XFile

CompareInfoInBothList

Windows(DestFile).Activate
LastRow = Range("A65536").End(xlUp).Row + 2
Cells(LastRow, 1).Value2 = "value who are in " & YFile & " but not in
"
& XFile
CompareInfoNotInBothList YFile, XFile

Windows(DestFile).Activate
LastRow = Range("A65536").End(xlUp).Row + 2
Cells(LastRow, 1).Value2 = "value who are in " & XFile & " but not in
"
& YFile
CompareInfoNotInBothList XFile, YFile

End Sub
<><><><><><><><><><><><><><>
<><><><><><><><><><><><><><>


--
Regards
Christophe Mathon
while(!(succeed=try()));

"batieres" news:
> Bonjour,
>
> Ce sont bien des codes barres et oui effectivement le but est de savoir
> si
> il y a des codes barres en plus d'un coté ou de l'autre et si les codes
> barres communs ont des quantités et des PA différents.
> --
> Avoir raison c''''est avoir le tort des autres
>
>
> "Christophe Mathon" a écrit :
>
>> Bonjour (qui que tu sois....),
>>
>> les eans, ce sont les code barres?
>> Est ce que tu peut avoir des doublons?
>> Combien de ligne dans chaque fichier (10,100,200, plus)?
>>
>> --
>> Regards
>> Christophe Mathon
>> while(!(succeed=try()));
>>
>> "batieres" >> news:
>> > Bonjour à tous et à toutes,
>> >
>> > Mon probleme est le suivant :
>> >
>> > J'ai un premier fichier "x" avec une seule feuille dedans en colonne
>> > "a"
>> > j'ai des codes barres, en "b" des prix d'achats, en "c" des
>> > quantites,
>> > le
>> > deuxieme fichier "y" a la meme conception.
>> >
>> > Mon but etant de connaitre les differences dans les deux fichiers
>> > suivant
>> > cet ordre :
>> >
>> > 1) savoir si les eans du premier fichier sont presents dans le
>> > second.
>> > 2)Si c'est le cas allez voir les quantites et les prix d'achats pour
>> > savoir
>> > si ils sont conformes
>> > Tout cela en macro de preference!!
>> >
>> > J'espere avoir été assez clair!!
>> >
>> > Merci d'avance
>> > Avoir raison c''''est avoir le tort des autres
>>
>>
>>







batieres
Le #16445241
Salut,

Nous sommes arrivés au bout de la consécration. Ton travail a été formidable.

Merci encore et peut etre à bientot.

Gilles
--
Avoir raison c'est avoir le tort des autres


"Christophe Mathon" a écrit :

Bonjour Gilles,



J'ai crée la macro pour qu'elle soit dans le fichier XFile.

Si elle n'y est pas, rajoute la ligne suivante dans CompareBothSheet:

OpenOtherFile PathToFile, XFile



Ce qui donne:



Sub CompareBothSheet()
'
' 9/07/2008 by Christophe Mathon
'
OpenOtherFile PathToFile, YFile
OpenOtherFile PathToFile, DestFile

OpenOtherFile PathToFile, XFile

........


--
Regards
Christophe Mathon
while(!(succeed=try()));

"batieres" news:
> Bonjour,
>
> Je dis respect pour les gens qui savent. La macro est parfaite. Je iens à
> te remercier pour ton engagement et ta comprehension à cerner le sujet.
> Juste un petit detail, la macro n'arrive pas a ouvrir le fichier nommé
> sous
> "XFile" qui est un fichier se nommant "inter".
> Je te mets dessous la ligne incrimée.
> Sub CompareInfoInBothList()
> Windows(XFile).Activate >ligne incriminée(message : erreur 9 l'indice
> n'apparait pas à la selection"
>
> PositionLastValue = Range("A65536").End(xlUp).Row
>
> Mais si je l'ouvre avant, la macro est d'une perfection innegalée.
> Merci beaucoup encore car la c'est de l'art.
> Au fait moi c'est gilles!!!!
> --
> Avoir raison c''''est avoir le tort des autres
>
>
> "Christophe Mathon" a écrit :
>
>> Bonjour Marcel,
>>
>> La suite de macro suivante devrai arriver à faire tous ce que tu veut.
>> Remplace bien YFile, XFile, DestFile et PathToFile par les valeurs de tes
>> fichiers (Cree DestFile !!).
>>
>> Apres execute CompareBothSheet.
>> <><><><><><><><><><><><><><>
>> <><><><><><><><><><><><><><>
>> Const YFile = "Y.xls"
>> Const XFile = "X.xls"
>> Const DestFile = "Z.xls"
>> Const PathToFile = "C:Documents and SettingsAdministratorDesktop"
>>
>> Sub OpenOtherFile(Path, FileName)
>> On Error GoTo OpenFile
>> Windows(FileName).Activate
>> Exit Sub
>>
>> OpenFile:
>> Workbooks.Open FileName:=Path & FileName
>> Windows(FileName).Activate
>> End Sub
>>
>> Function getRowNumberForCodeBarre(CodeBarreToSearch)
>> getRowNumberForCodeBarre = 0
>> PositionLastValue = Range("A65536").End(xlUp).Row
>>
>> For i = 1 To PositionLastValue
>> If Cells(i, 1).Value2 = CodeBarreToSearch Then
>> getRowNumberForCodeBarre = i
>> Exit For
>> End If
>> Next
>>
>> End Function
>>
>> Sub CompareInfoNotInBothList(FileOne, FileTwo)
>> Windows(FileOne).Activate
>> PositionLastValue = Range("A65536").End(xlUp).Row
>>
>> For i = 1 To PositionLastValue
>> Windows(FileOne).Activate
>> valueX = Cells(i, 1)
>> Windows(FileTwo).Activate
>> PositionInOtherFile = getRowNumberForCodeBarre(valueX)
>> If (PositionInOtherFile = 0) Then
>> Windows(DestFile).Activate
>> PositionLastValueInZ = Range("A65536").End(xlUp).Row + 1
>> Cells(PositionLastValueInZ, 1).Value2 = valueX
>> End If
>> Next
>> End Sub
>> Sub CompareInfoInBothList()
>> Windows(XFile).Activate
>>
>> PositionLastValue = Range("A65536").End(xlUp).Row
>>
>> For i = 1 To PositionLastValue
>> Windows(XFile).Activate
>> valueX = Cells(i, 1).Value2
>>
>> Windows(YFile).Activate
>> PositionInOtherFile = getRowNumberForCodeBarre(valueX)
>> If (PositionInOtherFile <> 0) Then
>> ValuePrixY = Cells(PositionInOtherFile, 2)
>> ValueQuantiteY = Cells(PositionInOtherFile, 3)
>> Windows(XFile).Activate
>> ValuePrixX = Cells(i, 2)
>> ValueQuantiteX = Cells(i, 3)
>> If ((ValuePrixY <> ValuePrixX) Or (ValueQuantiteY <>
>> ValueQuantiteX)) Then
>> Windows(DestFile).Activate
>> PositionLastValueInZ = Range("A65536").End(xlUp).Row + 1
>> Cells(PositionLastValueInZ, 1).Value2 = valueX
>> Cells(PositionLastValueInZ, 2).Value2 = ValuePrixY
>> Cells(PositionLastValueInZ, 3).Value2 = ValueQuantiteY
>> Cells(PositionLastValueInZ, 4).Value2 = ValuePrixX
>> Cells(PositionLastValueInZ, 5).Value2 = ValueQuantiteX
>> End If
>> End If
>> Next
>> End Sub
>>
>> Sub CompareBothSheet()
>> '
>> ' 9/07/2008 by Christophe Mathon
>> '
>> OpenOtherFile PathToFile, YFile
>> OpenOtherFile PathToFile, DestFile
>>
>> Windows(DestFile).Activate
>> Cells.Select
>> Selection.ClearContents
>> Cells(1, 1).Value2 = "Code barre"
>> Cells(1, 2).Value2 = "Prix dans " & YFile
>> Cells(1, 3).Value2 = "Quantite dans " & YFile
>> Cells(1, 4).Value2 = "Prix dans " & XFile
>> Cells(1, 5).Value2 = "Quantite dans " & XFile
>>
>> CompareInfoInBothList
>>
>> Windows(DestFile).Activate
>> LastRow = Range("A65536").End(xlUp).Row + 2
>> Cells(LastRow, 1).Value2 = "value who are in " & YFile & " but not in
>> "
>> & XFile
>> CompareInfoNotInBothList YFile, XFile
>>
>> Windows(DestFile).Activate
>> LastRow = Range("A65536").End(xlUp).Row + 2
>> Cells(LastRow, 1).Value2 = "value who are in " & XFile & " but not in
>> "
>> & YFile
>> CompareInfoNotInBothList XFile, YFile
>>
>> End Sub
>> <><><><><><><><><><><><><><>
>> <><><><><><><><><><><><><><>
>>
>>
>> --
>> Regards
>> Christophe Mathon
>> while(!(succeed=try()));
>>
>> "batieres" >> news:
>> > Bonjour,
>> >
>> > Ce sont bien des codes barres et oui effectivement le but est de savoir
>> > si
>> > il y a des codes barres en plus d'un coté ou de l'autre et si les codes
>> > barres communs ont des quantités et des PA différents.
>> > --
>> > Avoir raison c''''est avoir le tort des autres
>> >
>> >
>> > "Christophe Mathon" a écrit :
>> >
>> >> Bonjour (qui que tu sois....),
>> >>
>> >> les eans, ce sont les code barres?
>> >> Est ce que tu peut avoir des doublons?
>> >> Combien de ligne dans chaque fichier (10,100,200, plus)?
>> >>
>> >> --
>> >> Regards
>> >> Christophe Mathon
>> >> while(!(succeed=try()));
>> >>
>> >> "batieres" >> >> news:
>> >> > Bonjour à tous et à toutes,
>> >> >
>> >> > Mon probleme est le suivant :
>> >> >
>> >> > J'ai un premier fichier "x" avec une seule feuille dedans en colonne
>> >> > "a"
>> >> > j'ai des codes barres, en "b" des prix d'achats, en "c" des
>> >> > quantites,
>> >> > le
>> >> > deuxieme fichier "y" a la meme conception.
>> >> >
>> >> > Mon but etant de connaitre les differences dans les deux fichiers
>> >> > suivant
>> >> > cet ordre :
>> >> >
>> >> > 1) savoir si les eans du premier fichier sont presents dans le
>> >> > second.
>> >> > 2)Si c'est le cas allez voir les quantites et les prix d'achats pour
>> >> > savoir
>> >> > si ils sont conformes
>> >> > Tout cela en macro de preference!!
>> >> >
>> >> > J'espere avoir été assez clair!!
>> >> >
>> >> > Merci d'avance
>> >> > Avoir raison c''''est avoir le tort des autres
>> >>
>> >>
>> >>
>>
>>
>>





Publicité
Poster une réponse
Anonyme