Bonjour,
J'ai trouvé le code de JB (merci pour tous tes apports), pour fusionner des lignes
qui donne le résultat :
on passe de
à
C'est super, je l'ai déjà beaucoup utilisé, par contre, je n'arrive pas à le ré-utiliser pour des colonnes (je mets mon fichier en PJ, plus simple pour l'explication....)
J'ai fait de nombreux essais en inversant par exemple cells(i,3) par cells(3,i) (qui me semblait logique par rapport à mon fichier, mais tant que ça, puisque ça ne fonctionne pas....lol)
Merci pour votre aide,
Eric
J'ai trouvé le code de JB (merci pour tous tes apports), pour fusionner des lignes
Code:
Sub merge()
Application.DisplayAlerts = False
i = 2
Do While Cells(i, 1) <> ""
m = i
Do While Cells(i, 1) = Cells(m, 1)
i = i + 1
Loop
Cells(m, 1).Resize(i - m).VerticalAlignment = xlTop
Cells(m, 1).Resize(i - m).MergeCells = True
Loop
End Sub
on passe de
à
C'est super, je l'ai déjà beaucoup utilisé, par contre, je n'arrive pas à le ré-utiliser pour des colonnes (je mets mon fichier en PJ, plus simple pour l'explication....)
J'ai fait de nombreux essais en inversant par exemple cells(i,3) par cells(3,i) (qui me semblait logique par rapport à mon fichier, mais tant que ça, puisque ça ne fonctionne pas....lol)
Merci pour votre aide,
Eric
Pièces jointes
Dernière édition: