Discussion :

[MatthieuT42]

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

[SmallFlower]

Salut,

Plutôt que de passer par une boucle de recherche regarde du côté de la fonction: FIND().

Par exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Recherche()
  Dim rngC As Range
  Set rngC = ThisWorkbook.Worksheets("feuil6").Range("A5:AV1089").Find(What:=ListBoxA1a.Value)
  If rngC Is Nothing Then
    Debug.Print ("Valeur non trouvée !")
  Else
    Debug.Print (rngC.Offset(0, 1))
  End If
End Sub

Tu peux aussi faire une recherche multiple pour boucler sur toutes les occurrences.

[MatthieuT42]

Merci pour ta réponse,

juste une petite question, ou dois-je rentrer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
  If rngC Is Nothing Then
    Debug.Print ("Valeur non trouvée !")
  Else
Debug.Print (rngC.Offset(0, 1)) = textboxNom.txt 

[SmallFlower]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Recherche()
  Dim rngC As Range
  Set rngC = ThisWorkbook.Worksheets("feuil6").Range("A5:AV1089").Find(What:=ListBoxA1a.Value)
  If rngC Is Nothing Then
    Debug.Print ("Valeur non trouvée !")
  Else
    TextBoxNom.Text = rngC.Offset(0, 1)
  End If
End Sub

[MatthieuT42]

Ah oui tout simplement !

En tout cas un grand Merci pour ta réponse ! ça fonctionne parfaitement et c'est rapide !

Encore bravo et passe une excellente journée !