Mise au point UserForm

Version imprimable

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:

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

Code:

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

14/03/2023, 13h08
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.
14/03/2023, 13h26
mat955

1 pièce(s) jointe(s)

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é.

Pièce jointe 635753

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.

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:

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

14/03/2023, 15h01
Rotax27

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