Lier des enregistrements multiples à un enregistrement avec un userform

[Syl]

Bonjour,

Voilà je voudrais faire une base avec des informations sur des organismes sur une feuille et le nom de mes différents contacts dans ces organismes sur une autre feuille.
Soit sur ma feuille organisme : CNAM, Lycée
sur ma feuille contacts : Mme Poirier, M. Tartempion, Mlle Yvette
Et sur mon userform : organisme : Cnam
Contact : Mme Poirier, Mlle Yvette

Organisme : Lycée
Contact : M. Tartempion


J’ai déjà utilisé un userform pour rentrer mes différentes informations dans ma première feuille, mais je voudrais aussi pouvoir consulter les contacts correspondants à ma source dans ce même userform. J’ai tenté de la faire en faisant un filtre élaboré qui sélectionne dans mes contacts ceux qui correspondent à ma source, mais la rowsource de ma liste de contacts se fiche pas mal qu’ils soient filtrés où non, et me donne l’intégralité des enregistrements.

Je suis à cour d’idée, c’est pourquoi je me permets de me retourner vers vous.

Merci d’avance pour votre aide

Syl

 

[@+Thierry]

Bonsoir Syl, le Forum

Je n'ai pas la possibilité de télécharger quoique ce soit au bureau (on est en alerte maximale suite aux attaques massives de virus)

Par contre je crois cerner ton problème avec cette démo :

=> Lien supprimé

Tu verras comment travailler sur des AutoFilters.

Si celà ne convient pas où si tu as besoin d'aide, je regarderai de plus près de chez moi...

Bonne Soirée
@+Thierry

 

[Syl]

Bonjour le fil et bonjour @thierry

Merci pour ton aide toujours instructive,
Pouvez-vous m’aider sur ce point ?
J’ai modifié le code pour faire apparaître « .SpecialCells(xlCellTypeVisible) »
Mais ça plante. Voici une partie du code :

'T est le numéro automatique qui correspond à l'organisme et qui me sert
'à trier ma feuille "contacts".
'le trie fonctionne bien, mais j'ai un message d'erreur excel ne reconnaît pas la
'rowsource
Dim L1 As Integer
Dim Plage1 As Range
Dim Ordonné1 As String
Dim T As String

Sheets("Contacts").Range("g2").Value = T
'Mon critère de filtre
Sheets("Contacts").Select
Range("a1:e65536").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range( _
"Criteria"), Unique:=False
'jusqu'ici tout va bien
'la suite ne fonctionne pas
L1 = Sheets("contacts").Range("b65536").End(xlUp).Row
Set Plage1 = Sheets("contacts").Range("b2:b" & L1)
Set Plage1 = Plage1.SpecialCells(xlCellTypeVisible)
ListBox2.RowSource = "contact!" & Plage1

Merci d’avance pour votre aide

Syl

 

[Syl]

Petite précision les variables sont définies dans « option explicit », je les aient indiquées pour info.

Merci
Syl