XL 2016 Listbox à 2 filtres

T

thebenoit59

XLDnaute Accro

• 21 Novembre 2017

• #2

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 ?

 

Vote positif 0 Vote négatif

S

Scorpio

XLDnaute Impliqué

• 21 Novembre 2017

• #3

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++++

 

Vote positif 0 Vote négatif

T

thebenoit59

XLDnaute Accro

• 21 Novembre 2017

• #4

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.

 

Pièces jointes

• CopePayement.xlsm

  51.8 KB · Affichages: 13

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 21 Novembre 2017

• #5

Bonjour

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

Code:

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

 

Vote positif 0 Vote négatif

S

Scorpio

XLDnaute Impliqué

• 21 Novembre 2017

• #6

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

 

Vote positif 0 Vote négatif

S

Scorpio

XLDnaute Impliqué

• 21 Novembre 2017

• #7

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+++++

 

Vote positif 0 Vote négatif

T

thebenoit59

XLDnaute Accro

• 21 Novembre 2017

• #8

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

 

Pièces jointes

• CopePayement.xlsm

  52.1 KB · Affichages: 22

Vote positif 0 Vote négatif

S

Scorpio

XLDnaute Impliqué

• 21 Novembre 2017

• #9

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

 

Vote positif 0 Vote négatif

S

Scorpio

XLDnaute Impliqué

• 21 Novembre 2017

• #10

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

 

Pièces jointes

• Capture.PNG

  54.9 KB · Affichages: 15

Vote positif 0 Vote négatif

T

thebenoit59

XLDnaute Accro

• 21 Novembre 2017

• #11

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.

 

Vote positif 0 Vote négatif

S

Scorpio

XLDnaute Impliqué

• 21 Novembre 2017

• #12

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

 

Vote positif 0 Vote négatif

S

Scorpio

XLDnaute Impliqué

• 21 Novembre 2017

• #13

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

 

Vote positif 0 Vote négatif

S

Scorpio

XLDnaute Impliqué

• 22 Novembre 2017

• #14

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 à ++++++

 

Vote positif 0 Vote négatif

S

Scorpio

XLDnaute Impliqué

• 22 Novembre 2017

• #15

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

 

Pièces jointes

• FormFiltreListBox5ComboBoxs.xlsm

  84.5 KB · Affichages: 19

Vote positif 0 Vote négatif