Sujet Précédent Sujet Suivant

Combobox Multi choix

Résolu
VBADebutant - 20 nov. 2013 à 17:13
ucfoutu Messages postés 18038 Date d'inscription lundi 7 décembre 2009 Statut Modérateur Dernière intervention 11 avril 2018 - 21 nov. 2013 à 14:57
Bonjour,

dans une userform j'ai plusieurs combobox qui permettent de modifier les filtres d'un TCD

J'ai besoin de faire une selection multiple sur un combox ( selection qui sera appliqué dans le filtre du TCD)


Je sais qu'une listbox a l'option Multiselect mais j'ai absolument besoin que ca soit une combox car cela m'évitera des problèmes rencontrés avec la listbox dans une autre partie de mon code


Je vous remercie d'avance pour votre aide

cdt

3 réponses

Réponse 1 / 3
ucfoutu Messages postés 18038 Date d'inscription lundi 7 décembre 2009 Statut Modérateur Dernière intervention 11 avril 2018 211
20 nov. 2013 à 17:33
Bonjour,
Ce genre de sélection (multiple) est incompatible avec une combobox. Oublie donc.
Je ne vois par ailleurs pas quel problème cela causerait d'utiliser une listbox pour ce faire !
0
Réponse 2 / 3
VBADebutant
21 nov. 2013 à 14:11
j'ai finalement optée pour al listbox

maintenant j'arrive à séléctionner plusiers éléments mais je n'arrive pas à les affecter aux filtres de TCD

l'enregistement d'une macro m'a donné ce code que je n'arrive pas à automatiser 
Sub multifiltre()
'
' multifiltre Macro
 Application.ScreenUpdating = False
 
    Dim prodWorksheet As Worksheet, testWorksheet As Worksheet, ScenarioProd As Worksheet
    Dim prodWS As Worksheet, testWS As Worksheet
    Dim Max As Worksheet
    Dim IHMdate As String
    Dim ScenName As String
    Dim BookName As String
    Dim CcyName As String
    Dim ScenIDProd, ScenIDHomolo As String
    Dim BookIDProd, BookIDHomolo As String
    Dim CcyIDProd, CcyIDHomolo As String
    Dim ScenType As String
    Dim ScenID As String
    Dim ccy As String
    Dim TradeTyp As String
    Dim Book As String
    Dim i As Integer
    Dim nbcells As Integer
    
    Set prodWorksheet = ThisWorkbook.Worksheets("PRODZoom")
    Set testWorksheet = ThisWorkbook.Worksheets("TESTZoom")
    
    Set prodWS = ThisWorkbook.Worksheets("PRODBookTradeType")
    Set testWS = ThisWorkbook.Worksheets("TESTBookTradeType")
    

    
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    '''' variables a insérer pour automatiser les changement de filtres via ihm
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    
    IHMdate = UserForm1.TB_Date.Value
    ScenType = UserForm1.ListBox1.ListIndex
    CcyName = UserForm1.ComboBox2.Value
    ScenName = UserForm1.CB_scenaID.Value
    '''
    ScenIDProd = Application.WorksheetFunction.VLookup(ScenName, ThisWorkbook.Worksheets("ScenarioProd").Range("A:B"), 2, False)
    ScenIDHomolo = Application.WorksheetFunction.VLookup(ScenName, ThisWorkbook.Worksheets("ScenarioHomolo").Range("A:B"), 2, False)
'
    CcyIDProd = Application.WorksheetFunction.VLookup(CcyName, ThisWorkbook.Worksheets("RiskCcyProd").Range("A:B"), 2, False)
    CcyIDHomolo = Application.WorksheetFunction.VLookup(CcyName, ThisWorkbook.Worksheets("RiskCcyHomolo").Range("A:B"), 2, False)

