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

ColinWOOD · 30 Avril 2021

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 · 30 Avril 2021

re
c'est pourtant simple
dans le module thisworkbook tu met

VB:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not Intersect([A:B], Target) Is Nothing Then test
End Sub
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 UBound(tablo) + 1)
    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), UBound(tablo)) = tablo2
End Sub

comme ça des un changement ça te met le tableau a jour

c'est du travail mâché

patricktoulon · 30 Avril 2021

bonjour
une simple double boucle imbriquée

ColinWOOD · 30 Avril 2021

patricktoulon à dit:
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 · 30 Avril 2021

patricktoulon à dit:
bonjour
une simple double boucle imbriquée

Bonjour,

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

patricktoulon · 30 Avril 2021

d'une macro

Etoto · 30 Avril 2021

patricktoulon à dit:
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 · 30 Avril 2021

Etoto à dit:
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 · 30 Avril 2021

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

patricktoulon · 30 Avril 2021

ca peu être les deux

Etoto · 30 Avril 2021

patricktoulon à dit:
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 · 30 Avril 2021

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

VB:

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 · 30 Avril 2021

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

VB:

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 · 30 Avril 2021

Wahou super merci beaucoup !

patricktoulon · 30 Avril 2021

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

Etoto · 30 Avril 2021

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

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

ColinWOOD

XLDnaute Nouveau

patricktoulon

patricktoulon

XLDnaute Barbatruc

ColinWOOD

XLDnaute Nouveau

Etoto

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Etoto

XLDnaute Barbatruc

ColinWOOD

XLDnaute Nouveau

Etoto

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Etoto

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Etoto

XLDnaute Barbatruc

ColinWOOD

XLDnaute Nouveau

patricktoulon

XLDnaute Barbatruc

Etoto

XLDnaute Barbatruc

Discussions similaires