Supprimer sous conditions

[Citaro]

Bonjour au forum,
J'ai une base verticale , je souhaite supprimer les lignes de données en gardant la ligne au rang le plus fort (le + d'enfant) par rapport à la colonne I si possible.

Merci d'avance
Citaro

 

[Softmama]

Re : Supprimer sous conditions

Bonjour,

Ceci devrait répondre à ta demande :

Sub gogogo()
Dim c As Range, d as range
Set c = Range("B65536").End(xlUp)
Do While c <> ""
  Set d = c(0, 1)
  l = c.Row
  If c(0, 1) = c And c(0, 2) = c(1, 2) Then
    If Cells(c.Row, 9) > Cells(d.Row, 9) Then
        Cells(c.Row, 9).Value = Cells(c.Row, 9).Value
        d.EntireRow.Delete
    Else
        Cells(d.Row, 9).Value = Cells(d.Row, 9).Value
        c.EntireRow.Delete
        Set c = d
    End If
  End If
  Set c = c(0, 1)
Loop
End Sub

cf. fichier joint :

 

[Citaro]

Re : Supprimer sous conditions

Bonjour Softmama,

Si j'ai bien compris, il faut lancer la macro plusieurs fois

Merci
Citaro

 

[Softmama]

Re : Supprimer sous conditions

Bonjour,

Je l'ai conçue pour qu'elle ne soit lancée qu'une seule fois... ou alors je n'ai pas compris ta demande...

 

[Citaro]

Re : Supprimer sous conditions

Rebonjour Softmama,

Quand une personne a 3 enfants la macro supprime 1 seul, en relançant la macro le deuxième est supprimé.

Citaro

 

[Softmama]

Re : Supprimer sous conditions

Re,

Alors, ma macro est mal foutue, je suis en déplacement maintenant, je jèterai un oeil plus tard sur ce que j'ai mal fait^^

 

[Citaro]

Re : Supprimer sous conditions

Je viens de faire un essai sur mon fichier de travail, en lançant la macro elle commence son travail et s’arrête avec une erreur 400 , je la relance elle continue et se bloque avec l'erreur 400 et impossible de la relancer?

Bizard
Citaro

 

[Softmama]

Re : Supprimer sous conditions

re,

J'ai fait les modifs, cela devrait aller mieux. cf. fichier joint.

 

[Citaro]

Re : Supprimer sous conditions

Bonsoir Softmama, cette fois-ci c'est parfais.

Merci
Citaro