Sujet Précédent Sujet Suivant

Utiliser combobox excel VBA

Résolu/Fermé
leeks Messages postés 54 Date d'inscription mercredi 11 mars 2009 Statut Membre Dernière intervention 5 janvier 2012 - 3 oct. 2011 à 15:51
leeks Messages postés 54 Date d'inscription mercredi 11 mars 2009 Statut Membre Dernière intervention 5 janvier 2012 - 4 oct. 2011 à 14:11
Bonjour,

je suis sur un projet sous Excel VBA et je suis un peu blocké.
Voila j ais une base de donnée sous excel qui se presente comme suit



Nom Prenom Age Matricule
Tata tit 10 15623
Mami fifi 80 12233
fafa baba 45 154ge


j ais un Userform avec les champs nom,prenom,age,matricule

Voila ce que j aimerais faire:
Si on tape dans la combobox modifiable "nom" et les autres informations s'applique dans les zonetext "prenom","age","matricule".

Si on clique sur un bouton ( buttoncommand) la macro nous indique la ligne ou se trouve les informations( Bien entendu sur la feuille "base de donnée") et met un remplissage de couleur.

Merci d'avance

A voir également:

1 réponse

Réponse 1 / 1
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
3 oct. 2011 à 16:04
Bonjour,

Avec un code dans ce style : 
Private Sub ComboBox1_Change()
'déclaration des variables
Dim i As Integer
If comboBox1 = "" Then Exit Sub
'recherche de la ligne ou figure le NOM (combobox1) dans la feuille "bdd"
With Sheets("bdd")
    i = .Columns(1).Cells.Find(ComboBox1).Row
    'renvoie la valeur des cellules 1 à 5 dans les différents controles de l'USF
    UserForm1.TextBox1 = .Cells(i, 1)
    UserForm1.ComboBox2 = .Cells(i, 2)
    UserForm1.TextBox4 = .Cells(i, 6)
    UserForm1.TextBox3 = .Cells(i, 3)
    If .Cells(i, 9) = "oui" Then
        UserForm1.CheckBox1.Value = True
    End If
End With
End Sub

Un exemple de UserForm
0
leeks Messages postés 54 Date d'inscription mercredi 11 mars 2009 Statut Membre Dernière intervention 5 janvier 2012 6
4 oct. 2011 à 14:11
Merci pour la contribution ( Qui n'est pas d ailleur la premiere sur un de mes topic ;-) )jessaie et je vous reviens

Cdrlmnt
0