optimisation de code

[dede039]

bonsoir a tous,

j'ai se code pour supprimer des ligne en doublon

Sub Macro1()
    Rows("1:402").Select
    ActiveSheet.Range("$A$1:$AM$402").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6 _
        , 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, _
        34, 35, 36, 37, 38, 39), Header:=xlNo
End Sub

je voudrai qu'il soit exécute jusqu’à la dernier ligne écrite

 

[julberto]

Re : optimisation de code

Bonsoir dede039,

Essaye ceci :

Sub Macro1()
   With ActiveSheet
      .Range("$A$1:" & .Cells.SpecialCells(xlCellTypeLastCell).Address).RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6 _
        , 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, _
        34, 35, 36, 37, 38, 39), Header:=xlNo
   End With
End Sub

cordialement

 

[dede039]

Re : optimisation de code

Bonsoir julberto

merci sa marche
ni a t'il pas moyen de faire plus court avec ceci

Columns:=Array(1, 2, 3, 4, 5, 6 _
, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, _
34, 35, 36, 37, 38, 39), Header:=xlNo

 

[julberto]

Re : optimisation de code

Bonsoir dede039,

Si la taille maxi de ta plage renseignée dépasse 39 colonnes alors les doublons ne seront recherchés que sur les 39 premières colonnes.

Si la taille de la plage ne dépasse jamais 39 colonnes alors ceci va suffire :

Sub Macro1()
With ActiveSheet
.Range("$A$1:" & .Cells.SpecialCells(xlCellTypeLastCell).Address).RemoveDuplicates
End With
End Sub

cordialement

 

[dede039]

Re : optimisation de code

bonsoir julberto

je pense que dans le temps cela risque de dépasse les 39 colonne
a l'origine il n'y avait que 17 colonne maintenant ils y en a 39

 

[Kiseki]

Re : optimisation de code

Bonjour,

Extrait de l'aide :

Columns Facultatif Variant Tableau d'index des colonnes qui contiennent l'information en double. Si rien n'est transmis, il suppose que toutes les colonnes contiennent l'information en double.

Donc si tu n'a rien d'autre et que tu prend toutes les colonnes en compte, je suppose tu peux l'omettre.

Sinon regarde ici :
La gestion des doublons dans Excel