VBA Fusionner contenu d'une cellule dans une seul dans une liste.

[azertyyyy]

Bonjour à tous,

désolé si le titre n'ai pas très clair, je ne sais pas trop comment le formuler

Depuis ma base mssql extrait une liste:

société|Modele|    marque|    Version| Option 
SOC1	78338	CHEVROLET	AVEO	clim
SOC1	78338	CHEVROLET	AVEO	jante allume
SOC1	78338	CHEVROLET	AVEO	garantie
SOC1	78338	CHEVROLET	AVEO	gilet
SOC1	78338	CHEVROLET	AVEO	peinture métallisée
SOC1	78973	CHEVROLET	AVEO	clim
SOC1	78973	CHEVROLET	AVEO	jante allume
SOC1	78973	CHEVROLET	AVEO	garantie
SOC1	78973	CHEVROLET	AVEO	gilet
SOC1	78973	CHEVROLET	AVEO	peinture métallisée

Comme dans mon exemple ci-dessus, les options d'une voiture prennent une ligne par option .

Donc par exemple mon fichier extraction comporte 2500 ligne Alors qu'il n'y a que 500 voitures.
Je voudrait qu'en VBA qu'il me rajoute tout les options correspondante a une voiture dans une cellule.

Pour arriver a la fin avec :

société|Modele|    marque|    Version| Option 
SOC1	78338	CHEVROLET	AVEO	clim;jante allume ; 	garantie;
SOC1	78973	CHEVROLET	AVEO	clim; ante allume; garantie; gilet; peinture métallisée

Est-ce réalisable? Si oui comment?

Merci d'avance pour votre aide

azertyyy

 

[ERIC S]

Re : VBA Fusionner contenu d'une cellule dans une seul dans une liste.

Bonsoir

si ta base est sur feuil1
tu mets en bouton sur feuil2 et tu y associe le code

Sub essai()
'hypothèse base en feuil1
j = 1
With Sheets("feuil1")
    If .Range("A65536").End(xlUp) < 2 Then MsgBox "liste vide": Exit Sub
    For i = 2 To .Range("A65536").End(xlUp)
        If .Cells(i, 2).Value <> .Cells(i - 1, 2).Value Then
            j = j + 1
            Cells(j, 1).Value = .Cells(i, 1).Value
            Cells(j, 2).Value = .Cells(i, 2).Value
            Cells(j, 3).Value = .Cells(i, 3).Value
            Cells(j, 4).Value = .Cells(i, 4).Value
            Cells(j, 5).Value = .Cells(i, 5).Value
        Else
            Cells(j, 5).Value = Cells(j, 5).Value & "; " & .Cells(i, 5).Value
        End If
    Next
End With
End Sub

je pense que je n'ai pas fait d'erreur