Bonjour,
après avoir arpenter le forum à la recherche de mon problème, je me tourne vers vous pour tenter d'obtenir ma solution.
Je m'explique je travail (stage) depuis 2 jours sur un userform pour simplifier la saisie des employés.
Vous pourrez constater dans mon userform4 une liste déroulante. Le but serait qu'en selectionnant un client, ses données (num de comte) s'inscrive directement des les TextBox concerné. Pour se faire javais entrer ce code :
Private Sub essai_Change()
Dim client As String
Dim x As Range
If Not essai.Value = "" Then
MsgBox "Vous avez selectionné le client " & essai.Value & " cela est il correct ?"
End If
Set x = Sheets("ListeClient").Range("A1:A999").Find(essai.Value, , xlValues, xlWhole, , , False)
If Not x Is Nothing Then
TextBox7.Value = x.Offset(0, 1).Value
End If
End Sub
ma liste marche mais pas l'inscription des comptes
est ce que quelqu'un aurait donc une idée ? ou mon code est il simplement faux ?
Le fichier se trouve ci dessous
en esperant trouver la solution et aider d'autres.
En tout cas je remercie d'avance tous les membres de se forum car les posts m'ont souvent sortie de grande galère
après avoir arpenter le forum à la recherche de mon problème, je me tourne vers vous pour tenter d'obtenir ma solution.
Je m'explique je travail (stage) depuis 2 jours sur un userform pour simplifier la saisie des employés.
Vous pourrez constater dans mon userform4 une liste déroulante. Le but serait qu'en selectionnant un client, ses données (num de comte) s'inscrive directement des les TextBox concerné. Pour se faire javais entrer ce code :
Private Sub essai_Change()
Dim client As String
Dim x As Range
If Not essai.Value = "" Then
MsgBox "Vous avez selectionné le client " & essai.Value & " cela est il correct ?"
End If
Set x = Sheets("ListeClient").Range("A1:A999").Find(essai.Value, , xlValues, xlWhole, , , False)
If Not x Is Nothing Then
TextBox7.Value = x.Offset(0, 1).Value
End If
End Sub
ma liste marche mais pas l'inscription des comptes
est ce que quelqu'un aurait donc une idée ? ou mon code est il simplement faux ?
Le fichier se trouve ci dessous
en esperant trouver la solution et aider d'autres.
En tout cas je remercie d'avance tous les membres de se forum car les posts m'ont souvent sortie de grande galère