suppression de lignes

Le
pierre
Bonjour

Dans un tableau important je cherche le moyen de supprimer les lignes ne me
servant pas a partir de références.
Les reférences que je dois conserver se trouvent en feuil 2 de A1 a A 50
exemple 5685122y en A1, 5748788g en A2
Dans le tableau principal feuil 1 dans la colonne A j'ai plein de
références à analyser par rapport à la feuil2, je supprime la ligne
entierement si la référence n'existe pas. Auriez vous une idée d'une
formule voire une macro.
merci de votre aide

Pierre
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacky
Le #22942541
Bonjour,
Auriez vous une idée d'une formule voire une macro.



Une macro peut_être
'---------------
Sub jj()
For i = Sheets("feuil1").Cells(Rows.Count, 1).End(3).Row To 1 Step -1
If IsError(Application.Match(Sheets("feuil1").Cells(i, 1), Sheets("feuil2").[a1:a50], 0)) Then
Rows(i).Delete
Next
End Sub
'-------------------

--
Salutations
JJ


"pierre"
Bonjour

Dans un tableau important je cherche le moyen de supprimer les lignes ne me servant pas a partir de
références.
Les reférences que je dois conserver se trouvent en feuil 2 de A1 a A 50 exemple 5685122y en A1,
5748788g en A2...
Dans le tableau principal feuil 1 dans la colonne A j'ai plein de références à analyser par rapport à la
feuil2, je supprime la ligne entierement si la référence n'existe pas. Auriez vous une idée d'une formule
voire une macro.
merci de votre aide

Pierre

Jacky
Le #22942601
Re..
Celui-ci au cas ou la feuille active est "feuil2"
'----------------
Sub jj()
For i = Sheets("feuil1").Cells(Rows.Count, 1).End(3).Row To 1 Step -1
If IsError(Application.Match(Sheets("feuil1").Cells(i, 1), Sheets("feuil2").[a1:a50], 0)) Then _
Sheets("feuil1").Rows(i).Delete
Next
End Sub
'----------------

--
Salutations
JJ


"Jacky"
Bonjour,
Auriez vous une idée d'une formule voire une macro.



Une macro peut_être
'---------------
Sub jj()
For i = Sheets("feuil1").Cells(Rows.Count, 1).End(3).Row To 1 Step -1
If IsError(Application.Match(Sheets("feuil1").Cells(i, 1), Sheets("feuil2").[a1:a50], 0)) Then
Rows(i).Delete
Next
End Sub
'-------------------

--
Salutations
JJ


"pierre" 4d0e2d22$0$32444$
Bonjour

Dans un tableau important je cherche le moyen de supprimer les lignes ne me servant pas a partir de
références.
Les reférences que je dois conserver se trouvent en feuil 2 de A1 a A 50 exemple 5685122y en A1, 5748788g
en A2...
Dans le tableau principal feuil 1 dans la colonne A j'ai plein de références à analyser par rapport à la
feuil2, je supprime la ligne entierement si la référence n'existe pas. Auriez vous une idée d'une formule
voire une macro.
merci de votre aide

Pierre





pierre
Le #22942851
Excellent quel gain de temps

J'aimerais bien comprendre les macros...

C'est parfait, merci Jacky

Pierre

"Jacky" ieldlm$pf$
Re..
Celui-ci au cas ou la feuille active est "feuil2"
'----------------
Sub jj()
For i = Sheets("feuil1").Cells(Rows.Count, 1).End(3).Row To 1 Step -1
If IsError(Application.Match(Sheets("feuil1").Cells(i, 1),
Sheets("feuil2").[a1:a50], 0)) Then _
Sheets("feuil1").Rows(i).Delete
Next
End Sub
'----------------

--
Salutations
JJ


"Jacky" ielcon$u8e$
Bonjour,
Auriez vous une idée d'une formule voire une macro.



Une macro peut_être
'---------------
Sub jj()
For i = Sheets("feuil1").Cells(Rows.Count, 1).End(3).Row To 1 Step -1
If IsError(Application.Match(Sheets("feuil1").Cells(i, 1),
Sheets("feuil2").[a1:a50], 0)) Then Rows(i).Delete
Next
End Sub
'-------------------

--
Salutations
JJ


"pierre" 4d0e2d22$0$32444$
Bonjour

Dans un tableau important je cherche le moyen de supprimer les lignes ne
me servant pas a partir de références.
Les reférences que je dois conserver se trouvent en feuil 2 de A1 a A
50 exemple 5685122y en A1, 5748788g en A2...
Dans le tableau principal feuil 1 dans la colonne A j'ai plein de
références à analyser par rapport à la feuil2, je supprime la ligne
entierement si la référence n'existe pas. Auriez vous une idée d'une
formule voire une macro.
merci de votre aide

Pierre









pierre
Le #22945351
Bonjour, question subsidiaire

Est-il possible de faire l'inverse, supprimer uniquement les lignes qui se
trouvent dans la base de la feuil 2 ?

merci d'avance

Pierre



"Jacky" ieldlm$pf$
Re..
Celui-ci au cas ou la feuille active est "feuil2"
'----------------
Sub jj()
For i = Sheets("feuil1").Cells(Rows.Count, 1).End(3).Row To 1 Step -1
If IsError(Application.Match(Sheets("feuil1").Cells(i, 1),
Sheets("feuil2").[a1:a50], 0)) Then _
Sheets("feuil1").Rows(i).Delete
Next
End Sub
'----------------

--
Salutations
JJ


"Jacky" ielcon$u8e$
Bonjour,
Auriez vous une idée d'une formule voire une macro.



