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

C

ColinWOOD

XLDnaute Nouveau

• 30 Avril 2021

• #16

Je vous embête encore mais je dois avoir loupé une étape parce que ça ne marche pas ...

 

Vote positif 0 Vote négatif

Etoto

XLDnaute Barbatruc

Supporter XLD

• 30 Avril 2021

• #17

ColinWOOD à dit:

Je vous embête encore mais je dois avoir loupé une étape parce que ça ne marche pas ...
Regarde la pièce jointe 1104084

Cliquez pour agrandir...

Heu oui moi aussi le code me renvoie une erreur

 

Vote positif 0 Vote négatif

C

ColinWOOD

XLDnaute Nouveau

• 30 Avril 2021

• #18

Etoto à dit:

Heu oui moi aussi le code me renvoie une erreur

Cliquez pour agrandir...

Donc c'est pas de ma faute 😅

 

Vote positif 0 Vote négatif

Etoto

XLDnaute Barbatruc

Supporter XLD

• 30 Avril 2021

• #19

ColinWOOD à dit:

Donc c'est pas de ma faute 😅

Cliquez pour agrandir...

Et c'est exactement la même erreur que toi 😕 😆😉

 

Vote positif 0 Vote négatif

Etoto

XLDnaute Barbatruc

Supporter XLD

• 30 Avril 2021

• #20

@ColinWOOD vu que tu peux éditer la conversation enlève l'indication qui dit que la conversation est résolue comme ça d'autres personne pourrons nous aider comme l'a fait @patricktoulon.

 

Vote positif 0 Vote négatif

C

ColinWOOD

XLDnaute Nouveau

• 30 Avril 2021

• #21

Etoto à dit:

@ColinWOOD vu que tu peux éditer la conversation enlève l'indication qui dit que la conversation est résolue comme ça d'autres personne pourrons nous aider comme l'a fait @patricktoulon.

Cliquez pour agrandir...

C'est fait !

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 30 Avril 2021

• #22

Bonjour Patrick, le Forum,
Le fichier ci-joint fonctionne,
lionel 🙂

 

Pièces jointes

• Patrick.xlsm

  27.6 KB · Affichages: 10

Vote positif 0 Vote négatif

Etoto

XLDnaute Barbatruc

Supporter XLD

• 30 Avril 2021

• #23

Usine à gaz à dit:

Bonjour Patrick, le Forum,
Le fichier ci-joint fonctionne,
lionel 🙂

Cliquez pour agrandir...

Elle fonctionne super mais dés qu'on rajoute un élément à la colonne A et B, elle renvoie aussi une erreur, tu sais si tu arrives à changer cela ?

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 30 Avril 2021

• #24

Mettez un fichier avec ce que vous voulez faire 🙂

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 30 Avril 2021

• #25

Bonjour à tous,

Avec une formule en E2 à copier suffisamment à droite puis suffisamment vers le bas jusqu'à obtenir des cellules vides.

 

Pièces jointes

• ColinWOOD- couples- v1.xlsx

  10.5 KB · Affichages: 5

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 30 Avril 2021

• #26

ma fois la solution est bonne
si ça ne fonctionne pas c'est que tu a fait quelque chose de travers
prend la peine de nous livrer ton fichier on verra

 

Dernière édition: 30 Avril 2021

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 30 Avril 2021

• #27

Re,

Par VBA.
Code dans le module de la feuille "Feuil1":

VB:

Sub MarionsLes()
Dim t1, t2, i&, j&
   Range(Range("e2"), Range("e2").End(xlToRight).End(xlDown)).Clear
   t1 = Range("a1").Resize(Cells(Rows.Count, "a").End(xlUp).Row)
   t2 = Range("b1").Resize(Cells(Rows.Count, "b").End(xlUp).Row)
   If Not IsArray(t1) Or Not IsArray(t2) Then Exit Sub
   ReDim t(1 To UBound(t1) - 1, 1 To UBound(t2) - 1)
   For i = 2 To UBound(t1): For j = 2 To UBound(t2): t(i - 1, j - 1) = t1(i, 1) & " " & t2(j, 1): Next j, i
   Range("e2").Resize(UBound(t), UBound(t, 2)) = t
End Sub

edit : bonjour @Usine à gaz 😉

 

Pièces jointes

• ColinWOOD- couples- v2.xlsm

  17.6 KB · Affichages: 4

Dernière édition: 30 Avril 2021

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 30 Avril 2021

• #28

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é

 

Vote positif 0 Vote négatif

Solution