optimisation de code

J

julberto

XLDnaute Occasionnel

• 22 Novembre 2011

• #2

Re : optimisation de code

Bonsoir dede039,

Essaye ceci :

Code:

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

 

Vote positif 0 Vote négatif

D

dede039

XLDnaute Occasionnel

• 22 Novembre 2011

• #3

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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

J

julberto

XLDnaute Occasionnel

• 22 Novembre 2011

• #4

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

Cliquez pour agrandir...

cordialement

 

Vote positif 0 Vote négatif

D

dede039

XLDnaute Occasionnel

• 22 Novembre 2011

• #5

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

 

Vote positif 0 Vote négatif

K

Kiseki

XLDnaute Occasionnel

• 22 Novembre 2011

• #6

Re : optimisation de code

Bonjour,

Extrait de l'aide :

Code:

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

 

Vote positif 0 Vote négatif