Une macro peut_être
'---------------
Sub jj()
For i = Sheets("feuil1").Cells(Rows.Count, 1).End(3).Row To 1 Step -1
If IsError(Application.Match(Sheets("feuil1").Cells(i, 1),
Sheets("feuil2").[a1:a50], 0)) Then Rows(i).Delete
Next
End Sub
'-------------------

--
Salutations
JJ


"pierre" 4d0e2d22$0$32444$
Bonjour

Dans un tableau important je cherche le moyen de supprimer les lignes ne
me servant pas a partir de références.
Les reférences que je dois conserver se trouvent en feuil 2 de A1 a A
50 exemple 5685122y en A1, 5748788g en A2...
Dans le tableau principal feuil 1 dans la colonne A j'ai plein de
références à analyser par rapport à la feuil2, je supprime la ligne
entierement si la référence n'existe pas. Auriez vous une idée d'une
formule voire une macro.
merci de votre aide

Pierre









Jacky
Le #22945381
Re...
Est-il possible de faire l'inverse


Oui,
remplacer "IsError" par " IsNumeric"
'--------------
Sub jj()
For i = Sheets("feuil1").Cells(Rows.Count, 1).End(3).Row To 1 Step -1
If IsNumeric(Application.Match(Sheets("feuil1").Cells(i, 1), Sheets("feuil2").[a1:a50], 0)) Then _
Sheets("feuil1").Rows(i).Delete
Next
End Sub
'--------------------

--
Salutations
JJ


"pierre"
Bonjour, question subsidiaire

Est-il possible de faire l'inverse, supprimer uniquement les lignes qui se trouvent dans la base de la feuil
2 ?

merci d'avance

Pierre



"Jacky"
Re..
Celui-ci au cas ou la feuille active est "feuil2"
'----------------
Sub jj()
For i = Sheets("feuil1").Cells(Rows.Count, 1).End(3).Row To 1 Step -1
If IsError(Application.Match(Sheets("feuil1").Cells(i, 1), Sheets("feuil2").[a1:a50], 0)) Then _
Sheets("feuil1").Rows(i).Delete
Next
End Sub
'----------------

--
Salutations
JJ


"Jacky"
Bonjour,
Auriez vous une idée d'une formule voire une macro.



Une macro peut_être
'---------------
Sub jj()
For i = Sheets("feuil1").Cells(Rows.Count, 1).End(3).Row To 1 Step -1
If IsError(Application.Match(Sheets("feuil1").Cells(i, 1), Sheets("feuil2").[a1:a50], 0)) Then
Rows(i).Delete
Next
End Sub
'-------------------

--
Salutations
JJ


"pierre" 4d0e2d22$0$32444$
Bonjour

Dans un tableau important je cherche le moyen de supprimer les lignes ne me servant pas a partir de
références.
Les reférences que je dois conserver se trouvent en feuil 2 de A1 a A 50 exemple 5685122y en A1,
5748788g en A2...
Dans le tableau principal feuil 1 dans la colonne A j'ai plein de références à analyser par rapport à
la feuil2, je supprime la ligne entierement si la référence n'existe pas. Auriez vous une idée d'une
formule voire une macro.
merci de votre aide

Pierre













pierre
Le #22946291
merci

"Jacky" 4d0fb98b$0$5411$
Re...
Est-il possible de faire l'inverse


Oui,
remplacer "IsError" par " IsNumeric"
'--------------
Sub jj()
For i = Sheets("feuil1").Cells(Rows.Count, 1).End(3).Row To 1 Step -1
If IsNumeric(Application.Match(Sheets("feuil1").Cells(i, 1),
Sheets("feuil2").[a1:a50], 0)) Then _
Sheets("feuil1").Rows(i).Delete
Next
End Sub
'--------------------

--
Salutations
JJ


"pierre" 4d0fb327$0$5434$
Bonjour, question subsidiaire

Est-il possible de faire l'inverse, supprimer uniquement les lignes qui
se trouvent dans la base de la feuil 2 ?

merci d'avance

Pierre



"Jacky" ieldlm$pf$
Re..
Celui-ci au cas ou la feuille active est "feuil2"
'----------------
Sub jj()
For i = Sheets("feuil1").Cells(Rows.Count, 1).End(3).Row To 1 Step -1
If IsError(Application.Match(Sheets("feuil1").Cells(i, 1),
Sheets("feuil2").[a1:a50], 0)) Then _
Sheets("feuil1").Rows(i).Delete
Next
End Sub
'----------------

--
Salutations
JJ


"Jacky" ielcon$u8e$
Bonjour,
Auriez vous une idée d'une formule voire une macro.



Une macro peut_être
'---------------
Sub jj()
For i = Sheets("feuil1").Cells(Rows.Count, 1).End(3).Row To 1 Step -1
If IsError(Application.Match(Sheets("feuil1").Cells(i, 1),
Sheets("feuil2").[a1:a50], 0)) Then Rows(i).Delete
Next
End Sub
'-------------------

--
Salutations
JJ


"pierre" 4d0e2d22$0$32444$
Bonjour

Dans un tableau important je cherche le moyen de supprimer les lignes
ne me servant pas a partir de références.
Les reférences que je dois conserver se trouvent en feuil 2 de A1 a A
50 exemple 5685122y en A1, 5748788g en A2...
Dans le tableau principal feuil 1 dans la colonne A j'ai plein de
références à analyser par rapport à la feuil2, je supprime la ligne
entierement si la référence n'existe pas. Auriez vous une idée d'une
formule voire une macro.
merci de votre aide

Pierre

















Publicité
Poster une réponse
Anonyme