Générer une liste à partir de liste

Version imprimable

26/02/2019, 10h41
swannypou

Générer une liste à partir de liste

Bonjour, :lol:

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
26/02/2019, 12h46
78chris

Bonjour

Facile à faire avec PowerQuery, intégré à partir de 2016, en add on sur 2010 et 2013
28/02/2019, 14h40
swannypou

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

merci encore et à plus tard,

1 pièce(s) jointe(s)

Bonjour,

Code:

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

1 pièce(s) jointe(s)

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:

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

28/02/2019, 17h40
eriiic

Bonjour,

OrDonc, c'est bizarre tes ç dans tes ref... :-)
eric
28/02/2019, 20h49
OrDonc

mais Si...

Bonsoir Eric :applo:
Hé oui, la première réaction, quand on ne sait pas, est de dire « bizarre ».
Je pourrais ajouter « Vous avez dit bizarre, comme c’est bizarre ! ».

J’ai trop souvent vu des codes imbuvables car la consigne était : « le nom doit être significatif ! *»
J’ai l’habitude de donner les noms les plus simples, les plus courts aux objets que j’utilise.
Quand j’en ai plusieurs de même nature, je les numérote pour les distinguer et faciliter l’écriture de certains codes.
Le problème est qu’on doit éviter de les numéroter A1, A2 … C1, C2 … NRV1, NRV2 … Ou3 … ,Tbo1 , Tbo2 …qui sont interprétés comme noms de cellule !
D’où mon choix de ç1, … à5 …é2, … Où3 ... (introduction de lettres autorisées)

*pour le clin d’œil : en plus ç1 peut faire penser à C’est 1*:P
28/02/2019, 21h47
eriiic

Houla, c'est piègeux ton truc :-)
J'étais persuadé que c'était un C1 qui avait mal tourné et que tu avais un soucis avec ton éditeur.
Bah, tant que ça n'embrouille pas plus que ça les débutants... ;-)
eric