Discussion :

[swannypou]

Bonjour,

A partir des deux listes, j'aimerais en générer une troisième qui serait le résultat de la concaténation des deux autres avec l'ajout d'une chaîne de caractères.

Exemple: Liste 1 : Ballon;Vélo Liste 2 : Rouge;Bleu;Jaune

et génération automatique de la Liste 3 : Ballon de couleur Rouge;Ballon de couleur Bleu;Ballon de couleur Jaune;Vélo de couleur Rouge;Vélo de couleur Bleu;Vélo de couleur Jaune

Merci de votre aide, je n'ai pas encore trouvé la solution,
Bien cordialement

[78chris]

Bonjour

Facile à faire avec PowerQuery, intégré à partir de 2016, en add on sur 2010 et 2013

[swannypou]

Ok merci à vous de la piste, je vais creuser pour découvrir cette fonctionnalité...

merci encore et à plus tard,

[boisgontierjacques]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub essai()
  a = Array("Ballon", "vélo")
  b = Array("rouge", "vert", "Bleu")
  ReDim c(1 To (UBound(a) + 1) * (UBound(b) + 1))
  For i = 0 To UBound(a)
    For j = 0 To UBound(b)
       c(i * (UBound(b) + 1) + j + 1) = a(i) & " de couleur " & b(j)
    Next j
  Next i
  [A1].Resize(UBound(c)) = Application.Transpose(c)
End Sub

Boisgontier

[OrDonc]

Bonjour

Avec un contexte précis :
2 listes chacune intégrée dans son Tableau (ç1 et ç2) qu’on peut modifier donc avec une évènementielle pour récupérer la nouvelle liste intégrée dans un Tableau nommé ç3 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
Private Sub Worksheet_Change(ByVal R As Range)
    If Not Intersect(R, Union([ç1], [ç2], [ç1].Rows([ç1].Rows.Count + 1), [ç2].Rows([ç2].Rows.Count + 1))) Is Nothing Then
        Dim C1 As Range, C2 As Range, i As Byte
       Application.ScreenUpdating = 0
        If Application.CountA([ç3]) > 1 Then [ç3].Delete    'nettoie le tableau ç3
        For Each C1 In [ç1]                                         'parcourt le tableau ç1
            For Each C2 In [ç2]                                     'parcourt le tableau ç2
                i = i + 1                                              'ajoute une ligne dans le tableau ç3
                [ç3].Item(i, 1) = C1 & " en " & C2          'concatène
            Next
        Next
    End If
End Sub

Remarque: la saisie de doublon n’est pas traitée. Elle peut être ajoutée simplement dans la macro.

Pour ceux qui ne connaissent pas encore la commande Tableau, il y a dans le fichier joint un début d’explications (2 images qui alourdissent un peu le classeur).

[eriiic]

Bonjour,

OrDonc, c'est bizarre tes ç dans tes ref... :-)
eric