Parcourir une colonne et supprimé la ligne concerné

Résolu/Fermé

lekalt68 Messages postés 2 Date d'inscription mardi 27 janvier 2015 Statut Membre Dernière intervention 29 janvier 2015 - 27 janv. 2015 à 23:05
lekalt68 Messages postés 2 Date d'inscription mardi 27 janvier 2015 Statut Membre Dernière intervention 29 janvier 2015 - 29 janv. 2015 à 09:54

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:

Parcourir une colonne et supprimé la ligne concerné
Supprimer une page word - Guide
Déplacer une colonne excel - Guide
Aller à la ligne excel - Guide
Recuperer message whatsapp supprimé - Guide
Hors ligne instagram - Guide

1 réponse

Réponse 1 / 1

Patty5083 Messages postés 34 Date d'inscription lundi 14 avril 2014 Statut Membre Dernière intervention 10 novembre 2019
28 janv. 2015 à 20:16

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

lekalt68 Messages postés 2 Date d'inscription mardi 27 janvier 2015 Statut Membre Dernière intervention 29 janvier 2015
29 janv. 2015 à 09:54

Merci beaucoup de votre aide. Ça fonctionne parfaitement !!

Discussions similaires

Que veut dire "correspondant occupé" lors d'un appel ?

Formule magique excel??????

liste de noms par ordre alphabétique

Statut « en ligne » alors que non

Discussions similaires

Newsletters