Vba:

Fermé
apex77 Messages postés 48 Date d'inscription jeudi 27 mars 2008 Statut Membre Dernière intervention 17 avril 2008 - 17 avril 2008 à 13:45
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 17 avril 2008 à 15:04
Bonjour,
J'ai crée un userform, une liste (combobox)

Dans ma liste il y a des noms.
Chaque nom est repris sur une feuille excel en ligne.
En dessous de chaque nom j'ai des chiffres et je voudrai que quand je selectionne un nom dans ma liste, il m'aditionne tous les chiffres trouvant dans la colonne où il y a le nom qui a été sélectionné.

il me reste à faire le nécessaire pour lui faire comprendre de prendre le nom qui a ete sélectionné dans la liste, pour que dans la feuille excel en question il prenne la bonne colonne
c'est pour ca j'avais pensé à faire un select case
mais mon problème c'est qu'il faut défini quelquechose à coté du select case
exemple:

select case XXXXX
Case "Betrand"
k="Bertrand"
Case "Rolland"
k="Roland"

mais je sais pas quoi mettre à la place des XXXXX pour faire référence à la liste
si vous savez des idées

merci pour votre aide

2 réponses

lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
17 avril 2008 à 14:01
Bonjour,
Pas très clair comme explication, mais si les noms sont sur une ligne...
Mettre tout les noms dans le combo dans le même ordre que sur la feuille Excel

Private Sub ComboBox1_Click()

Dim NumColonne as integer
    NumColonne = ComboBox1.ListIndex + 1
 End Sub

A+
0
apex77 Messages postés 48 Date d'inscription jeudi 27 mars 2008 Statut Membre Dernière intervention 17 avril 2008
17 avril 2008 à 14:19
et je fais comment après pour faire mon select case , ou autre cr chaue choix donne une chose differente
0
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
17 avril 2008 à 15:04
ben y a plus besoin de select case puisque tu à le N° de la colonne, suffit d'additionner les nombres qui sont dans cette colonne !
A+
PS: et si u veux controller que c'est bien la bonne colonne...
Dim Nom as string

    Nom = ComboBox1.text

0