Bonjour le groupe,
Je vous sollicite pour résoudre un problème qui me semble simple, mais je n'y arrive pas.... A l'expérience
!!!
J'ai deux feuilles au format identiques: A et B (même colonnes, mais de longueurs différentes). Elles sont
toutes les deux classées sur la même colonne dans un ordre croissant.
Je voudrai obtenir dans une autre feuille C, les enregistrements de la feuille A qui ne se trouve pas dans
la feuille B et vice et versa.
Merci pour votre aide.
Bonjour le groupe,
Je vous sollicite pour résoudre un problème qui me semble simple, mais je n'y arrive pas.... A l'expérience
!!!
J'ai deux feuilles au format identiques: A et B (même colonnes, mais de longueurs différentes). Elles sont
toutes les deux classées sur la même colonne dans un ordre croissant.
Je voudrai obtenir dans une autre feuille C, les enregistrements de la feuille A qui ne se trouve pas dans
la feuille B et vice et versa.
Merci pour votre aide.
Bonjour le groupe,
Je vous sollicite pour résoudre un problème qui me semble simple, mais je n'y arrive pas.... A l'expérience
!!!
J'ai deux feuilles au format identiques: A et B (même colonnes, mais de longueurs différentes). Elles sont
toutes les deux classées sur la même colonne dans un ordre croissant.
Je voudrai obtenir dans une autre feuille C, les enregistrements de la feuille A qui ne se trouve pas dans
la feuille B et vice et versa.
Merci pour votre aide.
Bonjour,
Une solution manuel consiste à mettre dans la 3eme feuille une copie des deux autres l'une à la suite de
l'autre.
De mettre un entête à cette colonne et de faire une extraction dans doublon (Données / Filtrer /filtre
élaboré)
En vba cela pourrait ressembler à ceci
Il est supposé que les infos commencent en ligne 2 pour feuil1 et feuil2
'------------------------
Sub jj()
Dim derlg As Integer, derlgFeuil3 As Integer
Sheets("feuil3").Columns(1).Clear
Sheets("feuil3").[a1] = "Copie sans doublon"
derlg = Sheets("feuil1").Cells(Rows.Count, "A").End(3).Row
Sheets("feuil1").Range("A2:A" & derlg).Copy Sheets("feuil3").[a2]
derlg = Sheets("Feuil2").Cells(Rows.Count, "A").End(3).Row
derlgFeuil3 = Sheets("feuil3").Cells(Rows.Count, "A").End(3).Row + 1
Sheets("feuil2").Range("A2:A" & derlg).Copy Sheets("feuil3").Range("a" & derlgFeuil3)
With Sheets("feuil3")
.Columns("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.Range("B1"), Unique:=True
.Columns(1).Delete
End With
End Sub
'-------------------
Voir ici
http://www.cijoint.fr/cjlink.php?file=cj201010/cijPka4q2W.xls
--
Salutations
JJ
"dyj Orange" a écrit dans le message de news:
4cb97c3f$0$32423$Bonjour le groupe,
Je vous sollicite pour résoudre un problème qui me semble simple, mais je n'y arrive pas.... A l'expérience
!!!
J'ai deux feuilles au format identiques: A et B (même colonnes, mais de longueurs différentes). Elles sont
toutes les deux classées sur la même colonne dans un ordre croissant.
Je voudrai obtenir dans une autre feuille C, les enregistrements de la feuille A qui ne se trouve pas dans
la feuille B et vice et versa.
Merci pour votre aide.
Bonjour,
Une solution manuel consiste à mettre dans la 3eme feuille une copie des deux autres l'une à la suite de
l'autre.
De mettre un entête à cette colonne et de faire une extraction dans doublon (Données / Filtrer /filtre
élaboré)
En vba cela pourrait ressembler à ceci
Il est supposé que les infos commencent en ligne 2 pour feuil1 et feuil2
'------------------------
Sub jj()
Dim derlg As Integer, derlgFeuil3 As Integer
Sheets("feuil3").Columns(1).Clear
Sheets("feuil3").[a1] = "Copie sans doublon"
derlg = Sheets("feuil1").Cells(Rows.Count, "A").End(3).Row
Sheets("feuil1").Range("A2:A" & derlg).Copy Sheets("feuil3").[a2]
derlg = Sheets("Feuil2").Cells(Rows.Count, "A").End(3).Row
derlgFeuil3 = Sheets("feuil3").Cells(Rows.Count, "A").End(3).Row + 1
Sheets("feuil2").Range("A2:A" & derlg).Copy Sheets("feuil3").Range("a" & derlgFeuil3)
With Sheets("feuil3")
.Columns("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.Range("B1"), Unique:=True
.Columns(1).Delete
End With
End Sub
'-------------------
Voir ici
http://www.cijoint.fr/cjlink.php?file=cj201010/cijPka4q2W.xls
--
Salutations
JJ
"dyj Orange" <dyj.orange@wanadoo.fr> a écrit dans le message de news:
4cb97c3f$0$32423$ba4acef3@reader.news.orange.fr...
Bonjour le groupe,
Je vous sollicite pour résoudre un problème qui me semble simple, mais je n'y arrive pas.... A l'expérience
!!!
J'ai deux feuilles au format identiques: A et B (même colonnes, mais de longueurs différentes). Elles sont
toutes les deux classées sur la même colonne dans un ordre croissant.
Je voudrai obtenir dans une autre feuille C, les enregistrements de la feuille A qui ne se trouve pas dans
la feuille B et vice et versa.
Merci pour votre aide.
Bonjour,
Une solution manuel consiste à mettre dans la 3eme feuille une copie des deux autres l'une à la suite de
l'autre.
De mettre un entête à cette colonne et de faire une extraction dans doublon (Données / Filtrer /filtre
élaboré)
En vba cela pourrait ressembler à ceci
Il est supposé que les infos commencent en ligne 2 pour feuil1 et feuil2
'------------------------
Sub jj()
Dim derlg As Integer, derlgFeuil3 As Integer
Sheets("feuil3").Columns(1).Clear
Sheets("feuil3").[a1] = "Copie sans doublon"
derlg = Sheets("feuil1").Cells(Rows.Count, "A").End(3).Row
Sheets("feuil1").Range("A2:A" & derlg).Copy Sheets("feuil3").[a2]
derlg = Sheets("Feuil2").Cells(Rows.Count, "A").End(3).Row
derlgFeuil3 = Sheets("feuil3").Cells(Rows.Count, "A").End(3).Row + 1
Sheets("feuil2").Range("A2:A" & derlg).Copy Sheets("feuil3").Range("a" & derlgFeuil3)
With Sheets("feuil3")
.Columns("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.Range("B1"), Unique:=True
.Columns(1).Delete
End With
End Sub
'-------------------
Voir ici
http://www.cijoint.fr/cjlink.php?file=cj201010/cijPka4q2W.xls
--
Salutations
JJ
"dyj Orange" a écrit dans le message de news:
4cb97c3f$0$32423$Bonjour le groupe,
Je vous sollicite pour résoudre un problème qui me semble simple, mais je n'y arrive pas.... A l'expérience
!!!
J'ai deux feuilles au format identiques: A et B (même colonnes, mais de longueurs différentes). Elles sont
toutes les deux classées sur la même colonne dans un ordre croissant.
Je voudrai obtenir dans une autre feuille C, les enregistrements de la feuille A qui ne se trouve pas dans
la feuille B et vice et versa.
Merci pour votre aide.
Bonjour le groupe,
Je vous sollicite pour résoudre un problème qui me semble simple, mais je
n'y arrive pas.... A l'expérience !!!
J'ai deux feuilles au format identiques: A et B (même colonnes, mais de
longueurs différentes). Elles sont toutes les deux classées sur la même
colonne dans un ordre croissant.
Je voudrai obtenir dans une autre feuille C, les enregistrements de la
feuille A qui ne se trouve pas dans la feuille B et vice et versa.
Merci pour votre aide.
Bonjour le groupe,
Je vous sollicite pour résoudre un problème qui me semble simple, mais je
n'y arrive pas.... A l'expérience !!!
J'ai deux feuilles au format identiques: A et B (même colonnes, mais de
longueurs différentes). Elles sont toutes les deux classées sur la même
colonne dans un ordre croissant.
Je voudrai obtenir dans une autre feuille C, les enregistrements de la
feuille A qui ne se trouve pas dans la feuille B et vice et versa.
Merci pour votre aide.
Bonjour le groupe,
Je vous sollicite pour résoudre un problème qui me semble simple, mais je
n'y arrive pas.... A l'expérience !!!
J'ai deux feuilles au format identiques: A et B (même colonnes, mais de
longueurs différentes). Elles sont toutes les deux classées sur la même
colonne dans un ordre croissant.
Je voudrai obtenir dans une autre feuille C, les enregistrements de la
feuille A qui ne se trouve pas dans la feuille B et vice et versa.
Merci pour votre aide.
Merci de ton aide.
Je pense que je me suis mal exprimé avec mon terme "vice et versa". Effectivement ton exemple, que je vais
conserver précieusement, donne bien une liste sans doublon, mais je vais essayer d'être plus clair.
Si je pars de Feuil1 vers Feuil2, je voudrai que dans Feuil3 il n'y ait que nom2 et nom3, car effectivement,
ils sont bien dans Feuil1 mais absent de Feuil2.
Si je pars de Feuil2 vers Feuil1, je voudrai que dans Feuil3 il n'y ait que nom12 et nom33, car
effectivement, ils sont bien dans Feuil2 mais absent de Feuil1.
Est ce faisable à partir de ton code VBA. Merci.
"Jacky" a écrit dans le message de groupe de discussion : i9c2oq$5hm$
Bonjour,
Une solution manuel consiste à mettre dans la 3eme feuille une copie des deux autres l'une à la suite de
l'autre.
De mettre un entête à cette colonne et de faire une extraction dans doublon (Données / Filtrer /filtre
élaboré)
En vba cela pourrait ressembler à ceci
Il est supposé que les infos commencent en ligne 2 pour feuil1 et feuil2
'------------------------
Sub jj()
Dim derlg As Integer, derlgFeuil3 As Integer
Sheets("feuil3").Columns(1).Clear
Sheets("feuil3").[a1] = "Copie sans doublon"
derlg = Sheets("feuil1").Cells(Rows.Count, "A").End(3).Row
Sheets("feuil1").Range("A2:A" & derlg).Copy Sheets("feuil3").[a2]
derlg = Sheets("Feuil2").Cells(Rows.Count, "A").End(3).Row
derlgFeuil3 = Sheets("feuil3").Cells(Rows.Count, "A").End(3).Row + 1
Sheets("feuil2").Range("A2:A" & derlg).Copy Sheets("feuil3").Range("a" & derlgFeuil3)
With Sheets("feuil3")
.Columns("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.Range("B1"), Unique:=True
.Columns(1).Delete
End With
End Sub
'-------------------
Voir ici
http://www.cijoint.fr/cjlink.php?file=cj201010/cijPka4q2W.xls
--
Salutations
JJ
"dyj Orange" a écrit dans le message de news:
4cb97c3f$0$32423$Bonjour le groupe,
Je vous sollicite pour résoudre un problème qui me semble simple, mais je n'y arrive pas.... A l'expérience
!!!
J'ai deux feuilles au format identiques: A et B (même colonnes, mais de longueurs différentes). Elles sont
toutes les deux classées sur la même colonne dans un ordre croissant.
Je voudrai obtenir dans une autre feuille C, les enregistrements de la feuille A qui ne se trouve pas dans
la feuille B et vice et versa.
Merci pour votre aide.
Merci de ton aide.
Je pense que je me suis mal exprimé avec mon terme "vice et versa". Effectivement ton exemple, que je vais
conserver précieusement, donne bien une liste sans doublon, mais je vais essayer d'être plus clair.
Si je pars de Feuil1 vers Feuil2, je voudrai que dans Feuil3 il n'y ait que nom2 et nom3, car effectivement,
ils sont bien dans Feuil1 mais absent de Feuil2.
Si je pars de Feuil2 vers Feuil1, je voudrai que dans Feuil3 il n'y ait que nom12 et nom33, car
effectivement, ils sont bien dans Feuil2 mais absent de Feuil1.
Est ce faisable à partir de ton code VBA. Merci.
"Jacky" a écrit dans le message de groupe de discussion : i9c2oq$5hm$1@speranza.aioe.org...
Bonjour,
Une solution manuel consiste à mettre dans la 3eme feuille une copie des deux autres l'une à la suite de
l'autre.
De mettre un entête à cette colonne et de faire une extraction dans doublon (Données / Filtrer /filtre
élaboré)
En vba cela pourrait ressembler à ceci
Il est supposé que les infos commencent en ligne 2 pour feuil1 et feuil2
'------------------------
Sub jj()
Dim derlg As Integer, derlgFeuil3 As Integer
Sheets("feuil3").Columns(1).Clear
Sheets("feuil3").[a1] = "Copie sans doublon"
derlg = Sheets("feuil1").Cells(Rows.Count, "A").End(3).Row
Sheets("feuil1").Range("A2:A" & derlg).Copy Sheets("feuil3").[a2]
derlg = Sheets("Feuil2").Cells(Rows.Count, "A").End(3).Row
derlgFeuil3 = Sheets("feuil3").Cells(Rows.Count, "A").End(3).Row + 1
Sheets("feuil2").Range("A2:A" & derlg).Copy Sheets("feuil3").Range("a" & derlgFeuil3)
With Sheets("feuil3")
.Columns("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.Range("B1"), Unique:=True
.Columns(1).Delete
End With
End Sub
'-------------------
Voir ici
http://www.cijoint.fr/cjlink.php?file=cj201010/cijPka4q2W.xls
--
Salutations
JJ
"dyj Orange" <dyj.orange@wanadoo.fr> a écrit dans le message de news:
4cb97c3f$0$32423$ba4acef3@reader.news.orange.fr...
Bonjour le groupe,
Je vous sollicite pour résoudre un problème qui me semble simple, mais je n'y arrive pas.... A l'expérience
!!!
J'ai deux feuilles au format identiques: A et B (même colonnes, mais de longueurs différentes). Elles sont
toutes les deux classées sur la même colonne dans un ordre croissant.
Je voudrai obtenir dans une autre feuille C, les enregistrements de la feuille A qui ne se trouve pas dans
la feuille B et vice et versa.
Merci pour votre aide.
Merci de ton aide.
Je pense que je me suis mal exprimé avec mon terme "vice et versa". Effectivement ton exemple, que je vais
conserver précieusement, donne bien une liste sans doublon, mais je vais essayer d'être plus clair.
Si je pars de Feuil1 vers Feuil2, je voudrai que dans Feuil3 il n'y ait que nom2 et nom3, car effectivement,
ils sont bien dans Feuil1 mais absent de Feuil2.
Si je pars de Feuil2 vers Feuil1, je voudrai que dans Feuil3 il n'y ait que nom12 et nom33, car
effectivement, ils sont bien dans Feuil2 mais absent de Feuil1.
Est ce faisable à partir de ton code VBA. Merci.
"Jacky" a écrit dans le message de groupe de discussion : i9c2oq$5hm$
Bonjour,
Une solution manuel consiste à mettre dans la 3eme feuille une copie des deux autres l'une à la suite de
l'autre.
De mettre un entête à cette colonne et de faire une extraction dans doublon (Données / Filtrer /filtre
élaboré)
En vba cela pourrait ressembler à ceci
Il est supposé que les infos commencent en ligne 2 pour feuil1 et feuil2
'------------------------
Sub jj()
Dim derlg As Integer, derlgFeuil3 As Integer
Sheets("feuil3").Columns(1).Clear
Sheets("feuil3").[a1] = "Copie sans doublon"
derlg = Sheets("feuil1").Cells(Rows.Count, "A").End(3).Row
Sheets("feuil1").Range("A2:A" & derlg).Copy Sheets("feuil3").[a2]
derlg = Sheets("Feuil2").Cells(Rows.Count, "A").End(3).Row
derlgFeuil3 = Sheets("feuil3").Cells(Rows.Count, "A").End(3).Row + 1
Sheets("feuil2").Range("A2:A" & derlg).Copy Sheets("feuil3").Range("a" & derlgFeuil3)
With Sheets("feuil3")
.Columns("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.Range("B1"), Unique:=True
.Columns(1).Delete
End With
End Sub
'-------------------
Voir ici
http://www.cijoint.fr/cjlink.php?file=cj201010/cijPka4q2W.xls
--
Salutations
JJ
"dyj Orange" a écrit dans le message de news:
4cb97c3f$0$32423$Bonjour le groupe,
Je vous sollicite pour résoudre un problème qui me semble simple, mais je n'y arrive pas.... A l'expérience
!!!
J'ai deux feuilles au format identiques: A et B (même colonnes, mais de longueurs différentes). Elles sont
toutes les deux classées sur la même colonne dans un ordre croissant.
Je voudrai obtenir dans une autre feuille C, les enregistrements de la feuille A qui ne se trouve pas dans
la feuille B et vice et versa.
Merci pour votre aide.
Merci de ton aide.
Je pense que je me suis mal exprimé avec mon terme "vice et versa".
Effectivement ton exemple, que je vais conserver précieusement, donne bien
une liste sans doublon, mais je vais essayer d'être plus clair.
Si je pars de Feuil1 vers Feuil2, je voudrai que dans Feuil3 il n'y ait
que nom2 et nom3, car effectivement, ils sont bien dans Feuil1 mais absent
de Feuil2.
Si je pars de Feuil2 vers Feuil1, je voudrai que dans Feuil3 il n'y ait
que nom12 et nom33, car effectivement, ils sont bien dans Feuil2 mais
absent de Feuil1.
Est ce faisable à partir de ton code VBA. Merci.
"Jacky" a écrit dans le message de groupe de discussion :
i9c2oq$5hm$
Bonjour,
Une solution manuel consiste à mettre dans la 3eme feuille une copie des
deux autres l'une à la suite de
l'autre.
De mettre un entête à cette colonne et de faire une extraction dans
doublon (Données / Filtrer /filtre
élaboré)
En vba cela pourrait ressembler à ceci
Il est supposé que les infos commencent en ligne 2 pour feuil1 et feuil2
'------------------------
Sub jj()
Dim derlg As Integer, derlgFeuil3 As Integer
Sheets("feuil3").Columns(1).Clear
Sheets("feuil3").[a1] = "Copie sans doublon"
derlg = Sheets("feuil1").Cells(Rows.Count, "A").End(3).Row
Sheets("feuil1").Range("A2:A" & derlg).Copy Sheets("feuil3").[a2]
derlg = Sheets("Feuil2").Cells(Rows.Count, "A").End(3).Row
derlgFeuil3 = Sheets("feuil3").Cells(Rows.Count, "A").End(3).Row + 1
Sheets("feuil2").Range("A2:A" & derlg).Copy Sheets("feuil3").Range("a"
& derlgFeuil3)
With Sheets("feuil3")
.Columns("A:A").AdvancedFilter Action:=xlFilterCopy,
CopyToRange:=.Range("B1"), Unique:=True
.Columns(1).Delete
End With
End Sub
'-------------------
Voir ici
http://www.cijoint.fr/cjlink.php?file=cj201010/cijPka4q2W.xls
--
Salutations
JJ
"dyj Orange" a écrit dans le message de news:
4cb97c3f$0$32423$Bonjour le groupe,
Je vous sollicite pour résoudre un problème qui me semble simple, mais je
n'y arrive pas.... A l'expérience !!!
J'ai deux feuilles au format identiques: A et B (même colonnes, mais de
longueurs différentes). Elles sont toutes les deux classées sur la même
colonne dans un ordre croissant.
Je voudrai obtenir dans une autre feuille C, les enregistrements de la
feuille A qui ne se trouve pas dans la feuille B et vice et versa.
Merci pour votre aide.
Merci de ton aide.
Je pense que je me suis mal exprimé avec mon terme "vice et versa".
Effectivement ton exemple, que je vais conserver précieusement, donne bien
une liste sans doublon, mais je vais essayer d'être plus clair.
Si je pars de Feuil1 vers Feuil2, je voudrai que dans Feuil3 il n'y ait
que nom2 et nom3, car effectivement, ils sont bien dans Feuil1 mais absent
de Feuil2.
Si je pars de Feuil2 vers Feuil1, je voudrai que dans Feuil3 il n'y ait
que nom12 et nom33, car effectivement, ils sont bien dans Feuil2 mais
absent de Feuil1.
Est ce faisable à partir de ton code VBA. Merci.
"Jacky" a écrit dans le message de groupe de discussion :
i9c2oq$5hm$1@speranza.aioe.org...
Bonjour,
Une solution manuel consiste à mettre dans la 3eme feuille une copie des
deux autres l'une à la suite de
l'autre.
De mettre un entête à cette colonne et de faire une extraction dans
doublon (Données / Filtrer /filtre
élaboré)
En vba cela pourrait ressembler à ceci
Il est supposé que les infos commencent en ligne 2 pour feuil1 et feuil2
'------------------------
Sub jj()
Dim derlg As Integer, derlgFeuil3 As Integer
Sheets("feuil3").Columns(1).Clear
Sheets("feuil3").[a1] = "Copie sans doublon"
derlg = Sheets("feuil1").Cells(Rows.Count, "A").End(3).Row
Sheets("feuil1").Range("A2:A" & derlg).Copy Sheets("feuil3").[a2]
derlg = Sheets("Feuil2").Cells(Rows.Count, "A").End(3).Row
derlgFeuil3 = Sheets("feuil3").Cells(Rows.Count, "A").End(3).Row + 1
Sheets("feuil2").Range("A2:A" & derlg).Copy Sheets("feuil3").Range("a"
& derlgFeuil3)
With Sheets("feuil3")
.Columns("A:A").AdvancedFilter Action:=xlFilterCopy,
CopyToRange:=.Range("B1"), Unique:=True
.Columns(1).Delete
End With
End Sub
'-------------------
Voir ici
http://www.cijoint.fr/cjlink.php?file=cj201010/cijPka4q2W.xls
--
Salutations
JJ
"dyj Orange" <dyj.orange@wanadoo.fr> a écrit dans le message de news:
4cb97c3f$0$32423$ba4acef3@reader.news.orange.fr...
Bonjour le groupe,
Je vous sollicite pour résoudre un problème qui me semble simple, mais je
n'y arrive pas.... A l'expérience !!!
J'ai deux feuilles au format identiques: A et B (même colonnes, mais de
longueurs différentes). Elles sont toutes les deux classées sur la même
colonne dans un ordre croissant.
Je voudrai obtenir dans une autre feuille C, les enregistrements de la
feuille A qui ne se trouve pas dans la feuille B et vice et versa.
Merci pour votre aide.
Merci de ton aide.
Je pense que je me suis mal exprimé avec mon terme "vice et versa".
Effectivement ton exemple, que je vais conserver précieusement, donne bien
une liste sans doublon, mais je vais essayer d'être plus clair.
Si je pars de Feuil1 vers Feuil2, je voudrai que dans Feuil3 il n'y ait
que nom2 et nom3, car effectivement, ils sont bien dans Feuil1 mais absent
de Feuil2.
Si je pars de Feuil2 vers Feuil1, je voudrai que dans Feuil3 il n'y ait
que nom12 et nom33, car effectivement, ils sont bien dans Feuil2 mais
absent de Feuil1.
Est ce faisable à partir de ton code VBA. Merci.
"Jacky" a écrit dans le message de groupe de discussion :
i9c2oq$5hm$
Bonjour,
Une solution manuel consiste à mettre dans la 3eme feuille une copie des
deux autres l'une à la suite de
l'autre.
De mettre un entête à cette colonne et de faire une extraction dans
doublon (Données / Filtrer /filtre
élaboré)
En vba cela pourrait ressembler à ceci
Il est supposé que les infos commencent en ligne 2 pour feuil1 et feuil2
'------------------------
Sub jj()
Dim derlg As Integer, derlgFeuil3 As Integer
Sheets("feuil3").Columns(1).Clear
Sheets("feuil3").[a1] = "Copie sans doublon"
derlg = Sheets("feuil1").Cells(Rows.Count, "A").End(3).Row
Sheets("feuil1").Range("A2:A" & derlg).Copy Sheets("feuil3").[a2]
derlg = Sheets("Feuil2").Cells(Rows.Count, "A").End(3).Row
derlgFeuil3 = Sheets("feuil3").Cells(Rows.Count, "A").End(3).Row + 1
Sheets("feuil2").Range("A2:A" & derlg).Copy Sheets("feuil3").Range("a"
& derlgFeuil3)
With Sheets("feuil3")
.Columns("A:A").AdvancedFilter Action:=xlFilterCopy,
CopyToRange:=.Range("B1"), Unique:=True
.Columns(1).Delete
End With
End Sub
'-------------------
Voir ici
http://www.cijoint.fr/cjlink.php?file=cj201010/cijPka4q2W.xls
--
Salutations
JJ
"dyj Orange" a écrit dans le message de news:
4cb97c3f$0$32423$Bonjour le groupe,
Je vous sollicite pour résoudre un problème qui me semble simple, mais je
n'y arrive pas.... A l'expérience !!!
J'ai deux feuilles au format identiques: A et B (même colonnes, mais de
longueurs différentes). Elles sont toutes les deux classées sur la même
colonne dans un ordre croissant.
Je voudrai obtenir dans une autre feuille C, les enregistrements de la
feuille A qui ne se trouve pas dans la feuille B et vice et versa.
Merci pour votre aide.
Après essai de ton classeur, ma réponse est OUI, tu réponds parfaitement à ce que je veux faire et je t'en
remercie. Je vais m'occuper un peu de la famille ... et reprendre à tête reposée ton code pour l'insérer
dans mon développement.
Une fois encore un grand merci de ton aide.
"Jacky" a écrit dans le message de groupe de discussion : i9cg41$sec$
Re..
Regarde si ceci convient
'------------------
Sub NonPresenEnF2()
Dim derlgF1 As Integer, derlgF2 As Integer
Sheets("feuil3").Columns("a:l").Clear
Application.ScreenUpdating = False
calc = Application.Calculation
'**
Sheets("feuil1").Rows(1).Copy Sheets("feuil3").[a1]
derlgF1 = Sheets("feuil1").Cells(Rows.Count, "d").End(3).Row
derlgF2 = Sheets("feuil2").Cells(Rows.Count, "d").End(3).Row
Set plage1 = Sheets("feuil2").Range("d2:d" & derlgF2)
Set plage2 = Sheets("feuil2").Range("k2:k" & derlgF2)
With Sheets("feuil1")
For i = 2 To .Cells(.Rows.Count, "d").End(3).Row
If IsError(Application.Match(.Cells(i, 4), plage1, 0)) Or IsError(Application.Match(.Cells(i, 11),
plage2, 0)) Then
.Rows(i).Copy Range("a" & Sheets("feuil3").Cells(Rows.Count, "A").End(3).Row + 1)
End If
Next
End With
'**
Application.ScreenUpdating = True
Application.Calculation = calc
End Sub
'-------------------------
Voir ici
http://www.cijoint.fr/cjlink.php?file=cj201010/cijeJMZpdY.xls
--
Salutations
JJ
Après essai de ton classeur, ma réponse est OUI, tu réponds parfaitement à ce que je veux faire et je t'en
remercie. Je vais m'occuper un peu de la famille ... et reprendre à tête reposée ton code pour l'insérer
dans mon développement.
Une fois encore un grand merci de ton aide.
"Jacky" a écrit dans le message de groupe de discussion : i9cg41$sec$1@speranza.aioe.org...
Re..
Regarde si ceci convient
'------------------
Sub NonPresenEnF2()
Dim derlgF1 As Integer, derlgF2 As Integer
Sheets("feuil3").Columns("a:l").Clear
Application.ScreenUpdating = False
calc = Application.Calculation
'**
Sheets("feuil1").Rows(1).Copy Sheets("feuil3").[a1]
derlgF1 = Sheets("feuil1").Cells(Rows.Count, "d").End(3).Row
derlgF2 = Sheets("feuil2").Cells(Rows.Count, "d").End(3).Row
Set plage1 = Sheets("feuil2").Range("d2:d" & derlgF2)
Set plage2 = Sheets("feuil2").Range("k2:k" & derlgF2)
With Sheets("feuil1")
For i = 2 To .Cells(.Rows.Count, "d").End(3).Row
If IsError(Application.Match(.Cells(i, 4), plage1, 0)) Or IsError(Application.Match(.Cells(i, 11),
plage2, 0)) Then
.Rows(i).Copy Range("a" & Sheets("feuil3").Cells(Rows.Count, "A").End(3).Row + 1)
End If
Next
End With
'**
Application.ScreenUpdating = True
Application.Calculation = calc
End Sub
'-------------------------
Voir ici
http://www.cijoint.fr/cjlink.php?file=cj201010/cijeJMZpdY.xls
--
Salutations
JJ
Après essai de ton classeur, ma réponse est OUI, tu réponds parfaitement à ce que je veux faire et je t'en
remercie. Je vais m'occuper un peu de la famille ... et reprendre à tête reposée ton code pour l'insérer
dans mon développement.
Une fois encore un grand merci de ton aide.
"Jacky" a écrit dans le message de groupe de discussion : i9cg41$sec$
Re..
Regarde si ceci convient
'------------------
Sub NonPresenEnF2()
Dim derlgF1 As Integer, derlgF2 As Integer
Sheets("feuil3").Columns("a:l").Clear
Application.ScreenUpdating = False
calc = Application.Calculation
'**
Sheets("feuil1").Rows(1).Copy Sheets("feuil3").[a1]
derlgF1 = Sheets("feuil1").Cells(Rows.Count, "d").End(3).Row
derlgF2 = Sheets("feuil2").Cells(Rows.Count, "d").End(3).Row
Set plage1 = Sheets("feuil2").Range("d2:d" & derlgF2)
Set plage2 = Sheets("feuil2").Range("k2:k" & derlgF2)
With Sheets("feuil1")
For i = 2 To .Cells(.Rows.Count, "d").End(3).Row
If IsError(Application.Match(.Cells(i, 4), plage1, 0)) Or IsError(Application.Match(.Cells(i, 11),
plage2, 0)) Then
.Rows(i).Copy Range("a" & Sheets("feuil3").Cells(Rows.Count, "A").End(3).Row + 1)
End If
Next
End With
'**
Application.ScreenUpdating = True
Application.Calculation = calc
End Sub
'-------------------------
Voir ici
http://www.cijoint.fr/cjlink.php?file=cj201010/cijeJMZpdY.xls
--
Salutations
JJ