Remplissage automatique de textbox

Version imprimable

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

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

Code:

Public ligne As Integer

La fonction recherche :
Code:

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:

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

02/03/2013, 17h39
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:

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.
02/03/2013, 18h21
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 ?
02/03/2013, 19h24
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:

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.
02/03/2013, 19h47
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
02/03/2013, 20h10
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.
02/03/2013, 20h17
Missouflo

Le problème vient de la fonction Initialize de mon userform1, j'ai fait pas mal de tests et de combinaisons et à chaque fois que j'utilise la variable public "ligne" dans l'initialisation de ce useform ça plante.
En utilisant ligne dans le code ok_click du userform2 ça marche, et en supprimant ligne de l'initialisation du userform1 ça l'initialise correctement.

Bonsoir,
Dans ton UserForm1 rajoute ce code

Code:

1
2
3
4
5
Public Sub Charger(ligne As Long)
Me.Tag = ligne
TextBox_NOM.Text = Worksheets(2).Cells(ligne, 1).Value
TextBox_Prenom.Text = Worksheets(2).Cells(ligne, 2).Value
End Sub

Et tu exécute comme ça

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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
              Me.Hide
        UserForm1.Charger c.Row
        Unload Rechercher
    End If
    End With
End If
End Sub

03/03/2013, 08h51
Missouflo

Ah génial ça marche super !

Merci à vous deux pour votre aide !