Discussion :

[enretard]

Bonjour,

Je voudrais que mon formulaire se remplisse automatiquement liée à une base excel

Je suis novice dans la programmation et j'ai du mal à trouver ce que je veux.

J'ai un fichier d'adresses sur Excel.

J'ai dessiné ma boîte de dialogue (UserForm)

j'ai ajouté des boutons de commandes VALIDER ANNULER
Je ne sais pas faire les liens en VBA sur mes textbox pour qu'il aille chercher les informations sur ma base excel. Par exemple je voudrais en choississant un nom de personne "dupont" que mon formulaire aille chercher les différends "DUPONT" et me les affiche dans mon formulaire avec le reste de ses coordonnées. Tél. email etc...

merci de m'aider

[mayekeul]

Bonour,

l'introduction du parametre de recherche se fait de quelle manière?

manuel?
combo box?

[enretard]

bonjour,

Le remplissage se fait manuellement, puisque je voudrais que l'on tape un nom et que les différentes informations concernant cette personne s'affiche sur mon formulaire automatiquement. Mes adresses se trouvant sur excel, je voudrais qu'elles puissent s'afficher automatiquement.

Ou bien par combo en sélectionnant le nom d'une personne le reste se remplirai automatiquement.

Voilà j'espère être assez claire.

Merci d'avance pour votre aide.

[mayekeul]

alors, tu dois insérer du code dans l'événement change de ton controle text box

qui remplira les autre endroit

du style

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
dim recherche as range
...
Set recherche = Cells.Find(What:="recherche", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
on error resume next
texbox1.text=recherche.offset(0,1)
textbox2.text=recherche.offset(0,2)
...
 
on error goto 0

[enretard]

Bonjour,

voici le code que j'ai essayé :

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
Private Sub tbxnom_Change()
Dim recherche As Range
Set recherche = Cells.Find(what:="recherche", after:=ActiveCell, LookIn:=xlFormulas, MatchCase:=False, searchformat:=False)
On Error Resume Next
tbxnom.Text = recherche.Offset(0, 1)
tbxprenom.Text = recherche.Offset(0, 2)
tbxsociete.Text = recherche.Offset(0, 3)
tbxtitre.Text = recheche.Offset(0, 4)
tbxemail.Text = recherche.Offset(0, 5)
tbxtelstandard.Text = recherche.Offset(0, 6)
tbxteldirect.Text = recherche.Offset(0, 7)
tbxfax.Text = recherche.Offset(0, 8)
tbxportable.Text = recherche.Offset(0, 9)
tbxportable2.Text = recherche.Offset(0, 10)
On Error GoTo 0
End Sub

Mon formulaire se remplit bien sauf que les champs ne correspondent pas !
je dois faire une erreur. dois-je remplir tous les texbox nommés ? ou seulement l'endroit du premier. Après recherche offset les chiffres correspondent à quoi ? Merci beaucoup en tout cas de ton aide elle m'a été très précieuse, j'ai encore besoin de toi.

A+

[mayekeul]

Au temps pour moi, j'aurais t'expliquer un peu plus en détail

on commence, tu l'auras très certainement compris par recherchr la valeur entrée dans le textbox de recherche

on passe en référence la cellule contenant le résultat

ensuite, je suis parti de l'hypothese que tu avais une tableau de base de données et donc, l'offset correspond à un décalage

exemple:
si recherche est la cellule A24
recherche.offset(0,1) est la cellule B24
et recherche.offset(1,0) est la cellule A25

j'ai ajouté on error resume next pour eviter les erreurs en cas de recherche infructueuse

[enretard]

bonjour,

je t'envoie mon projet en imprim écran pour que tu vois mieux ce que je prépare.

Comme çà tu pourras mieux me dire ou je dois copier le code, d'ailleurs je n'ai pas fait du copier/coller j'ai tout retapper pour m'habituer au code.

Merci de ton aide.


Je voudrais aussi savoir quel code dois-je mettre sur mon bouton VALIDER ?
car quand je tape un nom dans mon combobox et que j'appuie sur valider rien ne se passe, je ne connais pas le code ? pour qu'il aille chercher les infos.

Merci encore de ton aide.