RemoveDuplicates : passer une variable array sur le paramètre Columns

Bonjour,

en fait, tout est dans le titre :mrgreen:

J'ai une procédure à laquelle on passe en argument un listobject.

Au départ, j'avais hardcodé les colonnes à inspecter. Aucun souci.

Aujourd'hui, j'ai voulu la généraliser, et traiter dans la procédure la création d'un array contenant l'ensemble des colonnes du listobject passé en paramètre.

J'ai l'erreur 9 "argument ou appel de procédure incorrecte" sur la ligne du removeduplicates.

C'est ma variable tableau contenant les numéros de colonnes qui ne plaît pas à VBA, et je n'arrive pas à me dépatouiller :aie:

Quelqu'un a une idée ? J'ai la tête dans le guidon, la solution est peut-être évidente :oops:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub Dedoublonne(LeTablo As ListObject)   ' nombre de colonnes du listobject Dim NbCol As Long NbCol = LeTablo.ListColumns.Count   ' on dimensionne le tableau des colonnes Dim Colonnes() As Variant ReDim Colonnes(1 To NbCol)   ' alimentation du tableau des colonnes For i = LBound(Colonnes) To UBound(Colonnes) Colonnes(i) = i Next i   ' suppression des doublons LeTablo.Range.RemoveDuplicates Columns:=Colonnes, Header:=xlYes End Sub

---

Salut Joe,

Perso, je préfère passer les noms des colonnes plutôt que leurs index. C'est plus dans "ma" philosophie des tableaux structurés.

Code:

---

1 2 3 4 5 6 7 8

Sub RemoveDuplicates(Table As ListObject, ColumnNames) Dim i As Long ReDim Columns(LBound(ColumnNames) To UBound(ColumnNames)) For i = LBound(Columns) To UBound(Columns) Columns(i) = Table.ListColumns(ColumnNames(i)).Index Next i Table.Range.RemoveDuplicates Columns, xlYes End Sub

---

Le code suivant supprimera les doublons du tableau tableau1basés sur les colonnes Nom et Prénom

Code:

---

removeduplicates range("tableau1").ListObject, array("nom","Prénom)

---

Bonjour Pierre,

oui en effet, c'est encore des vieilles procédures que je n'ai pas fini de réécrire, où j'utilise les index plutôt que les noms (alors que c'est devenu un automatisme !)

En revanche, à la lecture de ton code, je n'arrive pas à comprendre la différence ?

Tu utilises le même type de variable, tu l'alimentes par une boucle similaire

Et tu la passe en paramètre de façon visiblement similaire.

La seule différence que je vois, c'est justement l'utilisation du nom d'en-tête pour calculer les valeurs d'index à insérer dans le array.

Où est le loup ? Je n'ai pas encore testé ta solution, je veux comprendre avant tout ce qui coince de mon côté :roll:

J'avais déjà eu ce souci et j'ai noté dans mes petits papiers que le tableau devait:

• commencer à 0;
• être de type variant;
• avoir des éléments de type Variant/long.

J'ai refait une série de tests qui semblent corroborer ces exigences.

Pièce jointe 595213

Bonsoir les amis,

A toute fin utile, ce petit billet.

Bonjour,

c'est bien le base 1 qui posait problème :weird:

j'avais déjà rencontré le cas dans d'autres circonstances, et je devais préfixer mes arrays (VBA.Array)


Résolu ! :mrgreen:

Perso, je ne joue jamais avec Option Base1 mais c'est un choix personnel.

Pièce jointe 595286


Cela dit, je ne comprends pas qu'ils aient codé pour utiliser 0 comme premier indice dans le cas de l'argument Columns. Il y a moyen de partir de LBound et donc, ça aurait été bien qu'ils y pensent. Mais bon...