tijocanard
XLDnaute Nouveau
Bonjour au forum,
Etant novice en vba, je cherche à parcourir une feuille et fusionner les cellules identiques.
Le but étant d'obtenir une certaine arborescence.
Un petit fichier bidon en exemple, en feuile 1 le problème et en feuille 2 le résultat attendu.
A force de recherche j'arrive à fusionner qu'une seule colonne. La macro:
C'est pourtant tout con de parcourir chaque ligne et colonne pour comparer la valeur des cellules mais je débute en vba
Merci d'avance pour vos conseils
Etant novice en vba, je cherche à parcourir une feuille et fusionner les cellules identiques.
Le but étant d'obtenir une certaine arborescence.
Un petit fichier bidon en exemple, en feuile 1 le problème et en feuille 2 le résultat attendu.
A force de recherche j'arrive à fusionner qu'une seule colonne. La macro:
Code:
Private Sub CommandButton3_Click()
Application.DisplayAlerts = False
Dim i As Long, j As Long
For i = 1 To Range("A65536").End(xlUp).Row
j = 1
While Cells(i + j, 1) = Cells(i, 1)
Range(Cells(i, 1), Cells(i + j, 1)).MergeCells = True
j = j + 1
Wend
i = i + j - 1
Next
Application.DisplayAlerts = True
End Sub
C'est pourtant tout con de parcourir chaque ligne et colonne pour comparer la valeur des cellules mais je débute en vba
Merci d'avance pour vos conseils