supprimer ligne en fonction

[romuald]

Bonjour.


Sur ma feuille, je peux remplir des lignes de la ligne 4000 à 7000.

Sur ces lignes on retrouve un article code qui peux etre differents sur chasue ligne ou bien avoir des codes articles identiques.

Je souhaiterai supprimer les lignes qui on le meme code article pour ne garder qu'une ligne par code article different.

Le code article est renseigné dans la colonne C.

Merci d'avance.

 

[AV]

Ave,

Fais une extraction/remplacement à l'aide du filtre élaboré

AV [aaa]

 

[romuald]

je dois le faire en VB. comment s'ecrit le code?

 

[porcinet82]

Salut Romuald, AV,

En utilisant ce que t'a proposé AV, il te suffit d'utiliser l'enregistreur de macro et de récupérer le code. La ligne de code pour faire un filtre élaboré sans doublon de la plage D1😀10 est la suivante :

Range('D1:D10').AdvancedFilter Action:=xlFilterInPlace, Unique:=True

@+

 

[romuald]

merci porcinet82 mais je ne peux pas utiliser cette methode car pour un meme code article (colonne D) les designation ou commentaires des colonnes H à J peuvent etre differents

 

[porcinet82]

re,

Avec un code de ce genre tu devrais arriver à faire ce que tu souhaites :

Sub test()
Dim i As Byte, k As Byte, x As Byte

For i = 1 To Range('D65536').End(xlUp).Row
    x = 0
    nom1 = Range('D' & i).Value & Range('H' & i).Value & Range('I' & i).Value & Range('J' & i).Value
    For k = i + 1 To Range('D65536').End(xlUp).Row
        nom2 = Range('D' & i).Value & Range('H' & i).Value & Range('I' & i).Value & Range('J' & i).Value
        If nom2 = nom1 Then
            x = 1
            Rows(k).Delete
            k = k - 1
        End If
    Next k
    If x = 1 Then Rows(k).Delete
Next i
End Sub

Tiens moi au courant.

@+

 

[romuald]

ca ne marche pas le code, un message me dit que la capacite est depassé.

 

[porcinet82]

re,

Essaye de modifier la déclaration des variables de la manière suivante et ca devrait passer Dim i%, k%, x As Byte.

@+

 

[romuald]

j'ai essayer de modifier.
la macro se lance et ne s'arrete jamais