Améliorer mon code de visualisation des impayés à partir de critères définis

Bonsoir le forum

Je sollicite votre aide pour améliorer les performances du code ci-dessous.
En effet, je passe par le filtre avancé pour extraire les factures impayés.
Les feuilles concernées sont les suivantes :
ETAT_VENTE : elle centralise toutes les ventes facturées
CRITERES : elle comporte les critères pour le filtre avancé
IMPAYES : les facture impayés sont extraites et collées sur cette feuille.
Il faut signaler que toutes les feuilles sont protégées et cachées au départ et à la fin de l'exécution du code sauf la feuille impayée qui reste visible pour permettre au caissier de voir les factures impayées.
Le véritable problème du code est qu'il fonctionne mais il est très lent et je souhaite qu'on m'aide à améliorer le code.

Code:

---

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

Application.DisplayAlerts = False Sheets("ETAT_VENTE").Visible = True Sheets("CRITERES").Visible = True Sheets("IMPAYES").Visible = True Sheets("IMPAYES").Unprotect "pla" Sheets("ETAT_VENTE").Unprotect "pla" Sheets("ETAT_VENTE").Select Range("A1:N300000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _ Sheets("CRITERES").Range("A1:N2"), Unique:=False Columns("A:N").Select Selection.Copy Sheets("IMPAYES").Select Columns("A:A").Select ActiveSheet.Paste Sheets("ETAT_VENTE").Select Application.CutCopyMode = False 'ActiveSheet.ShowAllData Range("A1").Select Application.DisplayAlerts = True Sheets("IMPAYES").Select Range("A1").Select Sheets("ETAT_VENTE").Visible = False Sheets("CRITERES").Visible = False Sheets("IMPAYES").Protect "pla" Sheets("ETAT_VENTE").Protect "pla"

---

Merci de m'aider sachant que je reste disponible pour tout complément d'information.

Bonsoir,

Ton code est "très lent" car tu utilises:
- des select
- tu ne figes pas l'écran
- des copy/paste (=copier coller)

Commence par figer l'écran avec Application.ScreenUpdating = False et tu le libères ensuite avec Application.ScreenUpdating = True.
Ne force pas les feuilles à s'afficher avec select. Exemple
--> pour compléter (une seule cellule) "A1" de la feuille "feuille_destination" avec "A3" de la feuille "feuille_origine" tu peux simplement faire:

Code:

---

Sheets("feuille_destination").range("A3")=Sheets("feuille_origine").range("A1")

---

--> pour compléter (plusieurs cellules) "A1", "A2" et "A3" de la feuille "feuille_destination" avec "A11", "A12" et "A13" de la feuille "feuille_origine" tu peux simplement faire:

Code:

---

Sheets("feuille_destination").range("A1:A3").Value=Sheets("feuille_origine").range("A11:A13").value

---

Et ça marche même si l'une ou l'autre de ces feuilles est masquées.

Bonsoir Alex et le forum

Merci pour cette leçon qui en dit tout.
Je m'excuse pour le temps de retour.
J'ai essayé d'appliquer vos conseils sur mon code initial mais je rencontre un bug sur la ligne ci-dessous:

Code:

---

Sheets("IMPAYES").Range("A1:N300") = Sheets("ETAT_VENTE").Range("A1:N300")

---

Merci d'apprécier le reste du code si possible.

Code:

---

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

Application.ScreenUpdating = False Application.DisplayAlerts = False Sheets("IMPAYES").Unprotect "pla" Sheets("ETAT_VENTE").Unprotect "pla"   Sheets("ETAT_VENTE").Range("A1:N300000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _ Sheets("CRITERES").Range("A1:N2"), Unique:=False Sheets("IMPAYES").Range("A1:N300") = Sheets("ETAT_VENTE").Range("A1:N300") Application.CutCopyMode = False ' Sheets("ETAT_VENTE").Range ("A1")   Application.DisplayAlerts = True Sheets("IMPAYES").Select Range("A1").Select Sheets("IMPAYES").Protect "pla" Sheets("ETAT_VENTE").Protect "pla" Application.ScreenUpdating = True

---

Dans ton code

Code:

---

Sheets("IMPAYES").Range("A1:N300") = Sheets("ETAT_VENTE").Range("A1:N300")

---

tu travailles avec plusieurs cellules donc tu dois mettre

Code:

---

Sheets("IMPAYES").Range("A1:N300").value = Sheets("ETAT_VENTE").Range("A1:N300").value

---

As-tu un fichier exemple à poster ici ?

Ci-joint un exemple de fichier pour test.
NB :
- toutes les feuilles devraient être masquées pendant le traitement sauf la feuille ACCUEIL,

Voilà.

Je t'ai également fait la mise en forme des données.

Bonsoir Alex

Rien à signaler sur le travail abattu.
Vous avez su répondre à toutes mes attentes.
Je suis vraiment très comblé et vous dis infiniment merci.
:D