Macro de suppression comparative

Bonsoir,:cry:
Quelqu'un pourrait-il m'aider SVP à créer une macro sur Excel pour effectuer les actions suivantes :
Ayant deux feuilles de calcul d'un classeur Excel, la première ayant une colonne avec des noms (par ex: de A1:A65635) et sur la deuxième feuille une colonne que je rempli avec des noms qui sont tous ou partiellement dans la colonne de la première feuille, je voudrai que lorsque j'active cette macro elle enlève les noms que j'ai tapé sur la deuxième feuille sur la première feuille. Bref faire une sorte de mise à jour de mes données de la première feuille.
Merci pour la suite.:oops:

Bonsoir 0916paps

Essayes ce code !
J'ai fais un essai avec une colonne dans une Feuil1 et une colonne à comparer sur la Feuil2
La macro efface toutes les lignes de la feuil1 qui sont connue dans la colonne A de la feuille 2

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub macro2() Dim lf1 As Long Dim lf2 As Long Dim A, B Sheets("Feuil2").Select lf1 = Range("A65536").End(xlUp).Row   For i = 2 To lf1 A = Feuil2.Range("A" & i).Value   Sheets("Feuil1").Select lf2 = Range("A65536").End(xlUp).Row   For j = 2 To lf2 B = Feuil1.Range("A" & j).Value If A = B Then Rows(j).Delete Next   Next End Sub

---

Bonne soirée

Merci pour ta réponse,:ccool:
Je vois que je suis très loin de votre savoir.
J'ai essayé ton code, cela marche mais ce n'est pas exactement ce que je souhaite.:oops:
Je joins au présent un fichier qui je l'espère te guidera dans ta résolution de mon problème.
J'attends avec impatience ta solution,...
Cordialement.

Ne t'inquiète pas ! Moi aussi j'apprends le VBA depuis moins d'un ans
Quand tu commences à découvrir toutes les possibilités tu deviens accro

Il n'y a de problème, mon code prend en compte une ligne d'entête dans chaque feuille (i = 2 To lf1)

Si tu mets DUPONT sur la ligne 2 ca marchera

Bon courage:ccool:

:cry:Je suis désolé, mais si j'active ton code alors je passe sur la Feuil1 sans que soit supprimer le ou les noms inscrit dans la Feuil2.
Alors je pense que je suis trop nul pour réussir ta solution:roll:
Pourrais-tu me faire le fichier que je t'ai envoyé avec la macro et son code.
Merci pour ton aide.
Cordialement.

J'ai fait un peu de propre dans mon code
Normalement celui-ci devrait marcher sans ligne d'entête

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub macro2() Dim lf1 As Long Dim lf2 As Long Dim A, B   lf1 = Feuil2.Range("A65536").End(xlUp).Row lf2 = Feuil1.Range("A65536").End(xlUp).Row   For i = 1 To lf1 A = Feuil2.Range("A" & i).Value For j = 1 To lf2 B = Feuil1.Range("A" & j).Value If A = B Then Feuil1.Rows(j).Delete Next   Next End Sub

---

http://www.developpez.net/forums/att...1&d=1287521145

Pour ton fichier

Code:

---

1 2 3 4 5

Dim c As Range   For Each c In Sheets("Feuil1").Range("A1").CurrentRegion If InStr(c, trim(Sheets("Feuil2").Range("A1"))) > 0 Then c.ClearContents Next c

---

:ccool:C'est super, tu avances çà supprime les noms mais j'ose te demander de préciser encore mieux ton code dans les conditions suivantes :
Admettons qu'il y a des noms dans n'importe quelles cellules de la Feuil1 et que ayant inscrit dans une colonne de la Feuil2 un ou/et plusieurs noms j'active une macro lui demandant de supprimer les noms correspondants dans la Feuil1 en laissant les cellules vides.8O
Je suis très confiant et te souhaite de réussir.
Merci mille fois.
Cordialement.

Mercatog est venu te sauver !
J'ai relu ta question et effectivement j'avais mal compris:roll: Je persistais a rechercher des lignes au lieu de rechercher des cellules.

Je pense que j'aurai réussi a ma manière mais pas en 4 lignes comme Mercatog

Bonne soirée à vous deux

Code:

---

1 2 3 4 5 6 7 8 9

Dim c As Range, v As Range   For Each v In Sheets("Feuil2").Range("A1:A10") If v <> "" Then For Each c In Sheets("Feuil1").UsedRange If InStr(c, v) > 0 Then c.ClearContents Next c End If Next v

---