Liste déroulante mal formaté ?

[néné06]

Bonjour le Forum,

J'ai un classeur en P_J qui me crée un autre classeur "Classeur deux" qui contient en A1 une liste déroulante qui m'affiche "Bon;Jour;Demain;Hier", grâce à l'instruction du "Classeur 1" ,"module 1"

With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="Bon;Jour;Demain;Hier"
End With

En faisant "Données";"Validation des données";"OK",cette liste déroulante se reformate correctement, à savoir:
"Bon"
"Jour"
"Demain"
"Hier"

Comment éviter de passer par "Données";"Validation des données";"OK" pour obtenir la liste correcte ?

Merci d'avance pour votre aide !

René

 

[jpb388]

Re : Liste déroulante mal formaté ?

Bonjour à tous
essaye

                    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                    xlBetween, Formula1:="Bon,Jour,Demain,Hier"

 

[Theze]

Re : Liste déroulante mal formaté ?

Bonjour,

Sans tester mais remplace les point-virgules par des virgules :
Formula1:="Bon;Jour;Demain;Hier"
par :
Formula1:="Bon,Jour,Demain,Hier"

Hervé.

 

[Dranreb]

Re : Liste déroulante mal formaté ?

Bonjour

Remarque: la validation fonctionnera ainsi de suite mais apparaîtra bien dans "Données";"Validation des données" avec les virgules changés en les points virgules résultant de la convention locale (française).

 

[néné06]

Re : Liste déroulante mal formaté ?

Bonjour Dranreb,Theze,Jpb388

Effectivement en remplaçant le ";" par "," la liste déroulante et OK !

Merci à tous

René