Sujet Précédent Sujet Suivant

Excel: Liste variable pour menu déroulant

tchernosplif Messages postés 714 Statut Membre -  
tchernosplif Messages postés 714 Statut Membre -
Bonjour,

Je n'arrive pas à définir une liste "dynamique" pour un menu déroulant.
je dis "dynamique" car les chiffres vont évoluer.

j'ai par exemple un tableau de 2 colonnes (A et B):

pomme 2
poire 3

qui donnerait cette "répartition" dans une autre colonne (C):

pomme1
pomme2
poire1
poire2
poire3

et il y aurait donc une liste: "maliste" avec la plage C1:C5

Les questions:
-Comment obtenir la "répartition" décrite ci dessus?

je fait des test avec ce fichier mais sans succès:
http://www.cijoint.fr/cj201011/cijL4HhYn6.xls

-Comment faire une liste continue de la répartition obtenue ? (sans cellule vide)

Merci d'avance pour vos précieux conseils.

A voir également:

3 réponses

Réponse 1 / 3
Le Pingou Messages postés 12714 Date d'inscription   Statut Contributeur Dernière intervention   1 467
 
Bonjour,
L'explication n'est pas clair, peut être que cela vous aidera : https://www.cjoint.com/?3lxxbIjsoJl
0
tchernosplif Messages postés 714 Statut Membre 248
 
merci, mais ça ne correspond pas.
pour faire simple: je rempli la colonne A et B, et la colonne C se rempli automatiquement avec la bonne répartition.
0
Réponse 2 / 3
eriiic Messages postés 25847 Date d'inscription   Statut Contributeur Dernière intervention   7 282
 
Bonjour,

proposition en vba : 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim defListe As Range, i As Long, j As Long, k As Long
    Set defListe = Range("A1:B2") ' à adapater selon le nombre d'éléments
    If Intersect(Target, defListe) Is Nothing Then Exit Sub
    Range("C1", [C1].End(xlDown)).ClearContents
    For i = 1 To defListe.Cells.Count / 2
        For j = 1 To defListe.Cells(i, 2).Value
            [C1].Offset(k, 0) = defListe.Cells(i, 1) & j
            k = k + 1
        Next j
    Next i
    Worksheets("Feuil1").ComboBox1.ListFillRange = [C1].Resize(k, 1).Address
End Sub

Classeur1.xls
Attention, il doit toujours rester une cellule libre sous la dernière cellule de la liste de taille maximale.

eric
0
Réponse 3 / 3
tchernosplif Messages postés 714 Statut Membre 248
 
super eriiic, c'est exactement le résultat attendu, je m'approche de mon but, (il reste un détail qui me chifonne et qui fera certainement l'objet d'une ultime question) Merci, c'est la deuxième fois que tu m'aide sur ce projet.
0