Discussion :

[Contrec]

Bonjour,

J'ai un petit soucis de validation que je n'arrive pas à résoudre :

Dans un premier script, je crée une liste de validation d'une cellule avec ce code :

Code :

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

1
2
cableSheet.cells(line, TypeCableCell).Validation.Delete
cableSheet.cells(line, TypeCableCell).Validation.Add type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:=basicType

avec basicType = "AD;DG;"

Ceci m'affiche bien une liste déroulante des valeurs possible de la cellule avec AD et DG.

Maintenant, j'ai un autre script qui vient changer cette liste de validation en ayant le même code :

Code :

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

1
2
cableSheet.cells(line, TypeCableCell).Validation.Delete
cableSheet.cells(line, TypeCableCell).Validation.Add type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:="DF;DL;"

Mais à ce moment là, la liste de validation ne contient qu'une seule valeur : "DF;DL;" (et non 2 valeurs DF et DL comme voulu).

Je ne trouve pas pourquoi ce comportement apparaît, je dois mal m'y prendre, quelqu'un pourrait-il m'éclairer ?

PS : Je précise que lorsque je suis dans excel via le menu Données --> Validation, j'ai bien "DF;DL;" dans la liste de validation de cette cellule. Si je ne touche rien et que j'appuie sur OK, je problème est résolu, j'ai de nouveau 2 choix dans ma liste (DF et DL)...
Merci d'avance.

[Invité]

Bonjour,

Remplacez :

Code :

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

1
2
3
4
5
Formula1:="DF;DL"
 
par
 
Formula1:="DF,DL"

une "," au lieu de ";"

[Contrec]

Oh con ! ça marche !

Pardonnez-moi...

Merci beaucoup, ça viens de régler tous mes problèmes, je profites à nouveau de la vie.
--> Résolu.

[Contrec]

Ah ben non en fait, cette fois ci, ça me met toutes les valeurs à la suite séparée par des virgules, pourtant hier ça marchait...