Discussion :

[loune50]

Bonjour a tous,

Tout d'abord merci pour l'aide du forum qui est une vrai mine d'or

J'ai ( pour ceux qui m'ont deja lu) un fichier de gestion dans lequel je peux faire des entrée des modifications des recherches et autre et je bloque sur un code

j'aimerai qu'appartir d'un texbox je puisse rentré une reference (n°Formule )et que sur une autre texbox (Désignation) il m'affiche a quoi corresponde cette reference exemple

N°Formule ;45454
Désignation ;interrupteur marron

sachant que il y a une base de donnée dans un onglet ( Formule avec en colonne A les reference en colonne B les désignation )
voici mon code qui ne marche pas.

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
17
Private Sub TextBoxdes_Change()
Dim vrech As Range
'je recherche dans la colonne C la valeur de la combo
Set vrech = Sheets("Clients").Columns("A:a").Find(Me.TextBoxfor.Value)
 
'si je trouve une valeur alors j'affiche la valeur correspondante de la
'colonne B dans le textbox
If Not vrech Is Nothing Then
  Me.TextBoxdes.Value = vrech.Offset(0, 1).Value
 
'sinon j'affiche un message
Else
MsgBox "désignation non trouvé!"
End If
 
 
End Sub

[jfontaine]

Bonjour,

Ton code ne devrait pas etre plutôt dans TextBoxfor_Change ?

[loune50]

Bonjour et merci beaucoup effectivement je me suis trompé de textbox
cela dit mon nouveau probleme est qu'il s'arrete des que je tape un seul chiffre alors que j'en ai 5 a taper??
Avez vous une idée ??