Re,
J'ai installé cette version GigIdx.
1/ Au 1er test de ton code proposé,
Dim LOt As ListObject, LCn As ListColumn
Set LOt = ActiveSheet.ListObjects(1)
Set LCn = LOt.ListColumns("*DPT*")
If LCn Is Nothing Then MsgBox "Le tableau " & LOt.Name & " ne contient pas cette colonne."
j'ai le message suivant
Erreur d'exécution 9, L'indice n'appartient pas à la sélection
au niveau de la ligne de code : Set LOt = ActiveSheet.ListObjects(1)
Est-ce que le (1) correspond à la ligne des titres de colonnes ?
Je l'ai remplacé par (4) et j'ai toujours la même erreur.
2/ Si j'ai bien compris, est ce que je dois rajouter autant de LC1, LC2 , etc pour identifier les titres des colonnes par leur numéro ?
3/ Pour la fonction Gigogne
Gigogne(Null, 3, 2, 5, 4) j'imagine que je dois remplacer 3 par LCn qui correspond au num de colonne du titre DPT : Gigogne(Null, LCn, 2, 5, 4)
Merci encore
KIM