navigateur de base de données

J

jp14

XLDnaute Barbatruc

• 23 Janvier 2008

• #2

Re : navigateur de base de données

Bonsoir

Ci dessous du code à coller dans l'USF.
Le combobox contient une information cachée qui correspond au numéro de ligne.

Code:

Private Sub ComboBox1_Change()
If ComboBox1.TopIndex = -1 Then Exit Sub
TextBox1.Value = Sheets("feuil1").Range("b" & ComboBox1.List(ComboBox1.ListIndex, 1))
TextBox2.Value = Sheets("feuil1").Range("c" & ComboBox1.List(ComboBox1.ListIndex, 1))

End Sub


Private Sub UserForm_Initialize()
With ComboBox1
    .ColumnCount = 2
    .ColumnWidths = "90;0"
    .Style = fmStyleDropDownList '
    .BoundColumn = 1 ' combobox1.text contient le nom
    For Each cellule In Sheets("feuil1").Range("a2:a" & Range("a65536").End(xlUp).Row)
            .AddItem cellule.Value
            .List(.ListCount - 1, 1) = cellule.Row
        
    Next cellule
End With

End Sub

JP

 

Vote positif 0 Vote négatif

Sylvain79

XLDnaute Nouveau

• 23 Janvier 2008

• #3

Re : navigateur de base de données

c'est exactement ça, merci beaucoup.

 

Vote positif 0 Vote négatif

Sylvain79

XLDnaute Nouveau

• 24 Janvier 2008

• #4

Re : navigateur de base de données

Bonjour,

j'ai quand meme un petit soucis, si je supprime une ligne complete de la feuille, la combobox me les retrouve quand meme.

Merci

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 24 Janvier 2008

• #5

Re : navigateur de base de données

Salut Sylvain, JP, le Forum

Un peu plus court 🙂

Bonne Journée

 

Pièces jointes

• navigateur1.zip

  11.5 KB · Affichages: 57
• navigateur1.zip

  11.5 KB · Affichages: 61
• navigateur1.zip

  11.5 KB · Affichages: 55

Vote positif 0 Vote négatif

Sylvain79

XLDnaute Nouveau

• 24 Janvier 2008

• #6

Re : navigateur de base de données

Bonsoir à tous,

merci beaucoup à vous deux.

Ta réponse Dull me parait beaucoup plus simple et compréhensible pour moi 🙂

Par contre est-il possible de changer les 2 TextBox par 2 ComboBox supplémentaires et ainsi faire son choix soit par nom, par prenom ou bien par age ?

J'ai réussi a modifier le UserForm et modifier le code pour la ComboBox 1 ( je suis mauvais mais la c'etait plutot facile ^^) mais j'y arrive pas pour les 2 autres 🙁

Merci .

 

Pièces jointes

• navigateur1.xls

  31.5 KB · Affichages: 55

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 25 Janvier 2008

• #7

Re : navigateur de base de données

Salut Sylain, le Fil

ton fichier modifié mais je ne vois plus trop l'intérêt de la recherche des deux autres combobox par rapport à la première

Bonne Journée

 

Pièces jointes

• navigateur1.zip

  12 KB · Affichages: 66
• navigateur1.zip

  12 KB · Affichages: 52
• navigateur1.zip

  12 KB · Affichages: 51

Vote positif 0 Vote négatif

Sylvain79

XLDnaute Nouveau

• 25 Janvier 2008

• #8

Re : navigateur de base de données

Bonjour Dull,

l'utilité des 2 autres ComboBox est de pouvoir recherché/naviguer soit par nom, par prenom ou par age.

J'ai rajouté ceci pour la 2e combobox:

Private Sub ComboBox2_Change()

Set C = ActiveSheet.Cells.Find(What:=ComboBox2.Value)
ComboBox1.Value = C.Offset(0, -1).Value
ComboBox3.Value = C.Offset(0, 2).Value
End Sub

par contre pour la 3e ça fonctionne pas 🙁

 

Dernière édition: 25 Janvier 2008

Vote positif 0 Vote négatif