Supprimer sous conditions

S

Softmama

XLDnaute Accro

• 9 Mai 2011

• #2

Re : Supprimer sous conditions

Bonjour,

Ceci devrait répondre à ta demande :

VB:

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 :

 

Pièces jointes

• tri_rang.xls

  35.5 KB · Affichages: 49
• tri_rang.xls

  35.5 KB · Affichages: 49
• tri_rang.xls

  35.5 KB · Affichages: 51

Vote positif 0 Vote négatif

C

Citaro

XLDnaute Occasionnel

• 9 Mai 2011

• #3

Re : Supprimer sous conditions

Bonjour Softmama,

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

Merci
Citaro

 

Vote positif 0 Vote négatif

S

Softmama

XLDnaute Accro

• 9 Mai 2011

• #4

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...

 

Vote positif 0 Vote négatif

C

Citaro

XLDnaute Occasionnel

• 9 Mai 2011

• #5

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

 

Vote positif 0 Vote négatif

S

Softmama

XLDnaute Accro

• 9 Mai 2011

• #6

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^^

 

Vote positif 0 Vote négatif

C

Citaro

XLDnaute Occasionnel

• 9 Mai 2011

• #7

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

 

Vote positif 0 Vote négatif

S

Softmama

XLDnaute Accro

• 9 Mai 2011

• #8

Re : Supprimer sous conditions

re,

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

 

Pièces jointes

• tri_rang.xls

  35 KB · Affichages: 45
• tri_rang.xls

  35 KB · Affichages: 47
• tri_rang.xls

  35 KB · Affichages: 51

Vote positif 0 Vote négatif

C

Citaro

XLDnaute Occasionnel

• 10 Mai 2011

• #9

Re : Supprimer sous conditions

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

Merci
Citaro

 

Vote positif 0 Vote négatif