Salut,
J'ai l'erreur suivante:
à l'éxecution de ca code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part Erreur d'éxecution '6' : dépassement de capacité
L'erreur est sur la ligne:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 'Suppression des doublons parfaits application.ScreenUpdating = False application.Calculation = xlCalculationManual Set champ = Range("A1:A" & [A65000].End(xlUp).Row) For k = [A65000].End(xlUp).Row To 1 Step -1 If application.CountIf(champ, Cells(k, 1)) > 1 Then Rows(k).Delete Shift:=xlUp End If Next k application.Calculation = xlAutomaticAu fait, quand j'éxecute le code dans un fichier exemple pour tester si il marche, je n'ai pas de problèmes, il me supprime les doublons.
Code : Sélectionner tout - Visualiser dans une fenêtre à part For k = [A65000].End(xlUp).Row To 1 Step -1
Par contre, quand je l'intégre à ma macro, il me met l'erreur ci-dessus.
Est ce que quelqu'un peut me dire pourquoi?
Merci d'avance pour vos réponses.
Partager