chris6999
XLDnaute Impliqué
Bonjour le FORUM
Un petit appel à l'aide sur un bout de code qui me signale un dépassement de capacité.
Je souhaite supprimer les lignes en doublon lorsque dans j'ai un élément identique dans la colonne E mais en partant du bas pour supprimer les nouvelles lignes incrémentées.
Mon code actuel est le suivant mais le système bloque avec un message me signalant un dépassement de capacité
'supprime les lignes en doublon par rapport aux éléments colonne E en partant du bas
For I = Range("E65535").End(xlUp).Row To 1 Step -1
If Range("E" & I).Value > "" Then
If Application.WorksheetFunction.CountIf(Range("E1:E" & Range("E65535").End(xlUp).Row), _
Range("E" & I).Value) > 1 Then Range("E" & I).EntireRow.Delete
End If
Next
End Sub
Avec votre regard avisé pouvez-vous me dire où se situe le problème?
Merci par avance pour votre aide
Bonne journée à tous
Un petit appel à l'aide sur un bout de code qui me signale un dépassement de capacité.
Je souhaite supprimer les lignes en doublon lorsque dans j'ai un élément identique dans la colonne E mais en partant du bas pour supprimer les nouvelles lignes incrémentées.
Mon code actuel est le suivant mais le système bloque avec un message me signalant un dépassement de capacité
'supprime les lignes en doublon par rapport aux éléments colonne E en partant du bas
For I = Range("E65535").End(xlUp).Row To 1 Step -1
If Range("E" & I).Value > "" Then
If Application.WorksheetFunction.CountIf(Range("E1:E" & Range("E65535").End(xlUp).Row), _
Range("E" & I).Value) > 1 Then Range("E" & I).EntireRow.Delete
End If
Next
End Sub
Avec votre regard avisé pouvez-vous me dire où se situe le problème?
Merci par avance pour votre aide
Bonne journée à tous