fonction find dans ComboBox

Version imprimable

Bonjour à tous,

J'ai créé un userform qui permet de rechercher des information dans un sheet excel.
J'y ai inséré un combobox qui permet à l'utilisateur de taper une référence, et cette combobox remonte les informations trouvés dans d'autre champs (textbox).
Le soucis que j'ai, c'est que lorsque la référence n'est pas trouvé, une erreur 91 remonte.

Comment puis-je contourner le problème?
Je souhaiterai que, lorsque la référence n'est pas trouvé, un message d'erreur apparaisse et qu'aprés validation, l'utilisateur puisse corriger son erreur.

Voici le code actuel:
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub NumNCR_Change() Dim NumLigne As String 'Détection du numéro de ligne pour la valeur de la colonne N° demande NumLigne = Columns(2).Find(NumNCR.Value, LookIn:=xlValues, LookAt:=xlPart).Row 'Remplissage du formulaire PN.Value = Range("C" & NumLigne).Value OF.Value = Range("D" & NumLigne).Value Quantite.Value = Range("E" & NumLigne).Value
Information complémentaire: la référence dans la combobox est forcément de 9 chiffres.

Merci d'avance pour votre aide

Salut,
En deux étapes, d'abord tu recherches une cellule avec la méthode Find, si trouvée alors tu affectes le numéro de ligne à la variable NumLigne.
Un peu de lecture : https://learn.microsoft.com/en-us/of...cel.range.find

Attention quand tu écrit : Columns(2).Find(NumNCR.Value, LookIn:=xlValues, LookAt:=xlPart).Row Excel va chercher l'information dans la feuille active.

En gros cela devrait ressembler à cela :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub NumNCR_Change()
    'Détection du numéro de ligne pour la valeur de la colonne N° demande
    Dim rngSearch As Range
    ' // Adapter le nom de la feuille Feuil1 par la votre
    With Feuil1
        Set rngSearch = .Columns(2).Find(NumNCR.Value, LookIn:=xlValues, LookAt:=xlPart)
        If Not rngSearch Is Nothing Then
            Dim NumLigne As String
            NumLigne = rngSearch.Row
            'Remplissage du formulaire
            PN.Value = .Range("C" & NumLigne).Value
            OF.Value = .Range("D" & NumLigne).Value
            Quantite.Value = .Range("E" & NumLigne).Value
 
        Else
            MsgBox "La référence [" & NumNCR.Value & "] n'a pas été trouvée !" & vbCrLf _
                   & "" & vbCrLf _
                   & "Vérifiez qu'il n'y ai pas d'erreur de saisie, avant de continuer.", vbOKOnly Or vbInformation, Application.Name
 
        End If
    End With
End Sub

12/02/2023, 14h03
Thumb down
Bonjour,
J'imagine que NumNCR c'est ta ComboBox ?
J'imagine que tu charges ta ComboBox avec des valeurs existantes dans ta feuille ?

Note que ta ComboBox dispose de la propriété ListIndex qui donne la position ordinale du texte saisie !
Code:

1 2 3 Private Sub NumNCR_Change() If NumNCR.ListIndex=-1 then exit sub Dim NumLigne As String
https://www.developpez.net/forums/d1440075/logiciels/microsoft-office/excel/macros-vba-excel/besoin-d-aide-tableau-userforme-inventaire/

Merci beaucoup pour votre aide.
Cette méthode fonctionen parfaitement bien ;)
Citation:
Envoyé par Valtrase
Salut,
En deux étapes, d'abord tu recherches une cellule avec la méthode Find, si trouvée alors tu affectes le numéro de ligne à la variable NumLigne.
Un peu de lecture : https://learn.microsoft.com/en-us/of...cel.range.find

Attention quand tu écrit : Columns(2).Find(NumNCR.Value, LookIn:=xlValues, LookAt:=xlPart).Row Excel va chercher l'information dans la feuille active.

En gros cela devrait ressembler à cela :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Private Sub NumNCR_Change() 'Détection du numéro de ligne pour la valeur de la colonne N° demande Dim rngSearch As Range ' // Adapter le nom de la feuille Feuil1 par la votre With Feuil1 Set rngSearch = .Columns(2).Find(NumNCR.Value, LookIn:=xlValues, LookAt:=xlPart) If Not rngSearch Is Nothing Then Dim NumLigne As String NumLigne = rngSearch.Row 'Remplissage du formulaire PN.Value = .Range("C" & NumLigne).Value OF.Value = .Range("D" & NumLigne).Value Quantite.Value = .Range("E" & NumLigne).Value Else MsgBox "La référence [" & NumNCR.Value & "] n'a pas été trouvée !" & vbCrLf _ & "" & vbCrLf _ & "Vérifiez qu'il n'y ai pas d'erreur de saisie, avant de continuer.", vbOKOnly Or vbInformation, Application.Name End If End With End Sub