Discussion :

[amael83]

Bonjour à tous les aficionados de l'aide aux démunis du neurone , 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 .
Comment puis je définir son format monétaire?

Merci beaucoup pour votre aide

[Menhir]

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 .

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.

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

[amael83]

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 :

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

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 :



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



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



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

Merci

[amael83]

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 :

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

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

Merci