Supprimer ligne si 1 chiffres est identique sur la même lign

Bonjour,

Impossible de trouver ce que je cherche sur le forum ou dans les exemples du site :

J'ai un tableau avec des numéros,références, date et des chiffres sur deux colonnes. Dans 2 colonnes (D et F) si les valeurs sont égales, alors je supprime la ligne.

266255855 u852562 08-mai 2 blablabla 2

266255855 u852563 09-mai 4 blablabla 4

266255855 u852564 10-mai 24 blablabla 23

266255855 u852565 11-mai 2 blablabla 1

266255855 u852566 12-mai 8 blablabla 7

266255855 u852567 13-mai 2 blablabla 1

266255855 u852568 14-mai 26 blablabla 26

266255855 u852569 15-mai 25 blablabla 24

266255855 u852570 16-mai 26 blablabla 3

266255855 u852571 17-mai 21 blablabla 20

266255855 u852572 18-mai 20 blablabla 20

266255855 u852573 19-mai 18 blablabla 18

266255855 u852574 20-mai 7 blablabla 6

266255855 u852575 21-mai 6 blablabla 5

266255855 u852576 22-mai 9 blablabla 8

266255855 u852577 23-mai 8 blablabla 7

266255855 u852578 24-mai 5 blablabla 5

266255855 u852579 25-mai 4 blablabla 3

266255855 u852580 26-mai 6 blablabla 2

266255855 u852581 27-mai 2 blablabla 0

266255855 u852582 28-mai 5 blablabla -1

266255855 u852583 29-mai 12 blablabla 12

266255855 u852584 30-mai 15 blablabla 14

266255855 u852585 31-mai 25 blablabla 24

266255855 u852586 01-juin 23 blablabla 23

266255855 u852587 02-juin 2 blablabla 2

266255855 u852588 03-juin 3 blablabla 3

266255855 u852589 04-juin 22 blablabla 22

266255855 u852590 05-juin 5 blablabla 5

266255855 u852591 06-juin 5 blablabla 5

merci pour votre aide

Bonjour,

une proposition

Sub aargh()
    With ActiveSheet
        dl = .Cells(Rows.Count, 1).End(xlUp).Row
        For i = dl To 1 Step -1
            If .Cells(i, 4) = .Cells(i, 6) Then Rows(i).Delete shift:=xlUp
        Next i
    End With
End Sub

Bonjour h2so4

Ouais super merci c'est exactement ça cool, je débute en VBA et pour trouver le vrai code pas facile...

j'avais bien essayé avec la condition si sous excel mais c'est pas super pro du genre :

    ActiveCell.FormulaR1C1 = "=IF(TRUE,RC4=RC6)"
    Range("G2").Select
    Selection.AutoFill Destination:=Range("G2:G100"), Type:=xlFillDefault
    Range("G2:G100").Select
    Rows("1:1").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$S$100").AutoFilter Field:=7, Criteria1:="FAUX"

merci je vais tester dans la suite de ma macro grand merci.

Juste pour bien comprendre le code si je remplace le tiens pas celui là est ce que ça explique bien cette formule?

 

With ActiveSheet
        verifietoutesleslignes = .Cells(Rows.Count, 1).End(xlUp).Row
        For ligne =  verifietoutesleslignes To 1 Step -1
            If .Cells(ligne, 4) = .Cells(ligne, 6) Then Rows(ligne).Delete shift:=xlUp
        Next ligne
    End With

bonjour,

avec un commentaire

Sub aargh()
    With ActiveSheet 'on travaille sur la feuille active
        dl = .Cells(Rows.Count, 1).End(xlUp).Row 'dl contient le numéro de la dernière ligne utilisée
        For i = dl To 1 Step -1 'on parcourt toutes les lignes en partant de la fin
            If .Cells(i, 4) = .Cells(i, 6) Then Rows(i).Delete shift:=xlUp' si colonne D = colonne E dans la ligne i on supprime la ligne
        Next i 'on passe à la ligne suivante
    End With
End Sub

Merci beaucoup pour ta réponse rapide