Dbl-clic resultat Listbox pour copier le résultat dans un textbox d'un autre userform

Version imprimable

06/10/2015, 09h49
MattAdm33

Dbl-clic resultat Listbox pour copier le résultat dans un textbox d'un autre userform

Bonjour,

J'avance petit à petit sur mon projet, cependant je bloque encore, trop compliqué pour moi de trouver une solution a cette problématique. Je m'explique :
J'ai un userform dans lequel je peux ouvrir un listbox qui me permet de rechercher dans ma base client, je tape donc le nom et s'affiche la liste des client.
J'aimerais que quand je double clic sur le client souhaité, son n° de client puisse ce copié dans le premier userform ouvert en amont et referme la listbox !

Merci de votre aide, je suis vraiment bloqué et je ne sais pas par ou commencer !!

A bientôt !

MattAdm33 ;)
06/10/2015, 10h10
quentinvba

Salut !

Je pense que tu pourras t'en sortir avec l'événement Workbook_SheetBeforeDoubleClick (mettre en private Sub) qui se produit juste avant ton double clic.

Mets ensuite tes instructions à l'intérieur de cette Sub ! ;) A noter que "Target" désignera la cellule visée par ton double clic.

J'espère que cela t'aidera suffisamment !

Quentin
06/10/2015, 11h25
MattAdm33

Merci

Bonjour Quentin,

Merci pour ta réponse, ça m'aide un petit peu, mais j'avoue qu'un début de code pour m'aider.

Si tu peux m'aider l'a dessus, je sais que j'abuse un peu, mais je suis dépassé !!

Merci pour ton aide.

Matt
06/10/2015, 11h36
quentinvba

Je comprends, mais c'est difficile sans en savoir davantage sur l'architecture de ton classeur/userform. :P

Tu doubles clic dans ta listbox ? Dans ce cas il ne faudra pas utiliser Workbook_SheetBeforeDoubleClick (qui est pour une cellule) mais ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

D'où provient le n° de client ? C'est sur celui ci que tu clic ou sur un nom de client ?
06/10/2015, 13h19
MattAdm33

J'explique

En effet, avec un peu plus d'information tu y verras un peu plus clair !!

Enfaite j'ouvre un userform qui me permet de gérer des encaissements. Lorsque que je saisi mes ventes, je vais chercher mon numéro de client. Pour cela j'ai un bouton qui me permet d'afficher ma listbox dans laquelle je recherche le nom et prénom de mon client. (une fois que je l'ai, je retiens le n° de client et le renseigne manuellement)

Ce que je cherche, c'est quand je lance ma recherche, je doubleclic sur le résultat souhaité et le n° de client se copie dans le textbox "N° de Client".

Mes données clients son enregistrés dans une feuille Excel nommée "BaseClient".

Si besoin, je peux t'envoyer mon fichier.

Merci pour ton aide.

Bye

Matt
06/10/2015, 13h28
SfJ5Rpw8

Bonjour,

pas besoin du fichier montre nous plutôt le code qui te permet de remplir ton listbox .. et dis nous comment sont organisée tes données dans ta feuille source ...

Citation:

(une fois que je l'ai, je retiens le n° de client et le renseigne manuellement)

tu le vois ou le numéro de client ?

Code ListBox

Bonjour Bbil,

voici le code qui me permet d'afficher les données clientes dans mon listbox :

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
60
61
62
63
64
Private Sub TextBox1_Change()
On Error Resume Next
 
Dim i&, fin&, Y&, mem As Boolean, cc() As Variant, bb() As Variant, a&
    Application.ScreenUpdating = 0
    If TextBox1 = "" Then ListBox1.Clear: Exit Sub '
    efface = True 'instanciation de la variable efface=true (critère actif pour effacement de feuille)
    ListBox1.Clear: ListBox1.ColumnWidths = "60;80;80;100;80;60;80;65;65;80"
 
    With Feuil4
        Y = 1
        fin = .Cells.Find("*", , xlValues, , 1, 2, 0).Row
        aa = .Range("A2:K" & fin)
    End With
 
    For i = 1 To UBound(aa)
    aa(i, 11) = i + 5
        For a = 1 To UBound(aa, 2)
            If aa(i, a) Like "*" & TextBox1 & "*" Then aa(i, 11) = "oui": Y = Y + 1: Exit For
        Next a
    Next i
    If Y = 1 Then Exit Sub
    If Y = 2 Then
        For i = 1 To UBound(aa)
            If aa(i, 11) = "oui" Then
            ReDim cc(1, UBound(aa, 2) - 1)
                For a = 1 To UBound(cc, 2)
                    cc(1, a) = aa(i, a)
                Next a
                 Sheets.Add After:=Sheets(Sheets.Count)
                 Sheets(Sheets.Count).Range("A1:K1").Value = Sheets("BaseClient").Range("A1:K1").Value
                 Sheets(Sheets.Count).Range(Cells(2, 1), Cells(UBound(cc, 1) + 1, UBound(cc, 2))) = cc
                With Sheets(Sheets.Count)
                ListBox1.RowSource = "A2:" & .Cells(UBound(cc, 1) + 1, UBound(cc, 2)).Address
 
                         End With
 
               mem = 1: Exit For
            End If
        Next i
    Else
        ReDim bb(Y - 1, UBound(aa, 2) - 1)
        Y = 1
        For i = 1 To UBound(aa)
            If aa(i, 11) = "oui" Then
                For a = 1 To UBound(aa, 2) - 1
                    bb(Y, a) = aa(i, a)
                Next a
                Y = Y + 1
            End If
        Next i
    End If
 
                Sheets.Add After:=Sheets(Sheets.Count)
                 Sheets(Sheets.Count).Range("A1:K1").Value = Sheets("BaseClient").Range("A1:K1").Value
                 Sheets(Sheets.Count).Range(Cells(2, 1), Cells(UBound(bb, 1) + 1, UBound(bb, 2))) = bb
                With Sheets(Sheets.Count)
                ListBox1.RowSource = "A2:" & .Cells(UBound(bb, 1) + 1, UBound(bb, 2)).Address
 
 
               End With
 
 
End Sub

Mes données sont dans la feuille "BaseClient" :
A = N° de client
B = Nom
C = Prénom
D = Adresse

Voilà messieurs.

Merci encore !!

inspire toi du code suivant pour créer ta procédure ListBox1_Click

Code:

1
2
3
4
5
6
Private Sub ListBox1_Click()
    Debug.Print "N° Client : " & ListBox1.List(ListBox1.ListIndex, 1)
    Debug.Print "Nom : " & ListBox1.List(ListBox1.ListIndex, 2)
    Debug.Print "PRénom: " & ListBox1.List(ListBox1.ListIndex, 3)
    Stop 'Voir résulat fenêtre exécution... (CTRL+G)
End Sub

06/10/2015, 15h23
MattAdm33

Merci

Merci bbil pour ce code, j'arrive à récupérer les valeurs que je veux.
Mais vu mon niveau de :boulet: je n'arrive pas a prendre le résultat et le copier dans mon textbox qui se trouve dans mon autre userform.
Peux-tu me donner un dernier coup de pouce ?

Merci d'avance pour ton aide !!

Matt
06/10/2015, 15h32
SfJ5Rpw8

Il suffit de préfixer ton textbox par le nom de ton userform:

Code:

UserForm2.TextBox1.Value = ListBox1.List(ListBox1.ListIndex, 1)
06/10/2015, 15h42
MattAdm33

Super !!

Super, c'est exactement ça !!

c'est tellement simple en plus !! je n'y ai même pas pensé !!

Merci beaucoup !!

:king::king: