Discussion :

[Missouflo]

Bonjour à tous,

J'espère que vous pourrez encore m'aider sur mon nouveau problème. Je m'explique : j'ai une base de données excel d'une part. D'autre part j'ai un userform qui permet à l'utilisateur de faire une recherche dans cette bdd. Je veux faire en sorte que lorsque la fonction trouve une correspondance entre le nom saisi par l'utilisateur et la bdd ça affiche un userform pré-rempli avec les données récupérées dans la bdd.

J'ai donc créé une variable public dans le module de code du userform formulaire (on va l'appeler ligne). Lorsque la fonction recherche a trouvé le nom rentré par l'utilisateur, elle actualise la valeur de ligne avec le numéro de la ligne sur laquelle se trouve le résultat de la recherche.
Après quoi j'ai dit dans mon UserForm_Initialize() que les textbox doivent prendre la valeur des cellules de cette ligne.
Mais c'est là que ça plante : j'ai sans cesse droit à "Erreur définie par l'application ou par l'objet" et ça me surligne UserForm1.Show. Je comprends pas

Voilà le code pour plus de clarté :
Variable public:

Code :

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

Public ligne As Integer

La fonction recherche :

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
Sub ok_Click()
If Len(TextBox_recherche.Text) < 3 Then
    MsgBox "Veuillez saisir au moins 3 lettres"
Else
    With Worksheets(2).Columns("A:A")
        Set c = .Find(TextBox_recherche.Text, Range("A1"), xlFormulas, xlPart, xlByRows, xlNext)
    If c Is Nothing Then
        MsgBox "Introuvable"
    Else
        ligne = c.Row
        Me.Hide
        UserForm1.Show
        Unload Rechercher
    End If
    End With
End If
End Sub

Et l'initialisation (c'est ça qui plante) :

Code :

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

1
2
3
4
Private Sub UserForm_Initialize()
    TextBox_NOM.Text = Worksheets(2).Cells(ligne, 1).Value
    TextBox_Prenom.Text = Worksheets(2).Cells(ligne, 2).Value
End Sub

Voilà, j'espère vraiment que vous pourrez m'aider

[Philippe Tulliez]

Bonjour,
Je n'ai pas encore regardé ton code mais déjà je changerais Public ligne As Integer et Public ligne As Long. Un entier ne peut contenir de valeur supérieur à 32768 or une feuille Excel à plus de lignes

Dans ta procédure événementielle d'initialisation du UserForm que vaut la valeur de la variable ligne ?

Code :

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

1
2
3
4
Private Sub UserForm_Initialize()
    TextBox_NOM.Text = Worksheets(2).Cells(ligne, 1).Value
    TextBox_Prenom.Text = Worksheets(2).Cells(ligne, 2).Value
End Sub

Si elle vaut 0, il ne faut pas chercher plus loin.

[Missouflo]

Justement elle est sensée être initialisée dans la procédure ok_Click() et doit correspondre au numéro de ligne du nom recherché.

Etant donné que j'utilise Userform1.show après avoir affecté une valeur à ligne il ne devrait pas y avoir de problème si ?

[Philippe Tulliez]

Bonjour,
Je suppose que ta procédure ok_Click() fait partie du UserForm.
Si c'est le cas UserForm_Initialize est le premier événement du UserForm lorsque on l'invoque. Ce n'est donc pas dans cette procédure qu'il faut placer ces lignes.

Code :

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

1
2
TextBox_NOM.Text = Worksheets(2).Cells(ligne, 1).Value
TextBox_Prenom.Text = Worksheets(2).Cells(ligne, 2).Value

mais bien dans la même procédure ok_Click ou dans une procédure indépendante appelée depuis ok_Click.

[Missouflo]

ok_click fait partie d'un autre userform, appelons-le UserForm2, appelé avant UserForm1 dont j'ai posté la fonction Initialize.
C'est pour ça que je ne comprends pas

[Philippe Tulliez]

Bonjour,
La seule manière de savoir d'où vient le problème, c'est de déboguer ton code.
Tu installes un point d'arrêt (touche F9 ou clic dans la partie grise à gauche du code) et à partir de là, utilise le "pas à pas" avec la touche F8.
Tu peux aussi utiliser les espions pour connaître la valeur des variables ou passer avec la souris au dessus de la variable.