Bonjour à tous,
Voilà je suis actuellement en train de lire un livre sur VBA, et j'ai un problème avec la méthode while / wend.
Avec ce code: seul le premier bloc de lignes ayant le même nom fusionne:
Savez-vous ce qui ne va pas ? d'autre part utilisez-vous parfois cette méthode ou vous concentrez-vous davantage sur les do / while ?
Merci beaucoup !
Tweedi.
Voilà je suis actuellement en train de lire un livre sur VBA, et j'ai un problème avec la méthode while / wend.
Avec ce code: seul le premier bloc de lignes ayant le même nom fusionne:
Sub fusion_final()
Dim num_row As Integer
Dim row_fin As Integer
num_row = 2
Application.DisplayAlerts = False
While Cells(num_row) <> ""
row_fin = num_row
While Cells(row_fin, 1) = Cells(row_fin + 1, 1)
row_fin = row_fin + 1
Wend
With Range(Cells(num_row, 1), Cells(row_fin, 1))
.Merge
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
num_row = row_fin + 1
Wend
Application.DisplayAlerts = True
End Sub
Savez-vous ce qui ne va pas ? d'autre part utilisez-vous parfois cette méthode ou vous concentrez-vous davantage sur les do / while ?
Merci beaucoup !
Tweedi.