XL 2013 Fusion de cellules avec données et conditions

romdrag

XLDnaute Nouveau
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
 

Pièces jointes

  • testfusionligne.xlsm
    13.9 KB · Affichages: 9

pierrejean

XLDnaute Barbatruc
bonjour romdrag

je te propose:
VB:
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
 

Discussions similaires

Statistiques des forums

Discussions
311 724
Messages
2 081 936
Membres
101 844
dernier inscrit
pktla