VBA liste de validation avec chiffres décimaux

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
dionys0s

dionys0s

XLDnaute Impliqué
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 :

Code: 
    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 :

Code: 
Formula1:="19,6%;5,5%;2,1%;0%"
ou encore
Code: 
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é
Code: 
Formula1:="19,6%,5,5%,2,1%,0%"
sans succès)
 
Trier par date Trier par votes
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

Code: 
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
 
Vote positif 0 Vote négatif
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.
 
Vote positif 0 Vote négatif
Re : VBA liste de validation avec chiffres décimaux

ballmaster à dit:
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

Code: 
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
Cliquez pour agrandir...

Je l'avais essayé aussi et ça me propose ceci :
2 puis 1% puis 5 puis 5% puis 19 puis 6% puis 0%
 
Vote positif 0 Vote négatif
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
 
Dernière édition:
Vote positif 0 Vote négatif
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 :

Code: 
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
 
Vote positif 0 Vote négatif
Re : VBA liste de validation avec chiffres décimaux

Bonjour à tous,

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

Code: 
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
 
Vote positif 0 Vote négatif
Re : VBA liste de validation avec chiffres décimaux

ballmaster à dit:
Hé ho, 😱

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

Code: 
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
Cliquez pour agrandir...

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... 😛
 
Vote positif 0 Vote négatif
Re : VBA liste de validation avec chiffres décimaux

Gael à dit:
Bonjour à tous,

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

Code: 
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
Cliquez pour agrandir...

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 .
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

P
  • Résolu(e)
Microsoft 365 Validation des données avec VBA
2
Réponses
16
Affichages
293
pat66
P
D
  • Résolu(e)
Microsoft 365 Validation des données avec formule + liste déroulante dans la même cellule
Réponses
8
Affichages
965
de_hanstrapp
D
Roland_M
  • Question Question
XL 2016 concerne la validation des données avec vba !?
Réponses
8
Affichages
790
Staple1600
Staple1600
fanch55
Excel: "Validation des données" en Vba
Réponses
13
Affichages
2 K
Gégé-45550
Gégé-45550
S
  • Résolu(e)
Autres ActiveWorkbook.Worksheets("vierge").AutoFilter.Sort.SortFields.Clear
2
Réponses
23
Affichages
2 K
AtTheOne
AtTheOne
F
  • Question Question
XL 2013 VBA - Indirect - Validation de données
Réponses
11
Affichages
3 K
FGV
F
N
  • Question Question
XL 2016 Mettre un nombre égal de caractères dans textbox
Réponses
12
Affichages
1 K
NadJP
N
A
  • Question Question
XL 2013 erreur 1004 définie par l'application ou par l'objet
2
Réponses
27
Affichages
2 K
adet ruireux
A
E
  • Question Question
Microsoft 365 VBA Calendrier, rien ne se passe.
Réponses
12
Affichages
1 K
fanch55
fanch55
M
  • Question Question
XL 2010 probleme de validation par liste avec vba
Réponses
2
Affichages
1 K
moialbert2
M
I
  • Résolu(e)
XL 2019 VBA - Liste déroulante à partir de cellules d'une autre feuille
Réponses
13
Affichages
3 K
Stéphane_1
S
B
  • Résolu(e)
XL 2016 Sélection dernière ligne, création de liste déroulante X fois, macro vba
Réponses
8
Affichages
3 K
BARNS
B
P
  • Question Question
Microsoft 365 Problème de destination à l'exécution d'une macro
Réponses
2
Affichages
643
Pimpon974
P
B
  • Question Question
Microsoft 365 liste à choix multiples avec contenu variable
Réponses
3
Affichages
672
BER6543
B
Gen Rose
  • Résolu(e)
XL 2019 INDEX EQUIV DECALER avec liste de validation
Réponses
7
Affichages
1 K
Gen Rose
Gen Rose
A
  • Résolu(e)
XL 2019 Passage de 2013 pro à 2019 pro, Pb avec formule VBA, liens hypertexte
2 3 4
Réponses
54
Affichages
3 K
sylvanu
sylvanu
T
  • Résolu(e)
XL pour MAC lenteur du vba
2
Réponses
16
Affichages
3 K
Bernard_XLD
Bernard_XLD
T
  • Question Question
XL 2019 probleme dans une macro
Réponses
3
Affichages
923
mapomme
mapomme
W
  • Question Question
XL 2013 Liste de validation
Réponses
1
Affichages
1 K
Dudu2
Dudu2
T
  • Question Question
XL 2019 VBA: Effacer le contenu de plages de cellules avec critères
Réponses
5
Affichages
2 K
tiitii60
T
Retour