Discussion :

[bervellea1]

Bonjour à tous,

Dans le fichier joint, j'ai les données en B et C
je voudrais avoir le résultat qui se trouve dans les cellules E et F avec une MACRO

merci de m'aider.

[matthieu69]

tu peut déjà le faire avec une formule

Code :

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

=C2&CAR(10)&C18

après à voir pour ton utilisation

[jerome.vaussenat]

Salut,

voici ce que je te propose comme code.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub regroupe()
     Dim nb_linge As Integer
 
     'création d 'un "dictionnaire" perméttant de gérer le fait qu'un élément ai déjà été traité
     Set d = CreateObject("Scripting.Dictionary")
     'on détermine le nb de lignes
     nb_ligne = Range("C65536").End(xlUp).Row
     'on partourt le tableau
     For cpt = 2 To nb_ligne
        'si la valeur de la col B n'a pas encore été rencontrée
        If Not d.exists(Cells(cpt, 2).Value) Then
            'on l'ajoute au dictionnaire
            d.Add Cells(cpt, 2).Value, Cells(cpt, 3).Value
        Else
            'sinon, on modifie la valeur déjaà affectée
            d.Item(Cells(cpt, 2).Value) = d.Item(Cells(cpt, 2).Value) & Chr(10) & Cells(cpt, 3).Value
        End If
    Next
    'on ressort les infos dans les colonnes E et F
    cpt = 2
    For Each c In d.keys
        Cells(cpt, 5).Value = c
        Cells(cpt, 6).Value = d.Item(c)
        cpt = cpt + 1
    Next c
End Sub

Dans ton fichier exemple tu te rendra compte que tu as une erreur de saisie sur le premier SAT (un espace en trop au début et à la fin)

[bervellea1]

Merci à tous pour votre aide, particulièrement à Jérôme.