Problème dans un code de remplissage depuis listbox au textbox

Version imprimable

03/04/2015, 20h43
foular

1 pièce(s) jointe(s)

Problème dans un code de remplissage depuis listbox au textbox

Bonjour,
j'ai un problème dans un userform lorsque tapé un nom du client(e) dans la textbox et apparaît dans la listbox et après avoir appuyé sur ce dernier s’affiche les données du client dans les autres textbox mais une seul textbox reste vide. et j'essayé de trouver le problème, mais n'a pas réussi.
SVP aidez mois pour trouve le problème.
03/04/2015, 21h25
gnain

Bonjour,
quel textbox ?
et quel colonne veux-tu afficher dans ce textbox ?
03/04/2015, 23h36
foular

gnain merci beaucoup de votre intérêt.
et pour votre question ce la textbox98 et la colonne qui afficher dans ce textbox est la colonne "J" colonne "N°10"

Pourquoi ne pas fonctionner comme cela

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Private Sub TextBox88_Change()
On Error Resume Next
TextBox96 = ""
TextBox97 = ""
TextBox98 = ""
TextBox89 = ""
TextBox90 = ""
TextBox91 = ""
TextBox92 = ""
TextBox93 = ""
TextBox94 = ""
TextBox95 = ""
TextBox118 = ""
TextBox119 = ""
 
ListBox4.Visible = True
Dim ws As Worksheet
 
Dim LastRow As Integer
Dim M As String
Dim q, F
ListBox4.Clear
If TextBox88.Text = "" Then GoTo 1
M = TextBox88.Text
Set ws = Sheets("Clients")
With ws
    LastRow = .Cells(.Rows.Count, "C").End(xlUp).Row
    Set q = .Range("C9:C" & LastRow).Find(M)
    If Not q Is Nothing Then
    F = q.Address
 
    If Application.WorksheetFunction.Search(M, q, 0) = 1 Then
        ListBox4.AddItem q.Value
 
        TextBox89 = q.Offset(0, 1).Value 'adaptateur parler
        TextBox90 = q.Offset(0, -1).Value 'date
        TextBox91 = q.Offset(0, 4).Value '1500
        TextBox92 = q.Offset(0, 2).Value '5
        TextBox93 = q.Offset(0, 6).Value '7500
        TextBox94 = q.Offset(0, 8).Value + q.Offset(0, 9).Value '0
        TextBox95 = q.Offset(0, 10).Value '7500
        TextBox96 = q.Offset(0, 3).Value '380
        TextBox97 = q.Offset(0, 5).Value '1900
        TextBox98 = q.Offset(0, 7).Value 'rien
 
 
         End If
         Set q = .Range("C9:C" & LastRow).FindNext(q)
 
     End If
End With
1
End Sub

04/04/2015, 13h45
foular

Bonjour,
gnain merci beaucoup exactement ce que je veux.
mais quand il ya un nom en double plus d'une fois dans la page du client, et lorsque écrire ce dernier dans les textbox il affiche qu'une seul fois dans la listbox.
merci

Bonjour,
dans ce cas oublier le dernier code que je vous ai donné.

si on revient à votre code original, le pourquoi ça ne fonctionnait pas est que
une listbox rempli comme cela

Code:

listbox4.list(X,Y) = Valeur

ne peut contenir plus de 10 colonnes
alors pour palier à cela il faut remplir la listbox avec un array
comme cela

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Private Sub TextBox88_Change()
On Error Resume Next
ListBox4.Visible = True
Dim ws As Worksheet
Dim V As Integer
V = 1
Dim arrLstBox(1 To 100, 1 To 50)
Dim LastRow As Integer
Dim M As String
Dim q, F
ListBox4.Clear

