Créer un bouton recherche dans userform

**phalphaaaa** · 25/01/2017, 13h13

bonjour a tous
1 je suis débutant dans VBA,
je cherche a crée un bouton rechercher ( si il est possible quand j'entre des valeurs dans le txtCommentaire et txtContacte toutes les valeurs saisie dans la ligne dans ma feille (Source) s'affichent dans mon userforme mais je ne sais pas comment tous les autres bouton fonction correctement, je vous

voila les donnée de mon userform

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
 
 
Dim var As Integer
Private Sub btnChercher_Click()
 
var = var + 0
FrmSaisie.cboSecteur.Value = Source.Cells(var, 0).Value
FrmSaisie.txtSociété.Value = Source.Cells(var, 1).Value
FrmSaisie.txtAvisé.Value = Source.Cells(var, 2).Value
FrmSaisie.txtDate.Value = Source.Cells(var, 3).Value
FrmSaisie.txtCommentaire.Value = Source.Cells(var, 4).Value
FrmSaisie.txtContacte.Value = Source.Cells(var, 5).Value
FrmSaisie.txtFonction.Value = Source.Cells(var, 6).Value
FrmSaisie.txtTéléphone.Value = Source.Cells(var, 7).Value
FrmSaisie.txtEmail.Value = Source.Cells(var, 8).Value
 
 
End Sub
 
 
 
 
'******************************
'procédure permettant de
'Fermer mon formulaire
'******************************
Private Sub btnFermer_Click()
 
    Unload Me
 
End Sub
 
'******************************
'Procédure permettant d'acéder
'a la source de données
'******************************
Private Sub btnSource_Click()
    Sheets("Source").Activate
    Range("A1").Select
 
End Sub
 
'*********************************************
'Procédure permettant de réinitialiser tous
'les champs du formulaire
'***********************************************
Private Sub btnEfface_Click()
    cboSecteur = ""
    txtSociété = ""
    txtAvisé = ""
    txtDate = ""
    txtCommentaire = ""
    txtContacte = ""
    txtFonction = ""
    txtTéléphone = ""
    txtEmail = ""
 
End Sub
 
'*********************************************
'Procédure permettant de réinitialiser tous
'le bouton d'ajout d'enregistrement
'***********************************************
Private Sub txtSociété_Change()
    If txtSociété <> "" Then
 
        btnAjout.Enabled = True 'Activer le bouton
    Else
        btnAjout.Enabled = False 'Désactiver le bouton
 
    End If
 
End Sub
 
'*********************************************
'Procédure permettant d'ajouter un nouvel enregistrement
'dans la base de données
'***********************************************
Private Sub btnAjout_Click()
 
    Sheets("Source").Activate
    Range("A1").Select
    Selection.End(xlDown).Select 'on se position sur la dernière ligne non vide
    Selection.Offset(1, 0).Select 'on se décale d'une ligne vers le bas
    ActiveCell = txtSociété.Value
    ActiveCell.Offset(0, 1).Value = txtAvisé
    ActiveCell.Offset(0, 2).Value = txtDate
    ActiveCell.Offset(0, 3).Value = txtCommentaire
    ActiveCell.Offset(0, 4).Value = txtContacte
    ActiveCell.Offset(0, 5).Value = cboSecteur
    ActiveCell.Offset(0, 6).Value = txtFonction
    ActiveCell.Offset(0, 7).Value = txtTéléphone
    ActiveCell.Offset(0, 8).Value = txtEmail
 
 
 
 
End Sub
 
Private Sub UserForm_Click()
 
End Sub

**parmi** · 25/01/2017, 15h48

Bonjour,

Je ne suis pas certain de bien comprendre...
Si tu entres des valeurs dans les contrôles txtCommentaire et txtContacte, tu peux les rechercher dans la feuille Source ainsi

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
Private Sub btnChercher_Click()
    Dim I As Long, nbLignes As Long
    Dim Source As Worksheet
    Dim Trouve As Boolean
 
    Set Source = Sheets("Source")
 
    nbLignes = Source.Cells(Rows.Count, "A").End(xlUp).Row
 
    Recherche les valeurs entrées dans txtCommentaire et txtContacte
    For I = 1 To nbLignes
        If LCase(Source.Range("D" & I)) = LCase(txtCommentaire.Value) And LCase(Source.Range("E" & I)) = LCase(FrmSaisie.txtContacte.Value) Then  'vérifie les lettres de colonnes
            Trouve = True
            FrmSaisie.cboSecteur.Value = Source.Cells(Var, 0).Value
            FrmSaisie.txtSociété.Value = Source.Cells(Var, 1).Value
            FrmSaisie.txtAvisé.Value = Source.Cells(Var, 2).Value
            FrmSaisie.txtDate.Value = Source.Cells(Var, 3).Value
'            FrmSaisie.txtCommentaire.Value = Source.Cells(Var, 4).Value 'plus nécessaire
'            FrmSaisie.txtContacte.Value = Source.Cells(Var, 5).Value
            FrmSaisie.txtFonction.Value = Source.Cells(Var, 6).Value
            FrmSaisie.txtTéléphone.Value = Source.Cells(Var, 7).Value
            FrmSaisie.txtEmail.Value = Source.Cells(Var, 8).Value
            Exit For
        End If
    Next
 
    If Not Trouve Then
        MsgBox "Aucune donnée correspondante trouvée"
    End If
 
    Set Source = Nothing
 
End Sub

**phalphaaaa** · 26/01/2017, 10h53

Merci beaucoup pour ta réponse rapide
comme tu peux le constater sur le fichier xl ci joint, j'ai deux niveau d'enregistrement. dans le deuxième enregistrement je complété toutes les case qui sont rester vides.
mais pour faire, soit je supprime tous et je recommence la saisie de 0 ou je modifier le premier enregistrement et je complet ce qui manque.

Objectif:modifier le premier enregistrement et je complet ce qui manque

**parmi** · 26/01/2017, 11h38

Désolé, mais je n'ouvre pas les fichiers avec macros...

Il te faut deux fonctions: Modifier et Supprimer.
Ces 2 fonctions ont besoin de la fonction Rechercher.
Une fois trouvées, les données sont alors modifiées ou supprimer selon tes besoins.
Il faut seulement connaître la ligne.

Si tu décides de modifier, tu écrases simplement ce qu'il y a d'écrit sans vérification comme dans ta fonction Ajout, mais en utilisant la ligne visée: Range("A" & Ligne").Offset(0, x).
La vérification des données se fait lors de la création d'une nouvelle ligne de données et/ou à la modification d'un contrôle de ton Userform.

**phalphaaaa** · 26/01/2017, 12h02

c'est pas grave!!!

STP, si tu peut me donner un code exemple (détecter la ligne rechercher et afficher les champs rempli et appliquer la modification) pour l'adapter a mon besoin .
comme je l'ai di au paravent je suis débutant en VBA

**parmi** · 26/01/2017, 12h24

Tu as ce qu'il faut dans le code de recherche que j'ai mis au #2...

**phalphaaaa** · 26/01/2017, 14h36

POUR MODIFIER
comment je force excel a identifier la range dans laquelle ce trouve les informations entrée précédemment ? quel partie du code me permet de faire ceci,

**parmi** · 26/01/2017, 15h11

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
Sub Cherche()
    MsgBox "La ligne est " & TrouveLigne
End Sub
 
Function TrouveLigne() As Long
    Dim I As Long, nbLignes As Long
    Dim Source As Worksheet
 
    Set Source = Sheets("Source")
 
    nbLignes = Source.Cells(Rows.Count, "A").End(xlUp).Row  'dernière ligne
 
    For I = 1 To nbLignes
        If LCase(Source.Range("D" & I)) = LCase(txtCommentaire.Value) And LCase(Source.Range("E" & I)) = LCase(FrmSaisie.txtContacte.Value) Then  'vérifie les lettres de colonnes
            TrouveLigne = I     'on a trouvé la ligne et on retourne sa valeur
            Exit For            'on sort de la boucle
        End If
    Next
 
    Set Source = Nothing
End Function

**phalphaaaa** · 27/01/2017, 10h43

je vérifier et je te fais un retour
merci infiniment pour ta patience

pas de succe avec le code

est ce que je peu vous envoyer le fichier excel uniquement et coller le code sur cette pas comme ça vous allez avoir une idée complète de ce que cherche a faire.

**BENNASR** · 27/01/2017, 11h00

Bonjour
regarde cette discussion je crois que ça va t'aider
https://www.developpez.net/forums/d1...ique-combobox/
bonne continuation

**phalphaaaa** · 27/01/2017, 16h00

MERCI CHER AMI

le fait est que je suis nul alors ça doit être aussi simple que possible svp

**BENNASR** · 27/01/2017, 17h03

bonsoir
remplir le champ commentaire et le champs contact puis cliquer sur le bouton rechercher
ce bouton est chargé du code suivant : code qui peut être amélioré par les Grand développeur de ce site vu que je suis aussi débutant

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
Private Sub btnChercher_Click()
Dim plage As Range
Dim commentaire As String, Ref As String
Dim DernLigne As Long
commentaire = txtCommentaire.Value
contact = txtContacte.Value
With Sheets("Source")
DernLigne = .Range("A" & Rows.Count).End(xlUp).Row
Set plage = Sheets("Source").Range("E2:E" & DernLigne)
For Each cell In plage
    If LCase(cell.Value) Like LCase(FrmSaisie.txtContacte.Value) And .Cells(cell.Row, 4).Value = LCase(txtCommentaire.Value) Then
txtSociété.Value = .Cells(cell.Row, 1).Value
txtAvisé.Value = .Cells(cell.Row, 2).Value
txtDate.Value = .Cells(cell.Row, 3).Value
cboSecteur.Value = .Cells(cell.Row, 6).Value
txtFonction.Value = .Cells(cell.Row, 7).Value
txtTéléphone.Value = .Cells(cell.Row, 8).Value
txtEmail.Value = .Cells(cell.Row, 9).Value
   End If
   Next cell
  End With
End Sub

**phalphaaaa** · 28/01/2017, 21h25

Merci à tous pour votre participation !!!
Nom : USERFORM.png
Affichages : 8198
Taille : 100,7 Ko

j'ai mis ici une prise de mon écran du travail que je cherche a metre en place
j'ai coller toutes vos proposition et essayer d'adapter certain d'autre mais tous mes efforts sont vain,
merci

**parmi** · 28/01/2017, 21h53

Dans le code du bouton Chercher, tu utilises var qui n'a aucune valeur donc ça cause une erreur.
Essaie comme ceci

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
Private Sub btnChercher_Click()
    Dim I As Long, nbLignes As Long
    Dim Source As Worksheet
    Dim Trouve As Boolean
 
    Set Source = Sheets("Source")
 
    nbLignes = Source.Cells(Rows.Count, "A").End(xlUp).Row
 
'    Recherche les valeurs entrées dans txtCommentaire et txtContacte
    For I = 1 To nbLignes
        If LCase(Source.Range("D" & I)) = LCase(txtCommentaire.Value) And LCase(Source.Range("E" & I)) = LCase(FrmSaisie.txtContacte.Value) Then  'vérifie les lettres de colonnes
            Trouve = True
            FrmSaisie.cboSecteur.Text = Source.Cells(I, 6).Value
            FrmSaisie.txtSociété.Value = Source.Cells(I, 1).Value
            FrmSaisie.txtAvisé.Value = Source.Cells(I, 2).Value
            FrmSaisie.txtDate.Value = Source.Cells(I, 3).Value
            FrmSaisie.txtCommentaire.Value = Source.Cells(i, 4).Value 'plus nécessaire
            FrmSaisie.txtContacte.Value = Source.Cells(i, 5).Value
            FrmSaisie.txtFonction.Value = Source.Cells(I, 7).Value
            FrmSaisie.txtTéléphone.Value = Source.Cells(I, 8).Value
            FrmSaisie.txtEmail.Value = Source.Cells(I, 9).Value
            Exit For
        End If
    Next
 
    If Not Trouve Then
        MsgBox "Aucune donnée correspondante trouvée"
    End If
 
    Set Source = Nothing
 
End Sub

**phalphaaaa** · 29/01/2017, 01h13

c'est parfait cher ami
il ne me reste que le code du bouton modifier si vous pouvez me souver encore je vous suis redevable a jamais.

**parmi** · 29/01/2017, 20h30

C'est la même chose que rechercher, mais dans le sens contraire.
Tu cherches la ligne, quand tu la trouves, tu inscris les valeurs des contrôles sur cette ligne plutôt que l'inverse.

Créer un bouton recherche dans userform [XL-2013]

Macros et VBA Excel

Discussions similaires

Partager

Partager