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

Phil69970

XLDnaute Barbatruc

• 6 Août 2024

• #2

Bonjour @Jacques1998 et bienvenu sur XLD

Jacques1998 à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 6 Août 2024

• #3

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

 

Vote positif 0 Vote négatif

J

Jacques1998

XLDnaute Nouveau

• 6 Août 2024

• #4

Et voilà

 

Pièces jointes

• test.xlsx

  10.2 KB · Affichages: 3

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 6 Août 2024

• #5

Re

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

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 6 Août 2024

• #6

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

 

Pièces jointes

• test (10).xlsm

  21.4 KB · Affichages: 3

Vote positif 0 Vote négatif

J

Jacques1998

XLDnaute Nouveau

• 6 Août 2024

• #7

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

 

Pièces jointes

• test.xlsx

  10.6 KB · Affichages: 5

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 6 Août 2024

• #8

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

VB:

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

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 6 Août 2024

• #9

Re

Je te propose ce fichier

Merci de ton retour

 

Pièces jointes

• Dupliquer N fois V1.xlsm

  17.7 KB · Affichages: 3

Vote positif 0 Vote négatif

J

Jacques1998

XLDnaute Nouveau

• 7 Août 2024

• #10

Phil69970 à dit:

Re

Je te propose ce fichier

Merci de ton retour

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 7 Août 2024

• #11

@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 ???

Jacques1998 à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 7 Août 2024

• #12

Bonjour

et ma propostion en post 6 ??

 

Vote positif 0 Vote négatif

J

Jacques1998

XLDnaute Nouveau

• 7 Août 2024

• #13

Phil69970 à dit:

@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 ?

Cliquez pour agrandir...

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

 

Pièces jointes

• test v2.xlsx

  18.3 KB · Affichages: 4

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 7 Août 2024

• #14

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...

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 7 Août 2024

• #15

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

vgendron à dit:

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

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif