Utilisation d'un textbox comme index

[BERRACHED said]

salut les Forum
j'ai fait un usform avec 6 textbox pour pouvoir faire des mises a jours(Modification et supression) sur les enregistrements de la base de donnees("BD") le textbox1 servira d'index aux autres textbox une fois je tape le n°de client dans le textbox1 les resultats s'affichent dans les autres textbox si vous voulez le contenu des cellules adjacents de ma BD s'afficherons dans les textbox seulement je n'arrive pas a bien faire fonctionner mon code.
je vous remercie d'avance

 

[fanfan38]

Re : Utilisation d'un textbox comme index

Bonjour
Je ferai:
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Application.ScreenUpdating = False 'pour éviter les flash d'ecran
Sheets("BD").Select
For i = 2 To 150 'parcourons les differentes cellules de la plage de recherche(INDEX)
If Cells(i, 2).Value = CInt(TextBox1.Value) Then 'si le resultat est trouver on l'affiche dans les txtbox
On Error Resume Next
TextBox2 = Sheets("BD").Range("D" & i)
TextBox3 = Sheets("BD").Range("E" & i)
TextBox4 = Sheets("BD").Range("F" & i)
TextBox5 = Sheets("BD").Range("G" & i)
TextBox6 = Sheets("BD").Range("H" & i)
On Error GoTo 0
End If
Next i
Sheets("Interface").Select
Application.ScreenUpdating = True
End Sub
Pourquoi textbox exit car à chaque saisie(3, 6, 7,...)la macro se fait en prenant change
Perso j'aurai mis un combobox plutot qu'un textbox: plus agreable....

A+ François

 

[G.David]

Re : Utilisation d'un textbox comme index

salut
essayes ceci:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim lig As Integer
Dim plage As String
Dim f As Integer
Sheets("BD").Select
f = Range("b65535").End(xlUp).Row
plage = "b2:b" & f
With Range(plage)
Set c = .Find(CDec(TextBox1.Value), LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
lig = c.Row
For t = 2 To 6
Controls("textbox" & t).Value = Cells(lig, t + 2).Value
Next
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub

Cordialement
G.David