Discussion :

[mouftie]

Bonjour,
J'ai créé un combobox (Menu développeur / Insérer / Contrôles ActiveX / zone de liste déroulante.
J'ai créé une table de données de 0% à 100% avec un pas de 10.



J'ai un petit souci esthétique, quand je sélectionne mon combobox, j'ai bien mes pourcentages qui apparaissent 10% ou 50% ; une fois que je clique sur ma sélection, je me retrouve avec 0,1 et non plus 10%

Est-ce que quelqu'un peut m'aider svp ? Merci

[Vba14]

Bonjour,

Il faut mettre le format de la combo au format de la feuille

Quelque chose comme ça peut-être

Code :

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

1
2
3
4
5
 
Private Sub UserForm_Initialize()
    Dim i As Long
    With Me.ComboBox1: For i = 1 To 3: .AddItem Worksheets("Feuil1").Range("E" & i).Text: Next i: End With
End Sub

[Franc]

Salut,
C'est parce que Excel stocke les pourcentages sous forme décimale et c'est donc ce qu'il affiche quand ton choix est fait dans la combobox.
Il faut donc formater pour le présenter sous forme de pourcentage.

Code :

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

1
2
3
4
5
Private Sub ComboBox1_Change()
    If IsNumeric(Me.ComboBox1.Value) Then
        Me.ComboBox1.Value = Format(Me.ComboBox1.Value, "0%")
    End If
End Sub

[mouftie]

Bonjour
Merci pour vos réponses
VBA14, il ne s'agit pas d'un USF mais d'un contrôle.
Franc, cela fonctionne, mais la macro ne fonctionne plus...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub BadTop()
'Dim NbBad As Double
NbBad = CbxBadTop.Value 
With Sheets("Agents")
'    .CbxBadTop.ListFillRange = Sheets("Mod'Op").Range("TbBad[BadTop]").Address(External:=True)
    .PivotTables("TcdAgts").PivotFields("[export].[Technicien].[Technicien]").ClearValueFilters
    .PivotTables("TcdAgts").PivotFields("[export].[Technicien].[Technicien]") _
        .PivotFilters.Add2 Type:=xlValueIsGreaterThanOrEqualTo, DataField:=ActiveSheet _
        .PivotTables("TcdAgts").CubeFields("[Measures].[Tx Ko]"), Value1:=NbBad
    .PivotTables("TcdAgts").PivotFields("[export].[Technicien].[Technicien]") _
        .AutoSort xlDescending, "[Measures].[Tx Ko]"
    .Range("H5").Select
End With
End Sub

j'ai une incompatibilité de type si je laisse Option explicit (j'ai essayé avec variant) :
NbBad = CbxBadTop.Value prend la valeur "50%"
Sans Option Explicit, j'ai une erreur "argument ou appel de procédure incorrect" sur la partie grasse ci-dessus
Merci

[Franc]

Salut,

Si CbxBadTop.Value est la combobox dont tu parles plus haut, il se peut alors que NbBad prenne une valeur du genre 50%, pour être sûr qu'il reçoit un nombre fais ceci:

Code :

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

NbBad = Val(CbxBadTop.Value)

[mouftie]

Code :

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

NbBad = Val(CbxBadTop.Value) / 100

Merci Franc, cela fonctionne correctement