Remontées de lignes et suppression par la suite

Bonsoir,

Mes connaissances en excel sont... légèrement (très légèrement) supérieures à 0

Je vous ai joint une partie de mon fichier (c'est tiré du PMU) :

comme exemple pour lequel je vous sollicite pour une aide bien précieuse.

J'ai vu dans le forum qu'il existe des formules pour des macros de suppression de lignes quand il n'y a rien dans la colonne A. Je les ai appliqué mais cela n'a pas fonctionné comme cela aurait dû. Et je me suis dit après avoir fait des recherches sur le forum si je commençais par remonter les infos en face de celles où doivent se trouver après j'appliquerai cette fameuse macro... Assez de balabala...

Le mieux est de regarder le fichier joint. N'hésitez pas à me questionner.

Merci pour votre soutien.

Bonsoir,

une solution via une macro

Sub test()
    Dim c As Variant
    Application.ScreenUpdating = False
    i = Range("b" & Rows.Count).End(xlUp).Row
    While i <> 0
        If Cells(i, 1) <> "" Then
            If Cells(i, 3) = "" Then Cells(i, 3).Resize(1, 3) = c
        Else
            If Cells(i, 3) <> "" Then c = Range("C" & i & ":E" & i)
            Rows(i).Delete shift:=xlUp
        End If
        i = i - 1
    Wend
    Application.ScreenUpdating = True
End Sub

Merci h2so4,

Si j'ai bien compris il suffit que je copie/colle ta formule ci-dessous dans une macro ?

ca ne veut pas.

Quand j'ouvre le dossier Macro pour en enregistrer une je ne peux pas coller dans description ta formule. J'ai un bip. Dois-je activer ou non quelque chose ?

bonsoir,

pour enregistrer la macro

copier la macro sur le forum (tout sélectionner puis ctrl-C

aller dans excel

faire alt-F11, pour entrer dans l'editeur VBA

menu insérer, module

coller le code par ctrl-V

faite alt-f11 pour revenir dans excel

lancer la macro via alt-F8 après avoir sélectionné la feuille sur laquelle la macro doit s'exécuter.

si la macro te convient, sauver le classeur avec ses macros (sauver sous)

Merci pour le travail. Merci merci encore merci c'est tout bon.

+++++