XL 2021 Aide code VBA - à partir de deux listes, créer une base de donnée

[Jacques1998]

Bonjour,
Je ne trouve pas de solution à mon problème, j'espère pouvoir trouver de l'aide ici.
J'ai deux listes dans deux onglets différents dans un même feuille:
Liste 1 Liste 2
A 1
B 2
C 3
4
Et je souhaite que le résultat de la macro me donne une liste dans un autre onglet, qui duplique les deux listes entre elles : si on reprend l'exemple à partir de la cellule B3:
A 1
A 2
A 3
A 4
B 1
B 2
B 3
B 4
C 1
C 2
C 3
C 4

J'espère être clair dans ma demande!
Merci pour votre aide

 

[Phil69970]

Bonjour @Jacques1998 et bienvenu sur XLD

J'espère être clair dans ma demande!

Avec un fichier cela sera encore plus limpide et cela nous évitera de nous retaper un fichier que tu as au chaud sur ton DD

 

[vgendron]

Bonjour et bienvenue sur le forum

pour faire simple, il est d'usage de poster un fichier exemple représentatif de ton besoin
plutot que copier coller tes listes dans le post, ce qui nous oblige à recréé un fichier avec ces listes et la quasi certitude de ne pas faire ca de la meme manière que ton fichier...

ensuite.. sur l'explication donnée.. déjà. il y a un pb
"deux onglets différents dans une meme feuille" ==> onglet et feuille.. c'est pareil .. donc ..

pour poster ton fichier, il suffit de cliquer sur "Joindre un fichier" en bas à gauche du post
dans le fichier.. PAS de données confidentielle.. evidemment
à plus tard

 

[Jacques1998]

Et voilà

 

[Phil69970]

Re

Peux tu donner le résultat attendu dans ton fichier car j'ai pas tout compris

 

[vgendron]

il te faut les colonnes B et C ou directement la colonne A ?

 

[Jacques1998]

Merci à tous, je savais que je n'étais pas très clair
Je reformule :
J'ai deux listes, dans un onglet et dans le même fichier je voudrais que la liste 1 soit dupliquée avec la liste deux pour créer une base de donnée : ci-joint le résultat attendu.
Colonne B et C les listes sont "dupliquées" entre elles pour ensuite avec un couple unique concatener

 

[vgendron]

pour générer la colonne A directement.. pas besoin des colonnes B et C

Sub distribue2()
Dim TabFinal() As Variant

With Sheets("Feuil1")
    Tab1 = .ListObjects("t_Liste").DataBodyRange.Value
    Tab2 = .ListObjects("t_Marché").DataBodyRange.Value
End With
Nb = 1
For i = LBound(Tab1, 1) To UBound(Tab1, 1)
    For j = LBound(Tab2, 1) To UBound(Tab2, 1)
        ReDim Preserve TabFinal(1 To Nb)
        TabFinal(Nb) = Tab1(i, 1) & "-" & Tab2(j, 1)
        Nb = Nb + 1
    Next j
Next i

Range("A3").Resize(UBound(TabFinal, 1), 1) = Application.Transpose(TabFinal)

End Sub

 

[Phil69970]

Re

Je te propose ce fichier

Merci de ton retour

 

[Jacques1998]

Re

Je te propose ce fichier

Merci de ton retour

Bonjour, merci pour ce premier draft, mais les colonnes B et C sont importantes pour mon projet (je dois créer une base de données, les deux colonnes seront par la suite utilisées) . Est ce que sinon je peux utiliser ce code et ajouter un convertir? ou un autre code existe?

Merci beaucoup pour votre aide

 

[Phil69970]

@Jacques1998

Si tu as besoin de garder les colonnes B et C mon fichier le fait comme tu as pu le voir.

Par contre que veut dire ???

Est ce que sinon je peux utiliser ce code et ajouter un convertir? ou un autre code existe?

Le fichier fait bien ce que tu as demandé il me semble que veux tu rajouter ?

 

[vgendron]

Bonjour

et ma propostion en post 6 ??

 

[Jacques1998]

@Jacques1998

Si tu as besoin de garder les colonnes B et C mon fichier le fait comme tu as pu le voir.

Par contre que veut dire ???


Le fichier fait bien ce que tu as demandé il me semble que veux tu rajouter ?

Désolé, je n'avais pas vu cette réponse, ça a l'air de convenir au résultat escompté mais quand j'ai essayé de transposer la macro avec les données de mon fichier mais je n'y arrive pas (désolé je suis débutant ) car ma liste est plus large que mon exemple cité plus tôt : voici les différences
Les deux listes sont en fait dans deux ongles différents.
Une des listes est plus étoffée : j'ai plusieurs éléments que je souhaite dupliquer également

J'ai joint la base de test 2, qui est plus adéquate avec mon cas ..

Merci beaucoup

 

[vgendron]

Bon bah.. @Phil69970 je te laisse poursuivre seul.. vu qu'apparemment mes messages sont ignorés...
je vais peut etre aller reprendre une douche...
et comme en plus.. finalement le fichier initial n'est pas REPRESENTATIF du besoin.; ca sent encore le demandeur qui va en rajouter une couche à chaque message...

 

[Phil69970]

Vincent
Je te rassure tu n'es pas devenu invisible moi je te vois

finalement le fichier initial n'est pas REPRESENTATIF du besoin.; ca sent encore le demandeur qui va en rajouter une couche à chaque message...

Tout à fait et c'est vrai que c'est assez énervant de ne pas mettre tout de suite un fichier représentatif !!!

Bon vu l'heure on verra après le repas et mon retour de chez ma maman.