Discussion :

[Rotax27]

Bonjour à tous,
J'ai un fichier de 615 lignes qui constitue ma source appelée "Adhérents" et j'ai construit un UserForm de recherche avec l'aide d'un tuto Excel dont je vous joins le code:
J'ai 2 soucis :
1) La recherche ne s'effectue pas sur l'ensemble de ma source: si le nom Prénom est inconnu cela me sort une erreur, mais dans mon cas , il n'y a pas d'erreur les champs ne sont simplement pas remplis. Au delà de la ligne 386 cela ne fonctionne plus
2) Je voudrais qu'à l'ouverture de mon formulaire le curseur se positionne immédiatement et automatiquement dans la TextBoxRecherche.

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
Private Sub TextBoxRecherche_AfterUpdate()
    On Error GoTo 1
    If WorksheetFunction.CountIf(Sheets("Adhérents").Range("A:A"), Me.TextBoxRecherche.Value) = 0 Then
        MsgBox "Adhérent Inconnu, Veuillez saisir le Nom Prénom", vbInformation + vbOKOnly, "Adhérent non trouvé"
    End If
    With Me
        .TextBoxNomPrénom = Application.WorksheetFunction.VLookup(CStr(Me.TextBoxRecherche), Sheets("Adhérents").Range("Source"), 1, 0)
        .TextBoxNumLic = Application.WorksheetFunction.VLookup(CStr(Me.TextBoxRecherche), Sheets("Adhérents").Range("Source"), 4, 0)
        .TextBoxTypeLic = Application.WorksheetFunction.VLookup(CStr(Me.TextBoxRecherche), Sheets("Adhérents").Range("Source"), 5, 0)
        .TextBoxTel = Application.WorksheetFunction.VLookup(CStr(Me.TextBoxRecherche), Sheets("Adhérents").Range("Source"), 2, 0)
        .TextBoxMail = Application.WorksheetFunction.VLookup(CStr(Me.TextBoxRecherche), Sheets("Adhérents").Range("Source"), 3, 0)
        .TextBoxFédé = Application.WorksheetFunction.VLookup(CStr(Me.TextBoxRecherche), Sheets("Adhérents").Range("Source"), 11, 0)
        .TextBoxSaison = Application.WorksheetFunction.VLookup(CStr(Me.TextBoxRecherche), Sheets("Adhérents").Range("Source"), 12, 0)
        .TextBoxFct = Application.WorksheetFunction.VLookup(CStr(Me.TextBoxRecherche), Sheets("Adhérents").Range("Source"), 13, 0)
        .TextBoxGrp = Application.WorksheetFunction.VLookup(CStr(Me.TextBoxRecherche), Sheets("Adhérents").Range("Source"), 14, 0)
        .TextBoxAdresse = Application.WorksheetFunction.VLookup(CStr(Me.TextBoxRecherche), Sheets("Adhérents").Range("Source"), 8, 0)
        .TextBoxCP = Application.WorksheetFunction.VLookup(CStr(Me.TextBoxRecherche), Sheets("Adhérents").Range("Source"), 9, 0)
        .TextBoxVille = Application.WorksheetFunction.VLookup(CStr(Me.TextBoxRecherche), Sheets("Adhérents").Range("Source"), 10, 0)
    End With
1
End Sub

et

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
Private Sub Btneffacer_Click()
    TextBoxNomPrénom = ""
    TextBoxNumLic = ""
    TextBoxTel = ""
    TextBoxMail = ""
    TextBoxFédé = ""
    TextBoxTypeLic = ""
    TextBoxSaison = ""
    TextBoxFct = ""
    TextBoxGrp = ""
    TextBoxAdresse = ""
    TextBoxCP = ""
    TextBoxVille = ""
    TextBoxRecherche = ""
End Sub

[Rotax27]

Bonjour à tous,
Je viens de solutionner mon soucis numéro 1 : La source était mal déclarée: lorsque je sélectionne la case qui définit la cellule active, il existe aussi l'étendue de la source que je me suis empressé de modifier et:
CA MARCHE PARFAITEMENT.
Mais il me reste le soucis numéro 2: le positionnement du curseur à l'ouverture du formulaire.

[mat955]

Bonjour,

C'est la propriété TabIndex qui indique dans quel ordre vont s'activer les éléments.
Si tu veux que le curseur soit positionné sur TextBoxRecherche, alors affecte la valeur 0 à sa propriété TabIndex.
Tu peux le faire soit en code, soit en mode création du Userform, dans la fenêtre Propriété.



Si tu fais une tabulation, le curseur ira sur le contrôle ayant la TabIndex à 1, puis 2, puis 3, etc.
Tu peux ainsi paramétrer les propriétés TabIndex de chaque contrôle pour pouvoir tabuler comme tu le souhaites.

[Niagala]

Bonjour
Si vous cherchez les renseignements d’une personne ( par un matricule ) pour les afficher dans un formulaire ( Cp, Ville … )
Voici une piste à adapter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub TextBoxRecherche_AfterUpdate()
On Error GoTo ErrorHandler
TextBoxVille = WorksheetFunction.VLookup(TextBoxRecherche, Sheets("Adhérents").Range("A:E"), 3, 0)
TextBoxCP = WorksheetFunction.VLookup(TextBoxRecherche, Sheets("Adhérents").Range("A:E"), 4, 0)
Exit Sub
ErrorHandler:
    Me.TextBoxRecherche = ""
    Me.TextBoxCP = ""
End Sub

NB : Range("A:E"), 3, 0) : A:E la plage de recherche, 3 est le numéro de la colonne dans la plage

[Rotax27]

Bonjour à tous,
merci pour vos conseils je suis très content, tout fonctionne parfaitement. (et rapidement)
Merci à vous 2 !