J'ai trois onglets je dois chercher la presence un d'un numeros qui se
trouve dans l'onglet numeros 1 dans l'onglet numeros deux et si je le
trouve je copie la ligne entiere et la coller dans l'onglet numeros 3.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichD
Bonjour,
Ta question n'est pas très claire...
A ) le numéro que tu cherches est situé OÙ ? Nom de la feuille, l'adresse de cellule B ) Est-ce que ce numéro est numérique ou alphanumérique? Un exemple...
C ) Ce numéro est situé où dans la feuille 1? Une colonne en particulier? N'importe où dans la feuille?
D ) Si ce numéro existe en feuil1, tu veux comparer la totalité de cette ligne avec les valeurs de la ligne en feuil2 si ce numéro existe aussi sur cette feuille ? Est-ce cela?
E ) Est-ce possible qu'il y ait plus d'un numéro en Feuil1 qui soit trouvé? Si oui, doit-on comparer toutes les lignes de la feuil1 dont le numéro est présent avec toutes les lignes en feuil2 dont le numéro est aussi présent?
F ) Que fait-on s'il y a des doublons? On les copie tous dans la feuil3 ?
MichD -------------------------------------------- "joseph84" a écrit dans le message de groupe de discussion :
Bonjour a vous tous,
j'ai un petit problème à excuter un vlookup.
Bon, voila mon problème;
J'ai trois onglets je dois chercher la presence un d'un numeros qui se trouve dans l'onglet numeros 1 dans l'onglet numeros deux et si je le trouve je copie la ligne entiere et la coller dans l'onglet numeros 3.
j'espere que c'est claire.
Merci
Bonjour,
Ta question n'est pas très claire...
A ) le numéro que tu cherches est situé OÙ ? Nom de la feuille, l'adresse de cellule
B ) Est-ce que ce numéro est numérique ou alphanumérique? Un exemple...
C ) Ce numéro est situé où dans la feuille 1? Une colonne en particulier? N'importe où dans la feuille?
D ) Si ce numéro existe en feuil1, tu veux comparer la totalité de cette ligne avec les valeurs de la ligne en feuil2 si
ce numéro existe aussi sur cette feuille ? Est-ce cela?
E ) Est-ce possible qu'il y ait plus d'un numéro en Feuil1 qui soit trouvé? Si oui, doit-on comparer toutes les lignes
de la feuil1 dont le numéro est présent avec toutes les lignes en feuil2 dont le numéro est aussi présent?
F ) Que fait-on s'il y a des doublons? On les copie tous dans la feuil3 ?
MichD
--------------------------------------------
"joseph84" a écrit dans le message de groupe de discussion :
b87de95c-1873-4e5f-bb34-9d9d56bb25c3@r40g2000prf.googlegroups.com...
Bonjour a vous tous,
j'ai un petit problème à excuter un vlookup.
Bon, voila mon problème;
J'ai trois onglets je dois chercher la presence un d'un numeros qui se
trouve dans l'onglet numeros 1 dans l'onglet numeros deux et si je le
trouve je copie la ligne entiere et la coller dans l'onglet numeros 3.
A ) le numéro que tu cherches est situé OÙ ? Nom de la feuille, l'adresse de cellule B ) Est-ce que ce numéro est numérique ou alphanumérique? Un exemple...
C ) Ce numéro est situé où dans la feuille 1? Une colonne en particulier? N'importe où dans la feuille?
D ) Si ce numéro existe en feuil1, tu veux comparer la totalité de cette ligne avec les valeurs de la ligne en feuil2 si ce numéro existe aussi sur cette feuille ? Est-ce cela?
E ) Est-ce possible qu'il y ait plus d'un numéro en Feuil1 qui soit trouvé? Si oui, doit-on comparer toutes les lignes de la feuil1 dont le numéro est présent avec toutes les lignes en feuil2 dont le numéro est aussi présent?
F ) Que fait-on s'il y a des doublons? On les copie tous dans la feuil3 ?
MichD -------------------------------------------- "joseph84" a écrit dans le message de groupe de discussion :
Bonjour a vous tous,
j'ai un petit problème à excuter un vlookup.
Bon, voila mon problème;
J'ai trois onglets je dois chercher la presence un d'un numeros qui se trouve dans l'onglet numeros 1 dans l'onglet numeros deux et si je le trouve je copie la ligne entiere et la coller dans l'onglet numeros 3.
j'espere que c'est claire.
Merci
joseph84
A- le numeros est situé à la feuil1 à la colonne A (je veux comparaitre tout les numeros qui se trouve de la colonne A de la ligne 2 jusqu'à la fin de la colonne) B-le numeros est en format alphanumerique ex:(BA125632) D-je veux le comparaitre avec les numeros qui se situent à la feuille de la colonne A de la ligne 2 si il existe je copie tout le ligne de la feuil1 et je la colle à la feuil3 E- il n'y a pas de doublons
j'espère que mes reponses sont satisfaisantes
Merci bcp
A- le numeros est situé à la feuil1 à la colonne A (je veux
comparaitre tout les numeros qui se trouve de la colonne A de la ligne
2 jusqu'à la fin de la colonne)
B-le numeros est en format alphanumerique ex:(BA125632)
D-je veux le comparaitre avec les numeros qui se situent à la feuille
de la colonne A de la ligne 2 si il existe je copie tout le ligne de
la feuil1 et je la colle à la feuil3
E- il n'y a pas de doublons
A- le numeros est situé à la feuil1 à la colonne A (je veux comparaitre tout les numeros qui se trouve de la colonne A de la ligne 2 jusqu'à la fin de la colonne) B-le numeros est en format alphanumerique ex:(BA125632) D-je veux le comparaitre avec les numeros qui se situent à la feuille de la colonne A de la ligne 2 si il existe je copie tout le ligne de la feuil1 et je la colle à la feuil3 E- il n'y a pas de doublons
j'espère que mes reponses sont satisfaisantes
Merci bcp
MichD
Essaie quelque chose comme ceci :
La ligne 1 de la colonne est réservée aux en-têtes de colonnes... à définir !
En supposant qu'il n'y ait ni doublon en colonne A de la feuil1 et de la feuil2 '------------------------------------ Sub test() Dim Rg As Range, C As Range, NoLigne As Long With Worksheets("Feuil1") Set Rg = .Range("A2:A" & .Range("A65536").End(xlUp).Row) End With For Each C In Rg With Worksheets("Feuil2") With .Range("A2:A" & .Range("A65536").End(xlUp).Row) Set trouve = .Find(C, LookIn:=xlValues, LookAt:=xlWhole) If Not trouve Is Nothing Then With Worksheets("Feuil3") NoLigne = .Range("A65536").End(xlUp)(2).Row C.EntireRow.Copy .Range("A" & NoLigne) End With End If End With End With Next End Sub '------------------------------------
MichD -------------------------------------------- "joseph84" a écrit dans le message de groupe de discussion :
A- le numeros est situé à la feuil1 à la colonne A (je veux comparaitre tout les numeros qui se trouve de la colonne A de la ligne 2 jusqu'à la fin de la colonne) B-le numeros est en format alphanumerique ex:(BA125632) D-je veux le comparaitre avec les numeros qui se situent à la feuille de la colonne A de la ligne 2 si il existe je copie tout le ligne de la feuil1 et je la colle à la feuil3 E- il n'y a pas de doublons
j'espère que mes reponses sont satisfaisantes
Merci bcp
Essaie quelque chose comme ceci :
La ligne 1 de la colonne est réservée aux en-têtes de colonnes... à définir !
En supposant qu'il n'y ait ni doublon en colonne A de la feuil1 et de la feuil2
'------------------------------------
Sub test()
Dim Rg As Range, C As Range, NoLigne As Long
With Worksheets("Feuil1")
Set Rg = .Range("A2:A" & .Range("A65536").End(xlUp).Row)
End With
For Each C In Rg
With Worksheets("Feuil2")
With .Range("A2:A" & .Range("A65536").End(xlUp).Row)
Set trouve = .Find(C, LookIn:=xlValues, LookAt:=xlWhole)
If Not trouve Is Nothing Then
With Worksheets("Feuil3")
NoLigne = .Range("A65536").End(xlUp)(2).Row
C.EntireRow.Copy .Range("A" & NoLigne)
End With
End If
End With
End With
Next
End Sub
'------------------------------------
MichD
--------------------------------------------
"joseph84" a écrit dans le message de groupe de discussion :
3a5e582b-7812-4375-b5e4-23b0fa8ce144@t20g2000prf.googlegroups.com...
A- le numeros est situé à la feuil1 à la colonne A (je veux
comparaitre tout les numeros qui se trouve de la colonne A de la ligne
2 jusqu'à la fin de la colonne)
B-le numeros est en format alphanumerique ex:(BA125632)
D-je veux le comparaitre avec les numeros qui se situent à la feuille
de la colonne A de la ligne 2 si il existe je copie tout le ligne de
la feuil1 et je la colle à la feuil3
E- il n'y a pas de doublons
La ligne 1 de la colonne est réservée aux en-têtes de colonnes... à définir !
En supposant qu'il n'y ait ni doublon en colonne A de la feuil1 et de la feuil2 '------------------------------------ Sub test() Dim Rg As Range, C As Range, NoLigne As Long With Worksheets("Feuil1") Set Rg = .Range("A2:A" & .Range("A65536").End(xlUp).Row) End With For Each C In Rg With Worksheets("Feuil2") With .Range("A2:A" & .Range("A65536").End(xlUp).Row) Set trouve = .Find(C, LookIn:=xlValues, LookAt:=xlWhole) If Not trouve Is Nothing Then With Worksheets("Feuil3") NoLigne = .Range("A65536").End(xlUp)(2).Row C.EntireRow.Copy .Range("A" & NoLigne) End With End If End With End With Next End Sub '------------------------------------
MichD -------------------------------------------- "joseph84" a écrit dans le message de groupe de discussion :
A- le numeros est situé à la feuil1 à la colonne A (je veux comparaitre tout les numeros qui se trouve de la colonne A de la ligne 2 jusqu'à la fin de la colonne) B-le numeros est en format alphanumerique ex:(BA125632) D-je veux le comparaitre avec les numeros qui se situent à la feuille de la colonne A de la ligne 2 si il existe je copie tout le ligne de la feuil1 et je la colle à la feuil3 E- il n'y a pas de doublons
j'espère que mes reponses sont satisfaisantes
Merci bcp
joseph84
Merci bcp, mais malheureusement sa ne fonctionne pas comme je veux,
parce que moi je met un filtre sur la feuil1 avant que j'execute le code tu ma donne.
Dim Rg As Range, C As Range, NoLigne As Long With Worksheets("Feuil1") For i = 2 To 65500 Set Rg = .Range("A2:A" & .Range("A65536").End(xlUp).Row) End With For Each C In Rg With Worksheets("Feuil2") With .Range("A2:A" & .Range("A65536").End(xlUp).Row) Set trouve = .Find(C, LookIn:=xlValues, LookAt:=xlWhole) If Not trouve Is Nothing Then With Worksheets("Feuil3") NoLigne = .Range("A65536").End(xlUp)(2).Row C.EntireRow.Copy .Range("A" & NoLigne) End With End If End With End With Next
Merci bcp, mais malheureusement sa ne fonctionne pas comme je veux,
parce que moi je met un filtre sur la feuil1 avant que j'execute le
code tu ma donne.
Dim Rg As Range, C As Range, NoLigne As Long
With Worksheets("Feuil1")
For i = 2 To 65500
Set Rg = .Range("A2:A" & .Range("A65536").End(xlUp).Row)
End With
For Each C In Rg
With Worksheets("Feuil2")
With .Range("A2:A" & .Range("A65536").End(xlUp).Row)
Set trouve = .Find(C, LookIn:=xlValues, LookAt:=xlWhole)
If Not trouve Is Nothing Then
With Worksheets("Feuil3")
NoLigne = .Range("A65536").End(xlUp)(2).Row
C.EntireRow.Copy .Range("A" & NoLigne)
End With
End If
End With
End With
Next
Dim Rg As Range, C As Range, NoLigne As Long With Worksheets("Feuil1") For i = 2 To 65500 Set Rg = .Range("A2:A" & .Range("A65536").End(xlUp).Row) End With For Each C In Rg With Worksheets("Feuil2") With .Range("A2:A" & .Range("A65536").End(xlUp).Row) Set trouve = .Find(C, LookIn:=xlValues, LookAt:=xlWhole) If Not trouve Is Nothing Then With Worksheets("Feuil3") NoLigne = .Range("A65536").End(xlUp)(2).Row C.EntireRow.Copy .Range("A" & NoLigne) End With End If End With End With Next
MichD
'---------------------------------------- Sub test() Dim Rg As Range, C As Range, NoLigne As Long Dim Derlig As Long, DerCol As Integer Application.ScreenUpdating = False Application.EnableEvents = False
With Worksheets("Feuil1") 'Zone de critère pour le filtre élaboré 'Tu peux choisir les 2 cellules de ton choix 'à l'extérieur de ton tableau .Range("CC1") = "" .Range("CC2").Formula = "=Or(AL2=""Robert"",AL2=""Mathieu"",AL2=""Laurent"")"
With .Range("A1", .Cells(Derlig, DerCol)) .AdvancedFilter xlFilterInPlace, Worksheets("Feuil1").Range("CC1:CC2") End With
With .Range("A2:A" & .Range("A65536").End(xlUp).Row) Set Rg = .SpecialCells(xlCellTypeVisible) End With End With For Each C In Rg With Worksheets("Feuil2") With .Range("A2:A" & .Range("A65536").End(xlUp).Row) Set trouve = .Find(C, LookIn:=xlValues, LookAt:=xlWhole) If Not trouve Is Nothing Then With Worksheets("Feuil3") NoLigne = .Range("A65536").End(xlUp)(2).Row C.EntireRow.Copy .Range("A" & NoLigne) End With End If End With End With Next With Worksheets("Feuil1") .Range("CC1") = "" .Range("CC2") = "" .ShowAllData End With Application.ScreenUpdating = True Application.EnableEvents = True
End Sub '----------------------------------------
MichD -------------------------------------------- "joseph84" a écrit dans le message de groupe de discussion :
Merci bcp, mais malheureusement sa ne fonctionne pas comme je veux,
parce que moi je met un filtre sur la feuil1 avant que j'execute le code tu ma donne.
Dim Rg As Range, C As Range, NoLigne As Long With Worksheets("Feuil1") For i = 2 To 65500 Set Rg = .Range("A2:A" & .Range("A65536").End(xlUp).Row) End With For Each C In Rg With Worksheets("Feuil2") With .Range("A2:A" & .Range("A65536").End(xlUp).Row) Set trouve = .Find(C, LookIn:=xlValues, LookAt:=xlWhole) If Not trouve Is Nothing Then With Worksheets("Feuil3") NoLigne = .Range("A65536").End(xlUp)(2).Row C.EntireRow.Copy .Range("A" & NoLigne) End With End If End With End With Next
'----------------------------------------
Sub test()
Dim Rg As Range, C As Range, NoLigne As Long
Dim Derlig As Long, DerCol As Integer
Application.ScreenUpdating = False
Application.EnableEvents = False
With Worksheets("Feuil1")
'Zone de critère pour le filtre élaboré
'Tu peux choisir les 2 cellules de ton choix
'à l'extérieur de ton tableau
.Range("CC1") = ""
.Range("CC2").Formula = "=Or(AL2=""Robert"",AL2=""Mathieu"",AL2=""Laurent"")"
With .Range("A1", .Cells(Derlig, DerCol))
.AdvancedFilter xlFilterInPlace, Worksheets("Feuil1").Range("CC1:CC2")
End With
With .Range("A2:A" & .Range("A65536").End(xlUp).Row)
Set Rg = .SpecialCells(xlCellTypeVisible)
End With
End With
For Each C In Rg
With Worksheets("Feuil2")
With .Range("A2:A" & .Range("A65536").End(xlUp).Row)
Set trouve = .Find(C, LookIn:=xlValues, LookAt:=xlWhole)
If Not trouve Is Nothing Then
With Worksheets("Feuil3")
NoLigne = .Range("A65536").End(xlUp)(2).Row
C.EntireRow.Copy .Range("A" & NoLigne)
End With
End If
End With
End With
Next
With Worksheets("Feuil1")
.Range("CC1") = ""
.Range("CC2") = ""
.ShowAllData
End With
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
'----------------------------------------
MichD
--------------------------------------------
"joseph84" a écrit dans le message de groupe de discussion :
fa5f5f02-b9b7-453d-99fd-5a828e408e68@l2g2000vbn.googlegroups.com...
Merci bcp, mais malheureusement sa ne fonctionne pas comme je veux,
parce que moi je met un filtre sur la feuil1 avant que j'execute le
code tu ma donne.
Dim Rg As Range, C As Range, NoLigne As Long
With Worksheets("Feuil1")
For i = 2 To 65500
Set Rg = .Range("A2:A" & .Range("A65536").End(xlUp).Row)
End With
For Each C In Rg
With Worksheets("Feuil2")
With .Range("A2:A" & .Range("A65536").End(xlUp).Row)
Set trouve = .Find(C, LookIn:=xlValues, LookAt:=xlWhole)
If Not trouve Is Nothing Then
With Worksheets("Feuil3")
NoLigne = .Range("A65536").End(xlUp)(2).Row
C.EntireRow.Copy .Range("A" & NoLigne)
End With
End If
End With
End With
Next
'---------------------------------------- Sub test() Dim Rg As Range, C As Range, NoLigne As Long Dim Derlig As Long, DerCol As Integer Application.ScreenUpdating = False Application.EnableEvents = False
With Worksheets("Feuil1") 'Zone de critère pour le filtre élaboré 'Tu peux choisir les 2 cellules de ton choix 'à l'extérieur de ton tableau .Range("CC1") = "" .Range("CC2").Formula = "=Or(AL2=""Robert"",AL2=""Mathieu"",AL2=""Laurent"")"
With .Range("A1", .Cells(Derlig, DerCol)) .AdvancedFilter xlFilterInPlace, Worksheets("Feuil1").Range("CC1:CC2") End With
With .Range("A2:A" & .Range("A65536").End(xlUp).Row) Set Rg = .SpecialCells(xlCellTypeVisible) End With End With For Each C In Rg With Worksheets("Feuil2") With .Range("A2:A" & .Range("A65536").End(xlUp).Row) Set trouve = .Find(C, LookIn:=xlValues, LookAt:=xlWhole) If Not trouve Is Nothing Then With Worksheets("Feuil3") NoLigne = .Range("A65536").End(xlUp)(2).Row C.EntireRow.Copy .Range("A" & NoLigne) End With End If End With End With Next With Worksheets("Feuil1") .Range("CC1") = "" .Range("CC2") = "" .ShowAllData End With Application.ScreenUpdating = True Application.EnableEvents = True
End Sub '----------------------------------------
MichD -------------------------------------------- "joseph84" a écrit dans le message de groupe de discussion :
Merci bcp, mais malheureusement sa ne fonctionne pas comme je veux,
parce que moi je met un filtre sur la feuil1 avant que j'execute le code tu ma donne.
Dim Rg As Range, C As Range, NoLigne As Long With Worksheets("Feuil1") For i = 2 To 65500 Set Rg = .Range("A2:A" & .Range("A65536").End(xlUp).Row) End With For Each C In Rg With Worksheets("Feuil2") With .Range("A2:A" & .Range("A65536").End(xlUp).Row) Set trouve = .Find(C, LookIn:=xlValues, LookAt:=xlWhole) If Not trouve Is Nothing Then With Worksheets("Feuil3") NoLigne = .Range("A65536").End(xlUp)(2).Row C.EntireRow.Copy .Range("A" & NoLigne) End With End If End With End With Next
joseph84
Merci beaucoup sa fonctionne nickel :)
Maintenant je faire à peut pret la meme chose je m'explique:
j'ai encore trois onglet je dois verifier si dans la feuil1 il y a des numeros (alphanumeric) qui se trouve dans la colonne A à partir de la ligne 2 qui ne se trouve pas dans Feuil2 de la colonne A à partir de la ligne 2 si c est le cas je copy la ligne entiere de la feuil1 et je la colle à la feuill3 à partir de la ligne 2.
j'espere que ma question est claire.
Merci
Merci beaucoup sa fonctionne nickel :)
Maintenant je faire à peut pret la meme chose je m'explique:
j'ai encore trois onglet je dois verifier si dans la feuil1 il y a des
numeros (alphanumeric) qui se trouve dans la colonne A à partir de la
ligne 2 qui ne se trouve pas dans Feuil2 de la colonne A à partir de
la ligne 2 si c est le cas je copy la ligne entiere de la feuil1 et je
la colle à la feuill3 à partir de la ligne 2.
Maintenant je faire à peut pret la meme chose je m'explique:
j'ai encore trois onglet je dois verifier si dans la feuil1 il y a des numeros (alphanumeric) qui se trouve dans la colonne A à partir de la ligne 2 qui ne se trouve pas dans Feuil2 de la colonne A à partir de la ligne 2 si c est le cas je copy la ligne entiere de la feuil1 et je la colle à la feuill3 à partir de la ligne 2.
j'espere que ma question est claire.
Merci
MichD
Est-ce qu'il y a encore des filtres sur ta feuille "Feuil1" ?
MichD -------------------------------------------- "joseph84" a écrit dans le message de groupe de discussion :
Merci beaucoup sa fonctionne nickel :)
Maintenant je faire à peut pret la meme chose je m'explique:
j'ai encore trois onglet je dois verifier si dans la feuil1 il y a des numeros (alphanumeric) qui se trouve dans la colonne A à partir de la ligne 2 qui ne se trouve pas dans Feuil2 de la colonne A à partir de la ligne 2 si c est le cas je copy la ligne entiere de la feuil1 et je la colle à la feuill3 à partir de la ligne 2.
j'espere que ma question est claire.
Merci
Est-ce qu'il y a encore des filtres sur ta feuille "Feuil1" ?
MichD
--------------------------------------------
"joseph84" a écrit dans le message de groupe de discussion :
7c18852c-aa42-49d8-bbec-a6c9b631fe8e@df3g2000vbb.googlegroups.com...
Merci beaucoup sa fonctionne nickel :)
Maintenant je faire à peut pret la meme chose je m'explique:
j'ai encore trois onglet je dois verifier si dans la feuil1 il y a des
numeros (alphanumeric) qui se trouve dans la colonne A à partir de la
ligne 2 qui ne se trouve pas dans Feuil2 de la colonne A à partir de
la ligne 2 si c est le cas je copy la ligne entiere de la feuil1 et je
la colle à la feuill3 à partir de la ligne 2.
Est-ce qu'il y a encore des filtres sur ta feuille "Feuil1" ?
MichD -------------------------------------------- "joseph84" a écrit dans le message de groupe de discussion :
Merci beaucoup sa fonctionne nickel :)
Maintenant je faire à peut pret la meme chose je m'explique:
j'ai encore trois onglet je dois verifier si dans la feuil1 il y a des numeros (alphanumeric) qui se trouve dans la colonne A à partir de la ligne 2 qui ne se trouve pas dans Feuil2 de la colonne A à partir de la ligne 2 si c est le cas je copy la ligne entiere de la feuil1 et je la colle à la feuill3 à partir de la ligne 2.
j'espere que ma question est claire.
Merci
joseph84
non, il n y a pas de filtre dans la feuil1 Et tout cela c'est pour que je dectecte des numeros qui se trouve pas dans la feuil1 et se trouve dans la feuil2 si oui en copie la ligne entiere de la feuil2 et on la colle à la feuill3
non, il n y a pas de filtre dans la feuil1
Et tout cela c'est pour que je dectecte des numeros qui se trouve pas
dans la feuil1 et se trouve dans la feuil2 si oui en copie la ligne
entiere de la feuil2 et on la colle à la feuill3
non, il n y a pas de filtre dans la feuil1 Et tout cela c'est pour que je dectecte des numeros qui se trouve pas dans la feuil1 et se trouve dans la feuil2 si oui en copie la ligne entiere de la feuil2 et on la colle à la feuill3
MichD
Essaie ça :
'------------------------------------ Sub test() Dim Rg As Range, C As Range, NoLigne As Long
With Worksheets("Feuil2") Set Rg = .Range("A2:A" & .Range("A65536").End(xlUp).Row) End With
For Each C In Rg With Worksheets("Feuil1") With .Range("A2:A" & .Range("A65536").End(xlUp).Row) Set trouve = .Find(C, LookIn:=xlValues, LookAt:=xlWhole) If trouve Is Nothing Then With Worksheets("Feuil3") NoLigne = .Range("A65536").End(xlUp)(2).Row C.EntireRow.Copy .Range("A" & NoLigne) End With End If End With End With Next Application.ScreenUpdating = True Application.EnableEvents = True
End Sub '------------------------------------
MichD -------------------------------------------- "joseph84" a écrit dans le message de groupe de discussion :
non, il n y a pas de filtre dans la feuil1 Et tout cela c'est pour que je dectecte des numeros qui se trouve pas dans la feuil1 et se trouve dans la feuil2 si oui en copie la ligne entiere de la feuil2 et on la colle à la feuill3
Essaie ça :
'------------------------------------
Sub test()
Dim Rg As Range, C As Range, NoLigne As Long
With Worksheets("Feuil2")
Set Rg = .Range("A2:A" & .Range("A65536").End(xlUp).Row)
End With
For Each C In Rg
With Worksheets("Feuil1")
With .Range("A2:A" & .Range("A65536").End(xlUp).Row)
Set trouve = .Find(C, LookIn:=xlValues, LookAt:=xlWhole)
If trouve Is Nothing Then
With Worksheets("Feuil3")
NoLigne = .Range("A65536").End(xlUp)(2).Row
C.EntireRow.Copy .Range("A" & NoLigne)
End With
End If
End With
End With
Next
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
'------------------------------------
MichD
--------------------------------------------
"joseph84" a écrit dans le message de groupe de discussion :
123372f7-8cfd-443d-b542-778992a32118@a4g2000yqg.googlegroups.com...
non, il n y a pas de filtre dans la feuil1
Et tout cela c'est pour que je dectecte des numeros qui se trouve pas
dans la feuil1 et se trouve dans la feuil2 si oui en copie la ligne
entiere de la feuil2 et on la colle à la feuill3
With Worksheets("Feuil2") Set Rg = .Range("A2:A" & .Range("A65536").End(xlUp).Row) End With
For Each C In Rg With Worksheets("Feuil1") With .Range("A2:A" & .Range("A65536").End(xlUp).Row) Set trouve = .Find(C, LookIn:=xlValues, LookAt:=xlWhole) If trouve Is Nothing Then With Worksheets("Feuil3") NoLigne = .Range("A65536").End(xlUp)(2).Row C.EntireRow.Copy .Range("A" & NoLigne) End With End If End With End With Next Application.ScreenUpdating = True Application.EnableEvents = True
End Sub '------------------------------------
MichD -------------------------------------------- "joseph84" a écrit dans le message de groupe de discussion :
non, il n y a pas de filtre dans la feuil1 Et tout cela c'est pour que je dectecte des numeros qui se trouve pas dans la feuil1 et se trouve dans la feuil2 si oui en copie la ligne entiere de la feuil2 et on la colle à la feuill3