Création
d'entreprise
Posez votre question Signaler

Utiliser combobox excel VBA [Résolu]

leeks 40Messages postés 11 mars 2009Date d'inscription 7 octobre 2011Dernière intervention - Dernière réponse le 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
Lire la suite 

Utiliser combobox excel VBA »

2 réponses
Réponse
+0
moins plus
pijaku 4446Messages postés 15 mai 2008Date d'inscription 30 mai 2012Dernière intervention 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

Ajouter un commentaire - Site web
leeks- 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
Ajouter un commentaire
Posez votre question
Ce document intitulé « utiliser combobox excel VBA » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
Dossier à la une
Passage au tout numérique : quel coût pour les particuliers ?