pb ds ma macro qui supprime certaines lignes Résolu

Question

Bonjour,

Alors j'ai une base de donnée sur excel qui contient les champs suivant : code interne, code société, libellé, type, code cip, code ean.
J'ai remarqué qu'il y avait des codes ean répétés plusieurs fois mais pas avec le même libellé. Le libellé important peu, je veux qu'un code ean donné ne soit présent qu'une seule fois dans la base de donnée.
J'ai donc fais la macro suivante, mais elle me supprime des lignes qui n'auraient pas dû être supprimées.
Pouvez vous m'aider à trouver l'erreur ?? Je vous remercie d'avance.

Public Sub DOUBLE()

Dim i, j As byte

For j = 1 To 10
    For i = 10 To 1 Step -1
    If ActiveWorkbook.ActiveSheet.Cells(j, 6) = ActiveWorkbook.ActiveSheet.Cells(i, 6) Then
    ActiveWorkbook.ActiveSheet.Cells(i, 6).EntireRow.delete

    End If
    
    Next i
Next j

End Sub

ben13.51 · Answer

avec ta macro quand i arrive à 5 alors j est aussi à 5 donc cells(i,6)=cells (j,6) et il supprime la ligne... 
il faut changer ça

essaye comme ça
for j =1 to 10
for i = 2 to 10
...
le reste ne change pas

pierre · Answer

c'est parfait !!!! je vous remercie vivement !!!!
bonne journée

Pb ds ma macro qui supprime certaines lignes

2 réponses

Votre réponse

Discussions similaires

Newsletters