mNouveau venumth_26Inscrit le :24/01/2019Dernière activité :28/01/2019 à 21:02Version d'Excel :2013Messages4Votes0Fichiers0Téléchargements0SujetsMessagesStatistiquesVotes reçus Messages postés par mth_26DateAuteur du sujetSujetExtrait du message24/01/2019 à 22:05mth_26Optimisation/modif codeJ'ai dupliqué ce code sur les autres boutons (8 au total car 8 critères différents) en modifiant le critère de discrimination mais là j'ai un petit soucis. Les lignes 1 à 8 incluses ne doivent pas etre supprimées. j'ai besoin d'une constante parce que des lignes peuvent etre ajoutées dans le fichier...24/01/2019 à 21:55mth_26Optimisation/modif codeTop top, une toute petite modif de rien du tout (lignes 1 à 8 = en tete) j'avais pas du tout envisagé la macro dans ce sens Merci beaucoup! bonne soirée...24/01/2019 à 21:31mth_26Optimisation/modif codeMerci, j'ai testé mais ça n'améliore pas l'efficience du code et pourtant il y a à peine 1000 lignes à supprimer. La macro dans sa globalité prend plus de 5 minutes à se réaliser. Lorsque je fais le pas à pas c'est à cette étape que la macro boucle boucle et reboucle...24/01/2019 à 20:54mth_26Optimisation/modif codeJ'aimerais optimiser le code ci-dessous. Je souhaite supprimer toutes les lignes qui ne répondent pas au critère filtré et jusqu'à la dernière ligne non vide. Voici mon code: With ActiveWorkbook.Sheets("Cat. Méth. NCPF") For i = .Range("A" & .Rows.Count).End(xlUp).Row To 9 Step -1 If .Range("A" & i)...Forums