• Initiateur de la discussion Initiateur de la discussion gerardd3617
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

G

gerardd3617

Guest
bonsoir
j'ai recuperé 2 macros mais je trouve que la recherche est long "45 secondes "pour 250 lignes
pouvez vous regarder
cordialement
 
Dernière modification par un modérateur:
Re : macro qui est lente

Bonjour Gérard,

dans ce cas, il faut enlever la protection en début du code et la remettre à la fin:

Code:
Sub CopiLign()
Dim PremLigFiltre As Long, DerLigFiltre As Long
With Sheets("SOURCE")
    [COLOR=Blue][B].Unprotect[/B][/COLOR]
    .Range("B9").AutoFilter Field:=2, Criteria1:=">5"
    PremLigFiltre = .Range("_Filterdatabase").Offset(2).Row
    DerLigFiltre = .Range("_Filterdatabase")(.Range("_Filterdatabase").Count).Row
    .Range("A" & PremLigFiltre & ":AJ" & DerLigFiltre).Copy Sheets("RECAP").Range("A5")
    .Range("B9").AutoFilter
   [COLOR=Blue][B] .Protect[/B][/COLOR]
End With
End Sub
 
Re : macro qui est lente

bonsoir a tous,
finalement après bien des essais j'ai fini par adopter la macro de staple1600, qui ,lui avait déja copier sur skoobi.Enfin je ne sais plus qui a fait quoi mais un grand merci a vous tous car la recherche est passée de 30secondes à 1 seconde
merci et bravo
gégé
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
19
Affichages
869
Réponses
7
Affichages
369
Retour