Discussion :

[Leodams]

Bonjour,

Je recherche une formule qui me permettra de regrouper toutes les informations dans une seul cellule.

Je m'explique:

Mon critére de recherche se trouve "sheet 1" colonnes A : Exemple "Toto"
Ma table de matrice "sheet 2" à plusieurs fois "Toto" en colonnes A avec une information différente.

J'aimerai réunir ces informations dans une seule cellule dans colonne B.

Y a t'il une formule ou une macro qui pourrait réaliser cette opération.

Merci pour votre aide

[Menhir]

Je n'ai pas testé mais en gros ça devrait faire à peu près ce que tu souhaites.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Regrouper()
 
   Dim i as integer, j as integer
 
   For i = 1 to Worksheets("sheet 1").Range("A1").End(xlDown
      For j = 1 to  Worksheets("sheet 2").Range("A1").End(xlDown
         If Worksheets("sheet 1").Cells(i,1) = Worksheets("sheet 2").Cells(j,1) then
            Worksheets("sheet 1").Cells(i,2) = Worksheets("sheet 1").Cells(i,2) & Worksheets("sheet 2").Cells(j,2)
        End If
      Next j
   Next i
 
End Sub

[Leodams]

Bonjour,

J'ai testé la macro mais il me semble qu'elle est incompléte.
J'ai un message d'erreur dés le lancement.
J'ai ajouté des ??? là il me semble qu'il manque quelque chose.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Regrouper()
 
   Dim i as integer, j as integer
 
   For i = 1 to Worksheets("sheet 1").Range("A1").End(xlDown ???
      For j = 1 to  Worksheets("sheet 2").Range("A1").End(xlDown ???
         If Worksheets("sheet 1").Cells(i,1) = Worksheets("sheet 2").Cells(j,1) then
            Worksheets("sheet 1").Cells(i,2) = Worksheets("sheet 1").Cells(i,2) & Worksheets("sheet 2").Cells(j,2)
        End If
      Next j
   Next i

[Menhir]

Il suffit de fermer les parenthèses.
Tu pourrais faire un minimum d'effort quand même...

[Marc-L]

Parenthèse fermante certes, mais sans oublier la propriété Row !

[Leodams]

Oui j' ai quand même fait cet effort. Mais le resultat recherché n'est pas encore ça
Je n'ai pas d'espace entre chaque valeurs retrouvés

Est-il possible de mettre les commentaires dans le code afin de savoir comment le modifié ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Regrouper()
 
   Dim i As Integer, j As Integer
 
   For i = 1 To Worksheets("sheet 1").Range("A1").End(xlDown).Row + 1
      For j = 1 To Worksheets("sheet 2").Range("A1").End(xlDown).Row + 1
         If Worksheets("sheet 1").Cells(i, 1) = Worksheets("sheet 2").Cells(j, 1) Then
            Worksheets("sheet 1").Cells(i, 2) = Worksheets("sheet 1").Cells(i, 2) & Worksheets("sheet 2").Cells(j, 2)
        End If
      Next j
   Next i
   End Sub

Merci les gars !!!! Bonne soirée

[Menhir]

Parenthèse fermante certes, mais sans oublier la propriété Row !

J'ai du avoir un copier/coller qui s'est mal passé quand j'ai tapé le code.
En fait, c'est parce qu'initialement, j'étais parti sur une solution For Each et j'ai ensuite pensé qu'une solution Fo to serait plus facile à comprendre.

Je n'ai pas d'espace entre chaque valeurs retrouvés

Tu ne l'as pas demandé.

Est-il possible de mettre les commentaires dans le code afin de savoir comment le modifié ?

Bien sûr. Et je peux aussi te faire le café.
Jette un oeil dans l'aide VBA intégrée à Excel et tu n'auras aucune difficulté à comprendre les quelques instructions et méthodes qu'il y a dans ce code.

[parmi]

Code :

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

Worksheets("sheet 1").Cells(i, 2) = Worksheets("sheet 1").Cells(i, 2) & Worksheets("sheet 2").Cells(j, 2) & vbLf