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
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