If TextBox88.Text = "" Then GoTo 1
M = TextBox88.Text
Set ws = Sheets("Clients")
With ws
     LastRow = .Cells(.Rows.Count, "C").End(xlUp).Row
    Set q = .Range("C9:C" & LastRow).Find(M)
    ListBox4.ColumnCount = 50
    If Not q Is Nothing Then
        F = q.Address
        Do
            If Application.WorksheetFunction.Search(M, q, 0) = 1 Then
                ListBox4.AddItem q.Value
                 
                arrLstBox(V, 1) = q.Value
                arrLstBox(V, 2) = q.Offset(0, 1).Value
                arrLstBox(V, 3) = q.Offset(0, -1).Value
                arrLstBox(V, 4) = q.Offset(0, 4).Value
                arrLstBox(V, 5) = q.Offset(0, 2).Value 'qte
                arrLstBox(V, 6) = q.Offset(0, 6).Value
                arrLstBox(V, 7) = q.Offset(0, 8).Value + q.Offset(0, 9).Value
                arrLstBox(V, 8) = q.Offset(0, 10).Value
                arrLstBox(V, 9) = q.Offset(0, 3).Value
                arrLstBox(V, 10) = q.Offset(0, 5).Value
                arrLstBox(V, 11) = q.Offset(0, 3).Value
                arrLstBox(V, 12) = q.Offset(0, 5).Value
                arrLstBox(V, 13) = q.Offset(0, 3).Value                
                V = V + 1
            End If
            Set q = .Range("C9:C" & LastRow).FindNext(q)
        Loop While Not q Is Nothing And q.Address <> F
        ListBox4.List = arrLstBox()
    End If
End With
1
TextBox96 = ""
TextBox97 = ""
TextBox98 = ""
TextBox89 = ""
TextBox90 = ""
TextBox91 = ""
TextBox92 = ""
TextBox93 = ""
TextBox94 = ""
TextBox95 = ""
TextBox118 = ""
TextBox119 = ""
End Sub

05/04/2015, 12h10
foular

bonjour,
gnain merci beaucoup exactement ce que je veux.

j'ai un autre point dans ce forme pour le bouton enregistrer je veux inséré un code avec l'existence de deux conditions:

la première condition est:

Code:

if textbox89.value = 0

cela signifie que le client payer totalement le montant de la marchandise et dans ce cas j’inclue un code qui permet d'enregistrer les données de ("textbox89","textbox91","textbox92","textbox93","textbox96","textbox97",
"textbox98","textbox120") dans la page de "Vents", et ("textbox89","textbox91","textbox92") dans la page du "Clients" dans le même ligne du client, et je le fait ce code sans problème.

et que je vous demande d'accomplir la deuxième condition qui suivant:

La deuxième condition est:

Code:

if textbox89.value ≠ 0

cela signifie que le client payer une partie du montant de la marchandise, et dans ce cas je veux insèré code permet d'enregistrer les données de ("textbox89" dans "colonne9" ,"textbox91" dans "colonne10","textbox92" dans "colonne11") dans la page de "Clients" sous la ligne du client(e) Chaque processus d'enregistrement.
En même temps l'enregistrement les données du ("textbox94" dans "colonne12" ,"textbox95" dans "colonne13") dans le même ligne du client(e)

j'espère que mon explication est claire, peut-être il y'a quelques complexe dans le processus.
05/04/2015, 13h25
gnain

c'est quoi #8800; 0
05/04/2015, 13h43
foular

pardon c'est
if textbox89.value ≠ 0
05/04/2015, 14h24
gnain

donc il faut codé ainsi

Code:

if textbox89.value <> 0
05/04/2015, 15h22
foular

exactement,
e veux laformule du code
06/04/2015, 01h03
gnain

Citation:

Envoyé par foular

... et que je vous demande d'accomplir la deuxième condition qui suivant: ...
e veux laformule du code

relis-toi

Citation:

Envoyé par foular

... et que je vous demande d'accomplir la deuxième condition qui suivant: ...
e veux laformule du code

relis-toi

Citation:

Envoyé par foular

... et que je vous demande d'accomplir la deuxième condition qui suivant: ...
e veux laformule du code

relis-toi

Citation:

Envoyé par foular

... et que je vous demande d'accomplir la deuxième condition qui suivant: ...
e veux laformule du code

relis-toi .... relis-toi ... relis-toi ....

Je doit passer la main.
en espérant de t'avoir aidé.
06/04/2015, 18h45
foular

bonjour,
gnain merci beaucoup et Désolé pour mon style d'écriture parce que je ne maîtrisais bien le français.