XL 2019 Générateur de mot automatiquement selon une liste définie

[ColinWOOD]

Salut !

J'ai grandement besoin d'aide...

En gros je voudrais générer de manière automatique toutes les possibilité de nom avec les deux mots. Mais je ne sais pas comment m'y pendre. J'ai trouvé une technique super longue... Et là ça va il n'y a que 8 mots mais moi j'en ai 400 !

Si vous avez une solution je suis preneur !!!!

Merci par avance

 

[patricktoulon]

bonjour
une simple double boucle imbriquée

 

[ColinWOOD]

bonjour
une simple double boucle imbriquée

Heu... C'est à dire ?
Je suis pas très doué avec Excel en dehors des bases comptables on va dire

 

[Etoto]

bonjour
une simple double boucle imbriquée

Bonjour,

Tu parles d'une macro ? Ou d'un outil d'Excel de base ?

 

[patricktoulon]

d'une macro

 

[Etoto]

d'une macro

Ok et elle ressemblerais à quoi cette macro ? Parce qu'elle me serait très utile pour créer une base de données.

 

[ColinWOOD]

Ok et elle ressemblerais à quoi cette macro ? Parce qu'elle me serait très utile pour créer une base de données.

Je prend aussi du coup

 

[Etoto]

Mais cette macro se serait une fonction personnalisée ou une macro tout cour ?

 

[patricktoulon]

ca peu être les deux

 

[Etoto]

ca peu être les deux

Sans vouloir t'embêter, tu arriverais à en faire une pour nous vu que tu as l'air de mieux gérer le VBA ? Mais je ne te dit pas cela pour te mettre la pression de mon côté j'ai tout mon temps.

 

[patricktoulon]

un exemple
de tablo transposé ( comme dans ta demande)
dans une double boucle imbriqué

Sub test()
    Dim tablo,tablo2,ligne&,col&
    tablo = Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row).Resize(, 2).Value
    ReDim tablo2(1 To UBound(tablo), 1 To 4)
    For ligne = 1 To UBound(tablo)
        For col = 1 To UBound(tablo)
            tablo2(ligne, col) = tablo(ligne, 1) & " " & tablo(col, 2)
        Next
    Next
[D1].Resize(UBound(tablo), 4) = tablo2
End Sub

résultat

 

[Etoto]

un exemple
de tablo transposé ( comme dans ta demande)
dans une double boucle imbriqué

Sub test()
    Dim tablo,tablo2,ligne&,col&
    tablo = Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row).Resize(, 2).Value
    ReDim tablo2(1 To UBound(tablo), 1 To 4)
    For ligne = 1 To UBound(tablo)
        For col = 1 To UBound(tablo)
            tablo2(ligne, col) = tablo(ligne, 1) & " " & tablo(col, 2)
        Next
    Next
[D1].Resize(UBound(tablo), 4) = tablo2
End Sub

résultat
Regarde la pièce jointe 1104077

Et si tu rajoutes des éléments dans la colonnes A et B, la macro va-t-elle s'adapter automatiquement ou pas ?

 

[ColinWOOD]

Wahou super merci beaucoup !

 

[patricktoulon]

oui c'est a cela que sert le
"end(xlup).row"
il determine la derniere ligne

 

[Etoto]

Super merci beaucoup, tu gères et tu es rapide, bonne fin d'après midi à vous deux.