Discussion :

[joe.levrai]

Bonjour,

en fait, tout est dans le titre

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Pierre Fauconnier]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[joe.levrai]

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é

[Pierre Fauconnier]

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.

[MarcelG]

Bonsoir les amis,

A toute fin utile, ce petit billet.

[joe.levrai]

Bonjour,

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

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


Résolu !

[Pierre Fauconnier]

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




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...