Discussion :

[Arsene22]

Bonjour,

Je cherche un moyen pour rendre la macro de mon bouton "rechercher" rapide. lorsque je saisie un matricule et que je clique sur mon bouton, l'useform se plante un moment avant que les informations de la ligne recherchée ne s"affichent dans mes textbox.
Ci-dessous le code de mon bouton "Rechercher"
Merci d'avance.

Code vba :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Private Sub CommandButton13_Click()
If Me.ComboBox19.Value <> "" Then
With Sheets("BD_CENTRALISEE")
Last1 = .Cells(Rows.Count, "A").End(xlUp).Row
Set c = .Range("A2:A" & Last1).Find(Me.ComboBox19.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
lig = c.Row 'dans Lig on a la ligne de la donnée trouvée
Me.ComboBox4.Value = .Range("F" & lig)
Me.ComboBox2.Value = .Range("I" & lig)
Me.Textbox1.Value = .Range("E" & lig)
Me.TextBox6.Value = .Range("G" & lig)
Me.TextBox7.Value = .Range("H" & lig)
Me.ComboBox23.Value = .Range("A" & lig)
Me.ComboBox1.Value = .Range("B" & lig)
Me.ComboBox13.Value = .Range("L" & lig)
Me.ComboBox12.Value = .Range("K" & lig)
Me.ComboBox3.Value = .Range("J" & lig)
Me.ComboBox7.Value = .Range("D" & lig)
Me.ComboBox5.Value = .Range("C" & lig)
Set c = Nothing
Else
MsgBox " Ce..... n'est pas enregistré "
End If
End With
Else
MsgBox "Renseignez le Matricule à chercher"
End If
ComboBox23.Locked = False
ComboBox1.Locked = False
ComboBox4.Locked = False
ComboBox2.Locked = False
ComboBox3.Locked = False
ComboBox7.Locked = False
TextBox6.Locked = False
ComboBox5.Locked = False
TextBox7.Locked = False
ComboBox12.Locked = False
CommandButton3.Enabled = True
CommandButton7.Enabled = True
End Sub

[Patrice740]

Bonjour,

Je ne vois qu'une raison à la lenteur de cette macro : ce n'est pas la seule macro du classeur !