Trouver

[candido57]

Bonjour,

Actuellement j’ai cette macro qui me permet lorsque je tape sur un textBox un code les autres TexteBox se remplissent s’ils voient la même référence.
Le problème la fenêtre s’ouvre dès qu’elle reconnait 1 chiffre. Je souhaite terminer de taper mon code, faire enter et ce moment là la fenêtre apparait.

Merci de votre aide

Private Sub TextBox4_Change()

derligne = Range("A65535").End(xlUp).Row + 1
n = EQUIVAL(TextBox4.Value, Range("E:E"), 0)
If n <> 0 Then
MsgBox "Trouvé ligne " & n
TextBox6.Value = Range("B:B")(n) ' date
TextBox5.Value = Range("F:F")(n)
TextBox6.Value = Range("G:G")(n)
TextBox7.Value = Range("H:H")(n)
TextBox12.Value = Range("N:N")(n)
Combo_Fournisseur.Value = Range("I:I")(n)
ComboBox1.Value = Range("D")(n)
'......
Else
TextBox6.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
TextBox12.Value = ""
Combo_Fournisseur.Value = ""
ComboBox1.Value = ""
'......
End If
End Sub

 

[mapomme]

Re : Trouver

Bonjour candido57,

Déplacez le code dans la procédure évènementielle TextBox4_AfterUpdate() au lieu dans TextBox4_Change().

 

[candido57]

Re : Trouver

Super , c’est ce que je voulais

merci beaucoup