Constitution d'un fichier de cas Résolu/Fermé

Question

Bonjour,

Je souhaite constituer un fichier de cas à partir de plusieurs variables.
1ère variable : habitation pouvant être soit appartement soit maison
2ème variable : nombre de pièces pouvant être 1, 2 ou 3
3ème variable : occupant pouvant être locataire ou propriétaire

Résultat souhaité :
Habitation           Nb pièces              Occupant
Appartement           1                         Locataire
Appartement           1                         Propriétaire
Appartement           2                         Locataire
Appartement           2                         Propriétaire
Appartement           3                         Locataire
Appartement           3                         Propriétaire
Maison                     1                          Locataire
Maison                     1                          Propriétaire
Maison                     2                          Locataire
Maison                     2                          Propriétaire
Maison                     3                          Locataire
Maison                     3                          Propriétaire

Bien évidemment sans avoir à intercaler des lignes, faire des copier/coller... L'objectif est de combiner 3 variables à plusieurs modalités et ressortir un tableau qui les combine et sort tous les cas possibles.

Voilà. 
Je suis un peu perdue là... J'ai vraiment besoin d'aide.

Je vous remercie par avance pour toute l'aide que vous pourrez m'apporter.

Cordialement,

Poup

Gyrus · Answer

Bonjour,

Essaie cette macro
Sub ListerCas()Dim Habitation, NbPièces, OccupantDim i As Integer, j As Integer, k As Integer, L As Integer    Habitation = Array("Appartement", "Maison")    NbPièces = Array("1", "2", "3")    Occupant = Array("Locataire", "Propriétaire")    L = 2    For k = 0 To UBound(Habitation)        For j = 0 To UBound(NbPièces)            For i = 0 To UBound(Occupant)                Range("A" & L) = Habitation(k)                Range("B" & L) = NbPièces(j)                Range("C" & L) = Occupant(i)                L = L + 1            Next i        Next j    Next kEnd Sub
A+

Gyrus · Answer

Dans l'exemple joint, les 3 listes sont saisies dans la feuille "Listes".
Chaque liste correspond à une plage nommée (voir onglet FORMULES > Gestionnaire de noms).
Ces listes s'adaptent automatiquement selon le nombre d'éléments.

La macro ListerCas traite l'ensemble des éléments de ces 3 listes.

https://www.cjoint.com/c/FHek6k7vTPH

A+