XL 2013 Fusion de cellules avec données et conditions

[romdrag]

Bonjour
Ce type de demande a déjà été faite je suppose mais je n'ai pas réussi à trouver une solution qui fonctionne avec les différents post précédents.
Je débute avec VBA et je me heurte à un problème de condition qui n'est pas pris en compte.
Je joins un fichier test qui illustre ma demande.
Le but est de fusionner les données contenues dans les cellules de la deuxième colonne en les faisant correspondre à la bonne date (colonne 1), et en supprimant les lignes devenues inutiles. Ma macro fonctionne pour le résultat à obtenir mais la condition d'arrêt n'est pas prise en compte, elle continue de s'appliquer bien que la dernière ligne soit atteinte et de ce fait cela tourne en boucle indéfiniment.
Si quelqu'un peut m'aider ce serait super, et m'expliquer pourquoi la boucle while X<derli de ma macro n'est pas prise en compte.
Merci d'avance

 

[pierrejean]

bonjour romdrag

je te propose:

Sub test()
Application.ScreenUpdating = False
For n = Range("B" & Rows.Count).End(xlUp).Row To 1 Step -1
   If Range("A" & n) = "" Then
       For m = 2 To 4
           Cells(n - 1, m) = Cells(n - 1, m) & " " & Cells(n, m)
       Next
       Rows(n).Delete
   End If
Next
Application.ScreenUpdating = True
End Sub

quant a ta macro:
While X < derli
mais a chaque fois que tu efface une ligne X = X + 1 et derlin=derlin-1
comme tu effaces + de lignes qu'il ne t'en reste a la fin X sera toujours supérieur a derlin

 

[romdrag]

Super
Merci Pierrejean, rapide et efficace.