'
    Sheets("ProdDATA").Select
    ActiveSheet.PivotTables("PROD").PivotFields( _
        "[Scenario].[Scenario Type].[Scenario Type]").VisibleItemsList = Array( _
        "[Scenario].[Scenario Type].&[IR]", "[Scenario].[Scenario Type].&[IRVOL]", _
        "[Scenario].[Scenario Type].&[IRLONG]", "[Scenario].[Scenario Type].&[IRSHORT]", _
        "[Scenario].[Scenario Type].&[SPREADLOCK]", _
        "[Scenario].[Scenario Type].&[IRVOLCORREL]", _
        "[Scenario].[Scenario Type].&[InflationRate]", _
        "[Scenario].[Scenario Type].&[SPREADOISIBOR]", _
        "[Scenario].[Scenario Type].&[SPREADPAYSCASH]", _
        "[Scenario].[Scenario Type].&[SPREADSWAPCASH]", _
        "[Scenario].[Scenario Type].&[SPREADFUTURETITRE]", _
        "[Scenario].[Scenario Type].&[DELTABASISINTERCUR]", _
        "[Scenario].[Scenario Type].&[DELTABASISMONOCUR1]", _
        "[Scenario].[Scenario Type].&[DELTABASISMONOCUR2]", _
        "[Scenario].[Scenario Type].&[DELTABASISMONOCUR3]", _
        "[Scenario].[Scenario Type].&[INFLATIONRATEVOLATILITY]", _
        "[Scenario].[Scenario Type].&[AssetSwapInflationSpread]")
    Sheets("TestDATA").Select
    ActiveSheet.PivotTables("TEST").CubeFields(21).EnableMultiplePageItems = True
    ActiveSheet.PivotTables("TEST").PivotFields( _
        "[Scenario].[Scenario Type].[Scenario Type]").VisibleItemsList = Array( _
        "[Scenario].[Scenario Type].&[IR]", "[Scenario].[Scenario Type].&[IRVOL]", _
        "[Scenario].[Scenario Type].&[IRLONG]", "[Scenario].[Scenario Type].&[IRSHORT]", _
        "[Scenario].[Scenario Type].&[SPREADLOCK]", _
        "[Scenario].[Scenario Type].&[IRVOLCORREL]", _
        "[Scenario].[Scenario Type].&[InflationRate]", _
        "[Scenario].[Scenario Type].&[SPREADOISIBOR]", _
        "[Scenario].[Scenario Type].&[SPREADPAYSCASH]", _
        "[Scenario].[Scenario Type].&[SPREADSWAPCASH]", _
        "[Scenario].[Scenario Type].&[SPREADFUTURETITRE]", _
        "[Scenario].[Scenario Type].&[DELTABASISINTERCUR]", _
        "[Scenario].[Scenario Type].&[DELTABASISMONOCUR1]", _
        "[Scenario].[Scenario Type].&[DELTABASISMONOCUR2]", _
        "[Scenario].[Scenario Type].&[DELTABASISMONOCUR3]", _
        "[Scenario].[Scenario Type].&[INFLATIONRATEVOLATILITY]", _
        "[Scenario].[Scenario Type].&[AssetSwapInflationSpread]")
    Sheets("PRODBookTradeType").Select
    ActiveSheet.PivotTables("PRODBookTT").PivotFields( _
        "[Scenario].[Scenario Type].[Scenario Type]").VisibleItemsList = Array( _
        "[Scenario].[Scenario Type].&[IR]", "[Scenario].[Scenario Type].&[IRVOL]", _
        "[Scenario].[Scenario Type].&[IRLONG]", "[Scenario].[Scenario Type].&[IRSHORT]", _
        "[Scenario].[Scenario Type].&[SPREADLOCK]", _
        "[Scenario].[Scenario Type].&[IRVOLCORREL]", _
        "[Scenario].[Scenario Type].&[InflationRate]", _
        "[Scenario].[Scenario Type].&[SPREADOISIBOR]", _
        "[Scenario].[Scenario Type].&[SPREADPAYSCASH]", _
        "[Scenario].[Scenario Type].&[SPREADSWAPCASH]", _
        "[Scenario].[Scenario Type].&[SPREADFUTURETITRE]", _
        "[Scenario].[Scenario Type].&[DELTABASISINTERCUR]", _
        "[Scenario].[Scenario Type].&[DELTABASISMONOCUR1]", _
        "[Scenario].[Scenario Type].&[DELTABASISMONOCUR2]", _
        "[Scenario].[Scenario Type].&[DELTABASISMONOCUR3]", _
        "[Scenario].[Scenario Type].&[INFLATIONRATEVOLATILITY]", _
        "[Scenario].[Scenario Type].&[AssetSwapInflationSpread]")
    Sheets("TESTBookTradeType").Select
    ActiveSheet.PivotTables("TESTBookTT").CubeFields(21).EnableMultiplePageItems = _
        True
    ActiveSheet.PivotTables("TESTBookTT").PivotFields( _
        "[Scenario].[Scenario Type].[Scenario Type]").VisibleItemsList = Array( _
        "[Scenario].[Scenario Type].&[IR]", "[Scenario].[Scenario Type].&[IRVOL]", _
        "[Scenario].[Scenario Type].&[IRLONG]", "[Scenario].[Scenario Type].&[IRSHORT]", _
        "[Scenario].[Scenario Type].&[SPREADLOCK]", _
        "[Scenario].[Scenario Type].&[IRVOLCORREL]", _
        "[Scenario].[Scenario Type].&[InflationRate]", _
        "[Scenario].[Scenario Type].&[SPREADOISIBOR]", _
        "[Scenario].[Scenario Type].&[SPREADPAYSCASH]", _
        "[Scenario].[Scenario Type].&[SPREADSWAPCASH]", _
        "[Scenario].[Scenario Type].&[SPREADFUTURETITRE]", _
        "[Scenario].[Scenario Type].&[DELTABASISINTERCUR]", _
        "[Scenario].[Scenario Type].&[DELTABASISMONOCUR1]", _
        "[Scenario].[Scenario Type].&[DELTABASISMONOCUR2]", _
        "[Scenario].[Scenario Type].&[DELTABASISMONOCUR3]", _
        "[Scenario].[Scenario Type].&[INFLATIONRATEVOLATILITY]", _
        "[Scenario].[Scenario Type].&[AssetSwapInflationSpread]")
    Sheets("PRODZoom").Select
End Sub
0
Réponse 3 / 3
ucfoutu Messages postés 18038 Date d'inscription lundi 7 décembre 2009 Statut Modérateur Dernière intervention 11 avril 2018 211
21 nov. 2013 à 14:57
Tu voudras bien, s'il te plait, réaliser que cette nouvelle question n'a rien à voir avec la première (même si, en ce qui concerne ton appli, elle en est le prolongement).
Il t'appartient donc d'ouvrir une nouvelle discussion concernant La difficulté que tu rencontres MAINTENANT;
Merci de faire l'effort de te conformer à cette règle essentielle.
0

Discussions similaires

Multi-clients
abdouinfomiage -
abdouinfomiage -

5 réponses
Gestion du Multi-Fenetre
JSR2K -
JSR2K -

2 réponses
Ranger ma table (champ auto-incrémenté)
perig -
perig -

3 réponses
[clos] regression lineaire multiple
macdonaldkom -
Julien39 -

1 réponse
Multi webcam
marcgiraud -
zanzan -

1 réponse
Rejoignez-nous