XL 2016 Listbox à 2 filtres

[Scorpio]

Bonjour à tous,
J'ai dans ce classeur, 2 USF, et j'aimerais en utiliser que 1.
C'est à dire que j'ai dans la feuille "Param" 2 listes.
En colonne "A" qui correspond au USF1, payement courant
En colonne "B" qui correspond au USF2, payement médical
L'idée, c'est de regrouper les données de la colonne "A" et "B" sur le même combobox. (Si possible)
Et lorsque je vais sélectionner une ligne payement courant ou médical, je retrouve les données correspondante dans la listbox.
Je sais pas si mes explications sont bonne ?? j'espère que oui.
J'aimerais bien, s'il vous plaît, avoir un bon coup de main pour trouver une solution
Je vous remercie d'avance et à ++++

 

[thebenoit59]

Bonjour Scorpio.
Est-ce normal quand dans Sociétés Courantes et Sociétés Médicales tu retrouves des doublons (NHA par exemple).
Ou est-ce que NHA est exclusivement médicale ?

 

[Scorpio]

Bonjour thebenoit59,
A oui, c'est la feuille "Mes Payements" et la feuille de saisie des payement, alors il vas y avoir beaucoup de ligne semblable.
Merci à toi de bien vouloir me donner un coup de main
A++++

 

[thebenoit59]

Je n'ai pas compris ta réponse.
Ma demande était de savoir si les sociétés dans "Param" peuvent être courants ET médicale.

 

[jp14]

Bonjour

Au lieu d'utiliser le paramètre "RowSource " ci dessous un code avec des informations cachées dans le combobox

Dim col As String
Dim cellule As Range
Dim LigDep As Integer
col = "A"
Nomfeuille1 = "Param"
LigDep = 2
'
With ComboBox1
    .Clear
    .ColumnCount = 3
    .ColumnWidths = "60;0;0"
    '.Style = fmStyleDropDownList '
    For Each cellule In Sheets(Nomfeuille1).Range(col & "2:" & col & Sheets(Nomfeuille1).Range(col & Sheets(Nomfeuille1).Rows.Count).End(xlUp).Row)
            .AddItem cellule.Value
            .List(.ListCount - 1, 2) = col
            .List(.ListCount - 1, .ColumnCount - 1) = cellule.Row
    Next cellule
    col = "B"
    For Each cellule In Sheets(Nomfeuille1).Range(col & LigDep & ":" & col & Sheets(Nomfeuille1).Range(col & Columns(1).Cells.Count).End(xlUp).Row)
            .AddItem cellule.Value
            .List(.ListCount - 1, 2) = col
            .List(.ListCount - 1, .ColumnCount - 1) = cellule.Row
    Next cellule
  
  
End With

A tester

JP14

 

[Scorpio]

D'accord, La colonne "B", j'en ai pas besoin.
Je vais utiliser que la colonne "A".

 

[Scorpio]

RE, thebenoit59,
Ho, c'est super, merci beaucoup alors.
Est-ce encore possible, s'il te plaît, d'ajouter car il manque lorsque je sélectionne par ex, "NHA", il manque la colonne "Type Facture" tu vois thebenoit59.
Merci thebenoit59, a+++++

 

[thebenoit59]

J'étais parti sur la base de ton premier fichier, qui ne reprenait pas le Type de Facture pour les Médicales.

 

[Scorpio]

Re thebenoit59,
J'ai plus qu'à te remercier beaucoup.
Avec ça, j'ai un bon outil de travail.
Merci mille fois, et a bientôt
Bonne soirée

 

[Scorpio]

Re thebenoit59,
J'ai transférer le tout sur un autre classeur, avec les données idem, mais j'ai un message d'erreur dans cette ligne de code. ReDim aMed (1 To nMed, 1 T 7 )
Qu'est-ce que je peux faire ??
Re

 

[thebenoit59]

Les sociétés médicales sont en double avec les Courantes dans ta feuille Param.
La macro considère qu'il n'y a aucune société médicale.
Tu peux corriger ça en inversant l'alimentation du dictionnaire.

 

[Scorpio]

J'arrive pas, c'est un peut compliqué tu sais.

 

[Scorpio]

Est-ce que je dois modifier dans le code VBA
ou dans la feuille Param
ou dans Gestionnaire des noms

 

[Scorpio]

Bonjour BISSON Nicole,
Intéressant ton projet, super
Le souci, c'est que le UserForm1 ne se lance pas.
Je cherche pourquoi, mais......
Merci et à ++++++

 

[Scorpio]

Bonjour BISSON Nicole,
Petit souci,
A++++++