DropDown ou Zone Combinée et unité monétaire

Bonjour à tous les aficionados de l'aide aux démunis du neurone :aie:, j'ai un nouveau soucis que j'imaginais trivial mais qui finalement me donne bien du fil à retordre.

J'ai un DropDown associé à une liste prédéfinies de valeurs en Euros.
Quand je lance la macro associée, la valeur choisie dans le DropDown est bien récupérée et la macro s'exécute correctement, mais le contenu de mon DropDown passe en Dollars 8O.
Comment puis je définir son format monétaire?

Merci beaucoup pour votre aide

Citation:

---

Envoyé par amael83

J'ai un DropDown associé à une liste prédéfinies de valeurs en Euros.
Quand je lance la macro associée, la valeur choisie dans le DropDown est bien récupérée et la macro s'exécute correctement, mais le contenu de mon DropDown passe en Dollars 8O.

---

On ne peut pas trouver un problème simplement par la description du résultat d'un code.
Copie ton code, de préférence entre balises CODE.

Citation:

---

Comment puis je définir son format monétaire?

---

Le format monétaire se définit dans Windows.

Mais il est possible de mettre n'importe quel suffixe dans un format nombre.
https://docs.microsoft.com/fr-fr/off...e.numberformat

Liste associée à ma Zone Combinée (cellules au format monétaire €) :
0 €
20 000 €
30 000 €
50 000 €
100 000 €
300 000 €
1 000 000 €

Les portions de codes concernées (pas dans le même module dans mon code) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Global Supp_à As String   Sub ZC_Supp_à_QuandChangement()   Supp_à = ActiveSheet.DropDowns("ZC_Supp_à").List(ActiveSheet.DropDowns("ZC_Supp_à"))   End Sub   ' Suppérieures à   Dim Plage_Filtre As String Plage_Filtre = "$B$11:$R$12"   If Supp_à = 0 Then ActiveSheet.Range(Plage_Filtre).AutoFilter Field:=9 Else ActiveSheet.Range(Plage_Filtre).AutoFilter Field:=9, Criteria1:=">=" & Supp_à _ , Operator:=xlAnd End If

---

En image cela donne :

Je choisi ma valeur :

Pièce jointe 483051

Je lance le filtre et la msgbox me retourne la valeur de "Supp_à" :

Pièce jointe 483041

La valeur actualisée dans la zone combinée jusqu'à ce que je re-clique sur son menu déroulant :

Pièce jointe 483046

En espérant que tout cela rende ma demande plus explicite.

Merci

Bonjour à tous, j'ai résolu mon problème en faisant comme suit :

J'ai rentré les valeurs de la liste associée à ma Zone Combinée comme cela : ="1 000 000 €" pour qu'excel ne me convertisse pas le format automatiquement en monétaire.

Par contre j'ai du modifier la valeur de Supp_à pour pouvoir l'utiliser ensuite dans dans mon filtre en supprimant les espaces :

Code:

---

Supp_à = Replace(Supp_à, " ", vbNullString)

---

Merci