Bonjour à tous et bonjour le forum,

Mon programme recherche parmis un grosse selection (A5 à AV1089) et la procédure met environ 5 minutes à s'executer. Existe-il un moyen de l'optimiser ?

mon code qui prend 5 minutes à se réaliser :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
'+++++++++++ FEUILLE 6 +++++++++++++++
 
Dim R1 As Range
'---
Dim Rng2 As Range
Dim Page1 As Worksheet
Set Page1 = ThisWorkbook.Sheets("feuil6")
'Recherche entre A5 et AV1089
Set Rng2 = Page1.Range("A5:AV1089")
Set R1 = Range(Rng2.Offset(0, 0), Rng2.Offset(0, 0).End(xlDown).End(xlToRight))
For Each C In R1
  If C = ListBoxA1a.Value Then
    TextBoxNom.Text = C.Offset(0, 1)
    Exit For
  End If
Next C
Merci pour votre attention

Cordialement