Parcourir une colonne et supprimé la ligne concerné

Résolu
lekalt68 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
lekalt68 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -



Bonjour,

J'aimerais supprimer les lignes qui contiennent dans la première colonne un élément de la seconde.
Par exemple le numero "67137681" se retrouve plus bas dans la colonne A et j'aimerais supprimé la ligne correspondante dans la colonne A

J'imagine qu'il faut faire une boucle for qui sélectionne chaque élement de la seconde colonne quand elle n'est pas vide et qui compare cette valeur à l'ensemble des valeurs de la premiere avec un simple IF si une valeur de la seconde est égale une valeur de la deuxième alors je supprime la ligne


j'ai essayé avec 

Sub Doublon()


Type AType
NoCol As Integer, NoColl As Integer
Dim NoLig As Long, Var As Variant, Varr As Variant
Dim NoLigg As Long
End Type
   
    NoCol = 10 'lecture de la colonne J
    NoColl = 1 ' lecture de la colonene A
    For NoLig =  To Split(Worksheets("Sheet1").UsedRange.Address, "$")(4)
        Var = Worksheets("Sheet1").Cells(NoLig, NoCol)
        If ISBLANK(Var) Then
        Else
        For NoLigg = 1 To Split(Worksheets("Sheet1").UsedRange.Address, "$")(4)
        Varr = Worksheets("Sheet1").Cells(NoLigg, NoColl)
        If Varr = Var Then
        Rows("Nolgg").Delete
    
        
    Next
  

End Sub



Mais bien entendu celà ne marche pas ..

En espérant avoir réussi à vous exposer mon problème ..
A voir également:

1 réponse

Réponse 1 / 1
Patty5083 Messages postés 34 Date d'inscription   Statut Membre Dernière intervention  
 
Bonsoir,
Ce code semble marcher : 

Sub Doublon()

    Dim NoCol As Integer, NoColl As Integer
    Dim NoLig As Long, Var As Variant, Varr As Variant
    Dim NoLigg As Long

   
    NoCol = 10 'lecture de la colonne J
    NoColl = 1 ' lecture de la colonne A
    For NoLig = 2 To Split(Worksheets("Sheet1").UsedRange.Address, "$")(4)
        Var = Worksheets("Assist3").Cells(NoLig, NoCol)
        If IsEmpty(Var) Then
        Else
            For NoLigg = 2 To Split(Worksheets("Sheet1").UsedRange.Address, "$")(4)
                Varr = Worksheets("Sheet1").Cells(NoLigg, NoColl)
                If Varr = Var Then
                    Rows(NoLigg).Delete
                End If
            Next
        End If
    Next
End Sub


Bon courage
0
lekalt68 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
 
Merci beaucoup de votre aide. Ça fonctionne parfaitement !!
0