Bonjour, je suis bloqué dans mon projet...
j'aimerais pouvoir supprimer une lignes à chaque fois que la valeur d'une cellule est égale a une autre valeur.
Est ce possible ? merci, voici mon code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
For Each sh In Worksheets
    If Left(sh.Name, 5) = "Poule" Then
        For i = 1 To nbep
        For j = i + 1 To nbep
            sh.Range("a65000").End(xlUp).Offset(1, 0) = sh.Cells(i + 1, 6) 'ColonneA
            sh.Range("d65000").End(xlUp).Offset(1, 0) = sh.Cells(j + 1, 6) 'ColonneD
        Next
        Next
En gros dans mes colonnes, si la valeur est égales à une valeur X, je supprime la ligne
Merci