[E-07] affichage userform

Version imprimable

02/12/2008, 15h19
flofun

[E-07] affichage userform

Bonjour,

je possède un tableau de données avec des noms, prénoms, fonction, contrat de travail.

En cliquant sur un bouton cela active une userform avec une liste déroulante qui reprend les noms des salariés. J'aimerais que lorsque je séléctionne le nom d'un salarié dans la liste déroulante, les infos du salariés en question (prénom, fonction, contrat) s'affiche dans les textbox du userform et que je puisse directement modifier dans les textbox les données sur le salarié. Cela doit s'enregistrer dans la base de données lorsque je clique sur OK

Merci d'avance...

Bonjour,

voici un peu de code qui peut t'aider :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim ligne as integer
Sub combobox_change()
    'rechercher la ligne
    i = 1
    While StrComp(ComboBox.Value, feuil.Cells(i, 1), vbTextCompare)
        i = i + 1
    Wend
    'on a la ligne dans i, il ne reste plus qu'à copier les infos
    TextBox1.Value = feuil.Cells(i, 2)
    TextBox2.Value = feuil.Cells(i, 3)
End Sub
 
Sub ok_click()
    feuil.Cells(ligne, 2) = TextBox1.Value
    feuil.Cells(ligne, 3) = TextBox2.Value
End Sub

Il ne te reste plus qu'à adapter à ton cas particulier.;)

02/12/2008, 16h13
flofun

salut !

merci pour ta réponse. Mais le problème, c'est que ma liste déroulante ne reprend pas les noms de la base de données... la liste déroulante reste vide...:?
02/12/2008, 16h15
ouskel'n'or

Juste une précision :
Si tu utilises RowSource pour renseigner ta liste, la modification d'une donnée de la liste dans la feuille de calculs modifiera la liste dans l'userform.

Et à toutes fins utiles :
Si ta liste est associée aux données (utilisation de RowSource ), lors de la sélection dans la liste, listindex te donne le N° de ligne moins le décalage entre le premier index de la liste et le N° de ligne correspondant dans la feuille de calculs.
Supposons que tu commences tes données ligne 2 et que RowSource précise la plage à partir de cette ligne. Ex A2:A50
La première ligne de la liste aura Listindex = 0
Ecart = 2
Si maintenant tu veux modifier cette ligne par l'intermédiaire d'une textbox, tu devras ajouter 2 à l'index de la liste pour avoir le N° de ligne de la donnée à modifier.
Idem si tu veux afficher les données d'une ligne lors de la sélection d'un nom dans une liste.

Tu en fais ce que tu veux ;)
Bonne fin de journée.
02/12/2008, 16h22
flofun

Je crois comprendre ce que tu me dis ... mais après, dans la pratique, c'est une autre affaire ...:?