Discussion :

[HakunA59]

Bonjour,

J'ai un petit souci sous Excel, j'ajoute des listes de validation par le code...
Lorsque je ferme et réouvre le fichier, j'ai toujours la petite flèche pour la liste, mais impossible de cliquer dessus...
Le plus bizarre, c'est que je fais la même chose pour toutes mes listes, et que certaines fonctionnent à la réouverture, d'autres non...

Une liste qui fonctionne (à la réouverture) :

Code :

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

1
2
3
4
5
6
With f1.Cells(ActiveCell.Row, premCol + 5).Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=sListePeriodes
            .IgnoreBlank = False
            .InCellDropdown = True
End With

Une liste qui ne fonctionne pas (à la réouverture) :

Code :

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

1
2
3
4
5
6
With f1.Cells(ActiveCell.Row, premCol + 3).Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=sListeRayons
            .IgnoreBlank = False
            .InCellDropdown = True
End With

Une liste qui ne fonctionne jamais (à la réouverture) mais que je suis obligé d'utiliser à cause du nombre de valeurs contenues dedans :

Code :

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

1
2
3
4
5
6
7
8
Set oRange = f3.Range("B1:B" & f3.Range("B65536").End(xlUp).Row)
        oRange.Name = "listeDescriptions"
        With f1.Cells(ActiveCell.Row, premCol + 7).Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=listeDescriptions"
            .IgnoreBlank = False
            .InCellDropdown = True
End With

D'avance merci.

[HakunA59]

Je suis toujours coincé sur le problème.

Lorsque j'exécute la méthode Close de mon workbook puis la méthode Open, la liste est toujours présente....

J'ai même été jusqu'à supprimer les appels aux méthodes clse et open, et la quand je réouvre le classeur, certaines listes ne sont plus disponibles...

Pourtant, je peux me tromper, mais il me semble que la liste est la valeur de la cellule...

EDIT :

J'ai presque trouvé une solution. En tout cas je trouvé d'où venait le problème.
Mes listes de valeurs étaient trop importantes.
Pour toutes les valeurs qui coinçaient, je passe maintenant par une feuille cachée dans laquelle je viens remplir les valeurs provenant de la base.
Maintenant le souci est autre. Lorsque je réouvre le fichier, je recharge les feuilles cachées (car les valeurs en base peuvent avoir changées) et dans ce cas là, je perds ma liste dans mes cellules.
Je vais donc ajouter une méthode dans le "open" qui va parcourir toute ma feuille visible et mettre à jour les champs en question.