Remplir des textbox en fonction d'une saisie dans une autre

Le 23/12/2015 à 10:49

Bonjour à tous,

Je fais appel de nouveau à vos lumières.

J'ai trouvé sur ce forum un fichier qui correspondait au début à ce que je cherchais, c'est à dire, remplir des textbox en fonction d'une saisie dans une autre.

Je me suis dit chouette, je vais pouvoir l'adapter à mon problème, sauf que cela ne fonctionne pas.

Dans le fichier d'origine, la recherche s'effectuait sur la même feuille que le bouton du formulaire, sauf que moi, je veux la recherche sur la feuil1.

J'ai eu beau préciser la feuille, rien ne se passe.

Auriez-vous une piste ?

Je vous joins le fichier.

Merci par avance.

41ajout-et-modification-donnees-sur-le-meme-formulaire.xlsm (25.95 Ko)

Le 23/12/2015 à 14:29

Bonjour,

un essai voir si ça peut te convenir.

Cordialement.

82formulaire.xlsm (18.56 Ko)

Le 23/12/2015 à 14:43

bigdaddy154 a écrit :
Bonjour,
un essai voir si ça peut te convenir.
Cordialement.

Un grand merci pour ce travail.

Mais, le numéro, serait saisi dans un textbox et non pas un combobox. Est-ce possible ?

Le 23/12/2015 à 15:07

Voilà sans combobox,

perso je préfère avec ça évite les erreurs.

Cordialement.

82formulaire.xlsm (19.30 Ko)

Le 23/12/2015 à 15:18

bigdaddy154 a écrit :
Voilà sans combobox,
perso je préfère avec ça évite les erreurs.
Cordialement.

C'est parfait, c'est ce que je souhaitais.

Le seul problème, est quand je mets le code dans mon vrai fichier. Cela ne fonctionne pas

En effet, après avoir déclaré les variables, car il semblerait que ça lui posait problème, j'ai le message "incompatibilité de type" et il s'arrête sur "trouve"

Dim dlf As Long
Dim trouve As Long
dlf = Sheets("Bons émis").Range("b" & Rows.Count).End(xlUp).Row
            With Sheets("Bons émis").Range("B2:B" & dlf)
                trouve = .Find(NumBS, LookIn:=xlValues, lookat:=xlWhole)
                    If Not trouve Is Nothing Then
                        NOMPRENOM = trouve.Offset(, 1)
                        ADRESSE = trouve.Offset(, 2)
                        CP = trouve.Offset(, 3)
                        VILLE = trouve.Offset(, 4)
                        'TextBox5 = trouve.Offset(, 5)
                    Else
                        NOMPRENOM = "Données introuvables"
                        ADRESSE = "Données introuvables"
                        CP = "Données introuvables"
                        VILLE = "Données introuvables"
                        'TextBox5 = "Données introuvables"
                    End If
            End With

J'ai retiré le "set" avant "trouve" car normalement avec ce type de variable ce n'est pas nécessaire. Avec le "Set" il m'indique "Objet requis"

Le 23/12/2015 à 15:23

Déclare trouve en variant et non pas en long ça devrait fonctionné.

Cordialement.

Le 23/12/2015 à 15:32

bigdaddy154 a écrit :
Déclare trouve en variant et non pas en long ça devrait fonctionné.
Cordialement.

C'est parfait !

Un grand merci