Discussion :

[jpenja]

Bounjour,
j'ai une application que je suis en train de créer sous Excel et qui devra une fois finalisée servir à gérer les commandes clients.
J'ai crée un formulaire principal avec 4 frames différentes.La première regroupe toutes les infos du client(nom,prénom,adresse...)
Une fois les rubriques remplies ,un bouton créér permet d'alimenter une feuille Excel ou seront référencés tous les clients.
En marge des Frames l'utilisateur dispose d'une zone de texte ou il peut renseigner le nom ou le numéro du client et lancer une recherche.
PB: si plusieurs clients ont le même nom,je voudrais d'une part que ma recherche continue à balayer toute la base et d'autre part que tous les résultats s'affichent dans une listbox présente sur le formulaire.
Merci d'avance.
P.S:les résultats devront s'afficher sur une autre feuille dans une zone définie
(en l'occurence la plage B2:B30)car j'ai lié la propriété Rowsource de la listbox à cette plage.
Encore merci à ceux qui voudront bien m'aider.

[jpenja]

Apparement le sujet ne doit pas être explicite.aussi je joins un mrceau de mon code.Celui ci ne me renvoie q'un seul nom.Comment faire pour obtenir tous ceux de la base?
Merci d'avance.

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
Private Sub Rechclt_Click()
 
Dim clt As String
Dim x As Integer
Dim y As Integer
clt = Critrech.Text
x = 2
y = 2
 
 
If UserForm3.OptionButton1.Value = True Then
    While Feuil2.Range("a" & x).Value <> clt And Feuil2.Range("a" & x).Value <> ""
        x = x + 1
    Wend
    If Feuil2.Range("a" & x).Value = "" Then
        MsgBox "Le client recherché n'existe pas.Soit le n° est incorrect, soit il faut le créer avec le bouton Nouveau", vbOKOnly, "Information"
    End If
    If Feuil2.Range("a" & x).Value = clt Then
        Feuil6.Range("b" & y).Value = Feuil2.Range("c" & x).Value & "  " & Feuil2.Range("d" & x).Value
    End If
End If
If UserForm3.OptionButton2.Value = True Then
    While Feuil2.Range("c" & x).Value <> clt And Feuil2.Range("c" & x).Value <> ""
        x = x + 1
    Wend
    If Feuil2.Range("c" & x).Value = "" Then
        MsgBox "Le client recherché n'existe pas.Soit le nom est incorrect, soit il faut le créer avec le bouton Nouveau", vbOKOnly, "Information"
    End If
    If Feuil2.Range("c" & x).Value = clt Then
        Feuil6.Range("b" & y).Value = clt & "  " & Feuil2.Range("d" & x).Value
    End If
End If
UserForm3.OptionButton1.Value = False
UserForm3.OptionButton2.Value = False
 
End Sub