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
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
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
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" wrote in message
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
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" <batieres@discussions.microsoft.com> wrote in message
news:F96A0D3F-0878-4796-BF28-7BA754223DC9@microsoft.com...
> 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
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" wrote in message
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
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" wrote in message
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
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" <batieres@discussions.microsoft.com> wrote in message
news:F96A0D3F-0878-4796-BF28-7BA754223DC9@microsoft.com...
> 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
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" wrote in message
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
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" wrote in message
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" wrote in message
>> 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
>>
>>
>>
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" <batieres@discussions.microsoft.com> wrote in message
news:D4C3ADE7-7865-4321-9357-FBE4AB1B435B@microsoft.com...
> 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" <batieres@discussions.microsoft.com> wrote in message
>> news:F96A0D3F-0878-4796-BF28-7BA754223DC9@microsoft.com...
>> > 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
>>
>>
>>
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" wrote in message
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" wrote in message
>> 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
>>
>>
>>
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" wrote in message
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" wrote in message
>> 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
>>
>>
>>
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" <batieres@discussions.microsoft.com> wrote in message
news:D4C3ADE7-7865-4321-9357-FBE4AB1B435B@microsoft.com...
> 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" <batieres@discussions.microsoft.com> wrote in message
>> news:F96A0D3F-0878-4796-BF28-7BA754223DC9@microsoft.com...
>> > 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
>>
>>
>>
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" wrote in message
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" wrote in message
>> 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
>>
>>
>>
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" wrote in message
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" wrote in message
>> 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" wrote in message
>> >> 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
>> >>
>> >>
>> >>
>>
>>
>>
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" <batieres@discussions.microsoft.com> wrote in message
news:42186810-FF61-4721-B0C8-AA327D45EEEB@microsoft.com...
> 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" <batieres@discussions.microsoft.com> wrote in message
>> news:D4C3ADE7-7865-4321-9357-FBE4AB1B435B@microsoft.com...
>> > 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" <batieres@discussions.microsoft.com> wrote in message
>> >> news:F96A0D3F-0878-4796-BF28-7BA754223DC9@microsoft.com...
>> >> > 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
>> >>
>> >>
>> >>
>>
>>
>>
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" wrote in message
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" wrote in message
>> 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" wrote in message
>> >> 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
>> >>
>> >>
>> >>
>>
>>
>>
