Discussion :

[joums]

Bonjour,

Je souhaite créer une base de données

Mon but final est à partir d'un userform :

- de créer une base de donnée de contact
- de rechercher un contact à partir soit du "NOM" soit du "PRENOM"

J'ai commencé à créer le fichier pour réaliser les actions indiquées ci-dessus.

J'ai donc fait un userform avec un multipage
Onglet 1 : pour voir une fiche client
Onglet 2 : pour créer une fiche client

je bloque sur le code à mettre pour "filtrer" la recherche => "NOM" ou "PRENOM"

je pensais mettre dans optionbutton avec un if .. then mais ca ne fonctionne pas du tout.


Merci pour votre aide

[billx06]

Salut, j'ai réalisé une base de donnée similaire mais en utilisant un spreadsheet (ici situé dans userform12) car c'était plus pratique pour moi car tu peux avoir plusieurs résultats......

Pour entrer les données tu peux juste les rentrer dans la feuille ligne par ligne (le plus simple) ou écrire du code, a toi de voir.

Sinon, voici le code pour la recherche (pas pour entrer les données):

En considérant les données par personne sur une seule ligne d'une même feuille avec le nom en colonne A et le prénom en colonne B.

tu crée 2 optionbutton (1 pour le nom et 1 pour le prénom) en pensant bien à remplir dans leurs propriétés la valeur Groupname avec le même nom.

avec le code suivant dans chaque optionbutton respectif:
(ceci permet que le nom tapé se remplisse automatiquement si celui ci trouve un nom proche)

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
38
39
40
Private Sub OptionButton1_Click()
ComboBox1.RowSource = "'Feuillededonnées'!A1:a10000"
End Sub
 
Private Sub OptionButton2_Click()
ComboBox1.RowSource = "'Feuillededonnées'!B1:b10000"
End Sub
 
 
 
 
pour lancer la recherche, créer un commandbutton:
 
Private Sub CommandButton1_Click()
Dim x: x = 1: Dim nom: nom = ComboBox1.Value: Dim z: z = 1
If OptionButton1.Value = "Faux" Then GoTo OB2
 
Do Until Worksheets("Feuillededonnées").Cells(x, 1) = ""
    If Worksheets("Feuillededonnées").Cells(x, 1) = nom Then
    Worksheets("Feuillededonnées").Rows(x).Copy
    UserForm12.Spreadsheet1.Cells(z, 1).Paste
    z = z + 1
    End If
x = x + 1
Loop
 
OB2:
If OptionButton2.Value = "Faux" Then GoTo OB3
x = 1
Do Until Worksheets("Feuillededonnées").Cells(x, 2) = ""
    If Worksheets("Feuillededonnées").Cells(x, 2) = nom Then
    Worksheets("A Feuillededonnées").Rows(x).Copy
    UserForm12.Spreadsheet1.Cells(z, 1).Paste
    z = z + 1
    End If
x = x + 1
Loop
 
OB3:
End Sub

[Antoniom]

Bonjour tout le monde,

Voici un modèle...

Bonne journée !

[joums]

Bonjour,

merci pour vos réponse,
jai essayé de mon côté avec un code pour adapter à ce que je souhaite

Cela fonctionne partiellement, en effet j'ai plusiseurs bugs ...
il y a 3 combobox liés, mais quand je selectionne la valeur de la combobox 3 la combobox 2 et 3 deviennent vide

voici le fichier, qu'en pensez vous ?
encore merci