Fusionner action code sur 2 feuilles

bonjour à tous,

j'ai écrit ce code en m'inspirant de ce que j'ai trouvé sur le forum et il fonctionne bien, mais je l'ai répété 2 fois pour agir sur les feuilles "Entrees" et "Sorties".

je me dis quand même qu'il doit exister une meilleure façon de goupiller cela, et comme j'apprends en même temps, ça m'aiderait d'avoir une autre approche.

raison pour laquelle je me tourne vers vous.

         Fin = Sheets("Sorties").Range("C1").End(xlDown).Row - 1
For Articles = Fin To 2 Step -1
       Codes = Sheets("Sorties").Range("H" & Articles).Value
If Application.CountIf(Sheets("Sorties").Range("H:H"), Codes) > 1 Then
       ligne = Application.Match(CLng(Codes), Sheets("Sorties").Range("H:H"), 0)
      Sheets("Sorties").Range("H" & ligne).EntireRow.Delete
    End If
  Next

         Fin = Sheets("Entrees").Range("C1").End(xlDown).Row - 1
For Articles = Fin To 2 Step -1
       Codes = Sheets("Entrees").Range("H" & Articles).Value
If Application.CountIf(Sheets("Entrees").Range("H:H"), Codes) > 1 Then
       ligne = Application.Match(CLng(Codes), Sheets("Entrees").Range("H:H"), 0)
      Sheets("Entrees").Range("H" & ligne).EntireRow.Delete
    End If
  Next

merci d'avance.

Pedro.

Hello,

Je suis d'avis d'avoir un code certes mal optimisé mais écris par soi-même plutôt qu'un code optimisé mais écrit par quelqu'un d'autre ...

Et crois moi, tu l'apprendras à tes depens ...

Ceci étant dit voila une autre approche :

dim Tab_Feuille, La_Feuille

Tab_Feuille = array("Sorties","Entrees")

for each La_Feuille in  Tab_Feuille 
with sheets(La_Feuille)
 Fin = .Range("C1").End(xlDown).Row - 1
For Articles = Fin To 2 Step -1
       Codes = .Range("H" & Articles).Value
If Application.CountIf(.Range("H:H"), Codes) > 1 Then
       ligne = Application.Match(CLng(Codes), .Range("H:H"), 0)
      .Range("H" & ligne).EntireRow.Delete
    End If
  Next
end with
next La_Feuille 
         

R@g

bonjour Rag02700,

je suis d'accord avec votre réflexion.

c'est juste qu'après coup j'ai trouvé le code redondant.

merci bcp pour votre aide.

bien à vous.

Pédro D.

re,

ça fonctionne nickel. encore merci.