recherche avec textbox

[poussy67]

Bonjour le forum

J'ai un textbox, quand je saisie une réf il alimente un deuxième textbox. Cela fonctionne
très bien quand je saisie des chiffres avec une lettre, mais quand je saisie que des chiffres cela ne fonctionne pas et je n'ai toujours pas trouvé de solution.

voici mon code

Private Sub TextBox_code_Client1_Change()
Dim cell As Range
For Each cell In Range("A2:A" & Range("A2").End(xlDown).Row)
If cell.Value = TextBox_code_Client1 Then
TextBox_Nom1.Value = cell.Offset(0, 1).Value
End If
Next cell
End Sub

Si un pro. de vba pourrait me donné un coup de pouce
Un grand merci d'avance

cdt poussy

 

[Pierrot93]

Re : recherche avec textbox

Bonjour,

essaye peut être avec les fonctions de conversion :
val(textbox) si pas de décimale sinon CDbl(textbox)
bonne journée
@+

 

[JNP]

Re : recherche avec textbox

Bonjour le fil 🙂,
Essaie avec un Find, ce sera plus rapide et plus efficace 🙄...

Private Sub TextBox_code_Client1_Change()
Dim cell As Range
Set cell = Range("A2:A" & Range("A2").End(xlDown).Row).Find(TextBox_code_Client1, lookat:=xlWhole)
If Not cell Is Nothing Then
TextBox_Nom1.Value = cell.Offset(0, 1).Value
End If
End Sub

Bonne journée 😎

 

[poussy67]

Re : recherche avec textbox

Impect

cela foctionne tres bien un enorme merci pour votre coup de pouce
cdt poussy
Bonne journée