nettoyer classeur 2 , en cliquant sur bouton nettoyer

[VBA_première_fois]

bonjour
merci d'avance pour votre aide

j'ai 2 classeurs excel "classeur1 " et "classeur2"

le classeur1 contient des données dans la colonne A et B et un bouton " nettoyer "

je souhaite en cliquant sur le bouton " nettoyer " il prend les données du classeur1

les cherche dans le classeur 2 et les supprime

j'ai mis un fichier joint pour faciliter l explication
j'essaie depuis 2 jours mais je n ai pas réussi

 

[Papou-net]

Re : nettoyer classeur 2 , en cliquant sur bouton nettoyer

Bonsoir VBA_première_fois,

Si j'ai bien compris ta question, voici le code à attacher à ton bouton de la feuille 1 du classeur 1 :

Private Sub CommandButton1_Click()
For Each cel In Sheets("Feuil1").Range("A2:A" & Range("A65536").End(xlUp).Row)
  Set nom = Workbooks("Classeur2.xls").Sheets("Feuil1").Range("A:A").Find(cel.Value, LookIn:=xlValues)
  If Not nom Is Nothing Then
    Workbooks("Classeur2.xls").Sheets("Feuil1").Range("A" & nom.Row).EntireRow.Delete
  End If
Next
End Sub

Espérant avoir répondu.

Cordialement.