Saisie d'une VLookup dans une userform_VBA

Version imprimable

Bonjour à Tous,

Je débute dans VBA, et votre forum m'a beaucoup appris.

J'ai écrit un code pour rechercher un nom suivant un identifiant.

Je dois rechercher un identifiant, que je saisi dans ma TextBox, dans la colonne F de la ligne 39 à "Lig" je ne connais pas la fin, liste non fixe.

Une fois que j'ai trouver l'identifiant, je dois recupérer le nom de la personne qui est sur la même ligne mais en colonne H et la recopier dans ma ListBox.
Mais ça bloque toujours à "Nom = WorksheetFunction.VLookup(Id, Range(Cells(39, 6), Cells(Lig, 8)), 8, False)" et je ne comprend pas pourquoi.

Pouvez-vous m'aider.

J'espère que c'est assez clair comme explication
Code:

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 Private Sub TextBoxID_Exit(ByVal Cancel As MSForms.ReturnBoolean) ' ' Ecrire le Nom equivalent à l'identifiant ' Dim Lig As Integer Dim Id As Variant Dim Nom As String ' ' Selectionner la feuille Sheets("Listes").Select ' Activation des valeurs systeme On Error GoTo ErreurSaisi ' Determination de la derniere ligne de la liste Lig = 39 Do While Cells(Lig, 6).Value <> "" Lig = Lig + 1 Loop Lig = Lig - 1 ' Récupérer l'ID Id = TextBoxID.Value ' Convertir en majuscule Id = UCase(Id) ' Réécrire le nom en majuscule TextBoxID.Value = Id ' Rechercher le nom équivalent Nom = WorksheetFunction.VLookup(Id, Range(Cells(39, 6), Cells(Lig, 8)), 8, False) ' Ecrire le nom ListBoxRU.Value = Nom Exit Sub ErreurSaisi: MsgBox ("Erreur dans la saisie de l'Identifiant" & vbLf & _ "L'Identifiant " & Francais & " n'exite pas ou bien votre liste n'est pas à jour" & vbLf & _ "Vérifier l'orthographe et la resasir." & vbLf & _ "Contacter DPTMEnvironnement@mpsa.com si le soucis persiste.") End Sub

04/01/2019, 17h58
jpvba

Bonjour Cheyenne,

Bienvenue parmi nous !!!

Personnellement je n'aurais pas utiliser une loop pour trouver la valeur de "Lig". Également pour quoi à la fin de la loop tu enlève un au résultat ???

au lieu de WorksheetFunction.VLookup essaie application.VLookup.

Bonjour,

De cette façon peut-être ?

Code:

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
 
Private Sub TextBoxID_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    '
    ' Ecrire le Nom equivalent à l'identifiant
    '
    Dim Cel As Range
    Dim Lig As Integer
    Dim Id As Variant
 
    ' Récupérer l'ID en convertissant en majuscule
    Id = UCase(TextBoxID.Value)
 
    ' Réécrire le nom en majuscule
    TextBoxID.Value = Id
 
    With Worksheets("Listes")
 
        Lig = .Cells(.Rows.Count, 6).End(xlUp).Row 'en colonne F
 
        Set Cel = .Range(.Cells(39, 6), .Cells(Lig, 6)).Find(Id, , xlValues, xlWhole)
 
        If Not Cel Is Nothing Then
 
            ListBoxRU.Value = Cel.Offset(, 2).Value 'en colonne H
 
        Else
 
            MsgBox "Erreur dans la saisie de l'Identifiant" & vbLf & _
                   "L'Identifiant " & Francais & " n'exite pas ou bien votre liste n'est pas à jour" & vbLf & _
                   "Vérifier l'orthographe et la resasir." & vbLf & _
                   "Contacter DPTMEnvironnement@mpsa.com si le soucis persiste."
 
            Cancel = True
 
        End If
 
    End With
 
End Sub

07/01/2019, 08h52
Cheyenne95

Super

Merci beaucoup à Tous les Deux.
Effectivement je faisais -1 sur la Loop pour avoir la dernière ligne pleine et pas la première ligne vide, mais cela ne change rien.
Theze , Ton code fonctionne à merveille :)
Encore Merci beaucoup pour votre aide.
07/01/2019, 13h02
Theze

Bonjour,

Merci du retour et content de t'avoir aidé ;)