VBA liste de validation avec chiffres décimaux

[dionys0s]

Bonjour le forum.

J'ai un soucis avec une liste de validation

Je voudrais que dans une case soient disponibles uniquement des taux de TVA.

J'ai un peu de mal avec la syntaxe. Quand c'est du texte, il faut mettre un virgules entre les choix possibles comme ceci :

    With Range(Cells(PremiereLigneRecap, 18), Cells(DerniereLigneRecap, 18)).Validation
    .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:=[B]"OUI,NON,PARTIEL"[/B]
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With

Mais que faire dans le cas de chiffres avec virgule ?

j'ai essayé deux codes :

Formula1:="19,6%;5,5%;2,1%;0%"

ou encore

Formula1:="19.6%,5.5%,2.1%,0%"

et aucun ne marche

Je n'ai pas trouvé sur la FAQ de SilkyRoad ou avec des recherches Google donc je m'en remets à vous.

Merci d'avance pour votre aide ^^

(Edit : j'ai bien sûr essayé

Formula1:="19,6%,5,5%,2,1%,0%"

sans succès)

 

[ballmaster]

Re : VBA liste de validation avec chiffres décimaux

Salut D....os,

As tu essayé ceci

""19.6%","5.5%"" ou "19.6%" OR "5.5%"

C'est ce qui me vient à l'esprit : ou encore avec un & comme "19.6%"

 

[ballmaster]

Re : VBA liste de validation avec chiffres décimaux

Bizarre,

je me suis enregistré en macro en faisant une validation de type liste en rentrant les taux de TVA et le code est celui-ci

With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, [B]Formula1:="2,1%;5,5%;19,6%"[/B]
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With

 

[dionys0s]

Re : VBA liste de validation avec chiffres décimaux

Non mais je suppose que ça ne marchera pas, puisque c'est la virgule en elle même qui me pose problème. Si je met un . entre 19 et 6% dans excel ca m'affichera 19.6% en texte et pas 19,6% en pourcentage... Je vais essayer avec & et OR.

 

[dionys0s]

Re : VBA liste de validation avec chiffres décimaux

Bizarre,

je me suis enregistré en macro en faisant une validation de type liste en rentrant les taux de TVA et le code est celui-ci

With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, [B]Formula1:="2,1%;5,5%;19,6%"[/B]
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With

Je l'avais essayé aussi et ça me propose ceci :
2 puis 1% puis 5 puis 5% puis 19 puis 6% puis 0%

 

[youky(BJ)]

Re : VBA liste de validation avec chiffres décimaux

Bonjour le fil,
Chez moi ceci fonctionne

Source
19,6%;5,5%;2,1%

Bruno

 

[pierrejean]

Re : VBA liste de validation avec chiffres décimaux

Bonjour dionys0s
Salut ballmaster

En attendant mieux

vois si tu peux t'inspirer de ceci
ATTENTION : il y a une evenementielle dans le module de Feuil1

 

[dionys0s]

Re : VBA liste de validation avec chiffres décimaux

Bonjour Youky(BJ), bonjour Pierrejean

Youky ça fonctionne dans une macro ?
Merci beaucoup Pierrejean.

 

[ballmaster]

Re : VBA liste de validation avec chiffres décimaux

Slt Pierrejean,

Pfff, à l'évidence, c'était pas si aisé que ca.

J'avais pensé au 55/100 pour le 5.5%, mais pour ce qui est du reste.

Le . = ,

mais le . en macro qui doit s'afficher en , doit bien être possible (avec des [], des {} , ou autre chose), c'est pas possible autrement.

Enfin, bon encore une fois mon ptit cerveau de bourriquet n'a réussi à résoudre ce ptit pb.

A+

N'est pas Barbatruc qui veut

 

[ballmaster]

Re : VBA liste de validation avec chiffres décimaux

Hé ho,

Je crois que j'ai trouvé une autre astuce, c'est moins propre mais ca fonctionne :

Sub Macro1()

    Range("E1").FormulaR1C1 = "2.10%"
    Range("E2").FormulaR1C1 = "5.50%"
    Range("E3").FormulaR1C1 = "19.60%"
   
    ActiveWorkbook.Names.Add Name:="tva", RefersToR1C1:="=Feuil1!R1C5:R3C5"
    Range("A1").Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=tva"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
End Sub

 

[Gael]

Re : VBA liste de validation avec chiffres décimaux

Bonjour à tous,

une solution en modifiant temporairement le séparateur décimal:

Application.DecimalSeparator = "."
    Range("C11").Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="12.3%,34.5%,7.89%"
        
    End With
Application.DecimalSeparator = ","

@+

Gael

 

[dionys0s]

Re : VBA liste de validation avec chiffres décimaux

Hé ho,

Je crois que j'ai trouvé une autre astuce, c'est moins propre mais ca fonctionne :

Sub Macro1()

    Range("E1").FormulaR1C1 = "2.10%"
    Range("E2").FormulaR1C1 = "5.50%"
    Range("E3").FormulaR1C1 = "19.60%"
   
    ActiveWorkbook.Names.Add Name:="tva", RefersToR1C1:="=Feuil1!R1C5:R3C5"
    Range("A1").Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=tva"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
End Sub

Merci bcp Ballmaster j'y avais pensé mais justement je souhaitais éviter cette solution. J'utilise cette technique pour les listes évolutives avec un onglet Datas. Mais les TVA n'étant pas sur le point de changer...

 

[dionys0s]

Re : VBA liste de validation avec chiffres décimaux

Bonjour à tous,

une solution en modifiant temporairement le séparateur décimal:

Application.DecimalSeparator = "."
    Range("C11").Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="12.3%,34.5%,7.89%"
        
    End With
Application.DecimalSeparator = ","

@+

Gael

J'ai essayé, je n'ai pas l'impression que ça fonctionne... Tu as fait le test ? Le mien n'est pas concluant. Il propose les bons pourcentages, mais avec un .

 

[Gael]

Re : VBA liste de validation avec chiffres décimaux

Re,

Tu as raison, je n'avais pas bien vérifié.

Gael