Souci avec création de liste [Résolu]

[talggir]

Bien le bonjour,
j'ai un fichier Excel avec 2 feuilles, que nous appellerons Feuil1 et Feuil2.
Dans la première se trouve mon tableau avec les données, dans la seconde se trouve le bouton pour lancer le programme.
Le programme va essayer de créer des listes dans plusieurs colonnes du tableau de la même manière qu'en faisant un clique-droit en tête de colonne puis Créer une liste...
Lors de ma première tentative, j'ai eu une erreure "Pour pouvoir créer une liste, il faut que la feuille active soit celle ou la liste va être crée" (ou un truc dans le genre :p)
Voici donc ou en est mon code :

Code :

1
2
3
4
5
6
7
8
 
TABLE.Activate
 
MsgBox (ActiveSheet.Name)
 
'On recréé les listes de séléction
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$" & COL_TYPE & "$1:$" & COL_TYPE & "$" & J - 1), , xlYes).Name = _
        "Liste1"

ou TABLE est la Feuil1, lors du msgbox, il m'affiche bien le nom "Feuil1" mais qu'il me pose toujours l'erreur comme quoi je dois créer la liste sur la feuille active. (j'ai aussi essayé de remplacer dans le code ActiveSheet par TABLE, mais sans succès).
Merci d'avance de votre aide

[jacques_jean]

Bonjour talggir,

Le code se trouve sur votre Feuil2 ?

Si c'est le cas essayez :

Copier le code dans un module.

Sélectionner le bouton sur la Feuil2 et réaffecter la nouvelle macro.

D'autre part dans le code mettre :

Sheets("Feuil1").Activate

au lieu de

TABLE.Activate

MsgBox (ActiveSheet.Name)

'On recréé les listes de séléction
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$" & COL_TYPE & "$1:$" & COL_TYPE & "$" & J - 1), , xlYes).Name = _
"Liste1"

Amicalement.

[talggir]

Ca marche super merci