Discussion :

[simonlagaffe]

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 :

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

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

[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 :

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

[simonlagaffe]

Merci beaucoup pour votre aide.
Cette méthode fonctionen parfaitement bien

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 :

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

[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 :

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

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/