Discussion :

[joponta]

Bonsoir,

Dans le fichier joint, j'ai un formulaire qui récupère une liste de noms.

Je souhaiterais filtrer cette liste en effectuant un choix par rapport au trois premières de la colonne site dans la Base_Agent (EMO, SPO,...)

Dans le Useform je récupère les données dans une ListBox et j'ai alimenter une combobox avec une liste de thème.

Est-il possible de sélectionner des noms dans la listBox et de leur affecter un thème ?
Une foi ces choix effectué, je voudrais alimenter la feuille BD_THEMEREA.

Merci pour vos retours

[Thautheme]

Bonjour Japonta, bonjour le forum,

Ce n'est pas la politique de ce forum, mais sans le fichier qui va bien je suis bien incapable de t'aider...

[joponta]

Bonjour,

En fichier joint le fichier avec le code.
Comment récupérer dans la feuille "ACTIVITES" le derniers thèmes vu ?
Merci pour votre aide.

[joponta]

J'aimerais récupérer ces données dans le ListBox si possible.
Merci pour votre aide.

[joponta]

Je vous joint la dernière version de mon fichier.
Merci pour votre aide

[Thautheme]

Bonsoir Japonta, bonsoir le forum,

Pas sûr d'avoir tout bien compris... Je te propose ton fichier modifié en pièce jointe. Désolé d'avoir renommer les variables mais j'ai trop l'habitude avec cette façon de faire...

[Pierre Fauconnier]

Salut.

Pourrais-tu, à ce stade de la discussion, reformuler tes attentes qui ont manifestement évolué depuis ton message initial, et rendre juste les trois tableaux de départ, le tableau d'arrivée et les règles qui président à la récupération des données de base?

Sans cela, j'ai l'impression que c'est bien parti pour une usine à gaz.

Au passage, je travaillerais avec des tableaux structurés qui vont faciliter la gestion du classeur, tant en Excel qu'en VBA.

[joponta]

Bonsoir,

Oui il est vrai que je voudrais peut-être tout réaliser en même temps.
La feuille de départ est la feuille la feuille GARDE_JOUR. Cette récupère en automatique des noms avec matricules, des lieux, des motifs et des postes.
Celle-ci est mise à jour de façon journalière.
L'idée est d'alimenter la feuille ACTIVITES à l'aide du Userform1. Pour aider l'utilisateur dans son choix,lorsqu'il a choisi le lieux via la combobox1, je souhaiterais pouvoir indiquer dans la LISTBOX ( en plus des informations déjà présentes) le dernier thème ainsi que la date vu par chacun des noms.
Aussi et si possible, je voudrais indiquer quel est le thème le moins vu parmi les thème pour l'ensemble de la sélection.

Merci pour votre aide.

[joponta]

En travaillant avec des tableaux structurés, le code du formulaire serait plus simple qu'avec des objets tableau ?

[Pierre Fauconnier]

Je ne sais pas ce que tu appelles des objets tableau, car dans ton code, je ne vois pas que tu travailles avec des tableaux, mais avec des cellules de plage.

Oui, le code sera plus simple et plus générique à écrire avec des tableaux structurés.

• A quoi te sert la listbox avec les cases à cocher? Je pensais que ton userform servait à choisir les lignes à transférer dans la feuille Activités...
• Tu dis que la feuille de départ est la feuille Garce_Jour.Il y a moins de données dans cette feuille que dans la feuille Activités. La feuille Activités doit garder les données précédentes ou bien est elle doit être nettoyée à chaque utilisation?
• Tu dis vouloir indiquer le thème le moins vu pour l'ensemble de la sélection... Quelle sélection? Celle des combobox? Celle des cases cochées dans la liste?
• Quelles sont les données du userform que tu veux voir réapparaître dans la feuille d'activités?

[joponta]

A quoi te sert la listbox avec les cases à cocher? Je pensais que ton userform servait à choisir les lignes à transférer dans la feuille Activités...

En effet les case à cocher ne sont pas obligatoires. IL faut simplement que je puisse faire de la multisélection pour transférer dans la feuille Activités.
Pour information, la feuille Garde jour importe chaque jour des noms en fontion des noms présents sur la journée. Cette feuille comporte un tableau structuré est il effacé tous le jours, et les nouveaux sont importés.

Tu dis que la feuille de départ est la feuille Garce_Jour.Il y a moins de données dans cette feuille que dans la feuille Activités. La feuille Activités doit garder les données précédentes ou bien est elle doit être nettoyée à chaque utilisation?

Oui la feuille activités doit garder les données précédentes. Ces données seront utiles par la suite pour faire un état des thèmes vu par les agents sur l'année.

Tu dis vouloir indiquer le thème le moins vu pour l'ensemble de la sélection... Quelle sélection? Celle des combobox? Celle des cases cochées dans la liste?

Pour faciliter le choix de l'utilisateur qui voit les noms dans le ListBox, avant de sélectionner ceux qu'il désire affecter à tel ou à tel thème, il est important de lui indiquer les thèmes dernièrement vu et les thèmes jamais abordé par les noms de la ListBOx. Aussi je souhaiterais que l'utilisateur puisse spécifier un formateur parmi les noms.

Quelles sont les données du userform que tu veux voir réapparaître dans la feuille d'activités?

Dans la feuille activités je souhaiterais voir la date , le nom, le matricule le lieu, le motif, le poste le thème le libellé du thème et le formateur choisi.

Merci pour vos retours et votre aide.

[joponta]

J'ai créé les tableaux structurés ==> tb_Garde; Tb_Sites; Tb_Themes; Tb_Activites
Par contre le fichier fait plus de 2 Mo et je ne peux pas le joindre. Pourtant il n'ya pas beaucoup de données.

[joponta]

En PJ le fichier avec tableau structuré
VBA_TABSTRUC.xlsm

[Thautheme]

Bonjour le fil, bonjour le forum,

Je suis heureux de voir que tu es entre de très bonnes mains car pour ma part je n'y arrivais pas...

[Pierre Fauconnier]

Et que souhaites-tu? Dans un message, tu parles de devoir obtenir la liste des villes sans doublons, et dans le message suivant, on comprend que tu veux trier sur base d'une colonne...

Avec la version 2010 que tu as taguée, tu vas devoir "chipoter" pour récupérer les valeurs uniques. On pourrait t'aiguiller vers l'utilisation d'un dictionary, mais perso, fidèle à ma maxime (VBA pour Excel? Pensez D'ABORD en EXCEL avant de penser en VBA...), je n'aime pas et je me tournerais plus volontiers vers un tableau temporaire dans une feuille masquée dans lequel je supprimerais les doublons. Je procéderais de la même manière avec les noms pour une ville choisie: copier les contacts dans un tableau temporaire, trier par ville, déterminer la plage qui correspond aux contacts de la ville choisie et passer cette plage à la listbox.

Avec les trois tableaux suivants t_contacts, t_VillesUniques et t_NomsVilleChoisie



Voici comment j'afficherais le userform en préparant les contrôles. Je pense que le code se lit et se comprend facilement, surtout en pas à pas.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Test()
  Dim Target As Range
 
  ClearTable "t_VillesUniques"
  ClearTable "t_NomsVilleChoisie"
 
  Set Target = Range("t_VillesUniques").ListObject.ListRows.Add().Range(1)
  Target.Resize(Range("t_Contacts").Rows.Count).Value = Range("t_Contacts[Ville]").Value
  Range("t_VillesUniques").ListObject.DataBodyRange.RemoveDuplicates 1
 
  With UserForm1
    .cboVilles.List = Range("t_VillesUniques").Value
    .lboNoms.List = Range("t_Contacts[Nom]").Value
    .Show
  End With
End Sub
 
Sub ClearTable(Name As String)
  If Not Range(Name).ListObject.DataBodyRange Is Nothing Then Range(Name).ListObject.DataBodyRange.Delete
End Sub

Au changement de ville dans le userform, on utilise le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub cboVilles_Change()
  AdaptLboNoms
End Sub
 
Sub AdaptLboNoms()
  Dim Target As Range
  Dim Pos As Long, CountOf As Long
  ClearTable "t_NomsVilleChoisie"
  Set Target = Range("t_NomsVilleChoisie").ListObject.ListRows.Add().Range(1)
  Target.Resize(Range("t_Contacts").Rows.Count, Range("t_Contacts").Columns.Count).Value = Range("t_Contacts").Value
  With Range("t_NomsVilleChoisie").ListObject.Sort
    .SortFields.Clear
    .SortFields.Add Key:=Range("t_NomsVilleChoisie[Ville]"), Order:=xlAscending
    .SortFields.Add Key:=Range("t_NomsVilleChoisie[Nom]"), Order:=xlAscending
    .Apply
  End With
  Pos = Application.Match(cboVilles.Value, Range("t_NomsVilleChoisie[Ville]"), 0)
  CountOf = Application.CountIfs(Range("t_NomsVilleChoisie[Ville]"), cboVilles.Value)
  lboNoms.List = Range("t_NomsVilleChoisie[Nom]")(Pos).Resize(CountOf).Value
End Sub

Le fichier: ComboboxListBoxFiltrés.xlsm

[joponta]

Bonjour,
Tout d'abord je vous remercie pour l'aide apportée.

J'ai essayé votre code, mais je n'arrive pas à tout comprendre. Je dois avoir un problème avec les index de mes colonnes.
J'ai le tableau Tb_Site, le tableau Tb_Sitechoisi, et le tableau Tb_Garde. Lorsque je lance la macro du module test j'ai un décalage, la macro va chercher la date...
Je n'arrive pas à déterminer ou cela dysfonctionne
Tb_Site et Tb_SiteChoisi :


Tb_Garde :


Le code de la macro SUB test du module :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Test()
  Dim Target As Range
 
  ClearTable "Tb_Site"
  ClearTable "Tb_SiteChoisi"
 
  Set Target = Range("Tb_Site").ListObject.ListRows.Add().Range(1)
  Target.Resize(Range("Tb_Garde").Rows.Count).Value = Range("Tb_Garde[NOMPRE]").Value
  Range("Tb_Site").ListObject.DataBodyRange.RemoveDuplicates 1
 
  With UserForm1
    .ComboBox1.List = Range("Tb_Site").Value
    .ListBox1.List = Range("Tb_Garde[NOMPRE]").Value
    .Show
  End With
End Sub
 
Sub ClearTable(Name As String)
  If Not Range(Name).ListObject.DataBodyRange Is Nothing Then Range(Name).ListObject.DataBodyRange.Delete
End Sub

[Pierre Fauconnier]

Les lignes 7, 8 et 9 du code que tu donnes crée la liste des sites dans doublons. A la ligne 8, tu dois donc prendre la colonne du site et pas la colonne NOMPRE

[joponta]

A l'initialisation c'est ok, sauf que le tableau Tb_SiteChoisi est désorganiser
Au changement dans la combo j'ai un problème sur le SOrt key.
VBA_TABSTRUC.xlsm

[Pierre Fauconnier]

Tu as mélangé mes tableaux intermédiaires, donc ça ne sait forcément pas fonctionner. De plus, je vois des tableaux sur d'autres feuilles.

Le plus simple serait probablement que tu nous dises ce que tu souhaites obtenir au départ des tableaux de garde et d'activités, en français, sans jargon excel ou vba et sans dire le "comment". Nous pourrons probablement mieux t'aiguiller.

[joponta]

Bonjour,

J'ai trois feuilles dans mon classeurs : PARAM; ACTIVITES; GARDE_JOUR

==> La feuille garde jour est alimentée avec un tableau Tb_Garde dans le quel on trouve un champ date, un champ matricule, un champ nompre;un champ site; un champ motif un champ poste
==> Je souhaiterais alimenter le tableau Tb_Activité la feuille activités à l'aide de la feuille garde jour par l'intermédiaire d'un formulaire. J'aimerais que ce formulaire comporte le choix du site et le choix d'un thème ( thème qui se trouve dans la feuille PARAM sous la tableau Tb_THEME). L'idée serait que l'utilisateur puisse sélectionner plusieurs nom dans la listbox issue du choix du combo du choix du site.
Aussi et avant le choix du thème, je souhaiterais que l'utilisateur puisse également avoir un état du dernier thème vu par les noms ( Date et thème) et voir le ou les thèmes les moins vu parmi les nom de la listBox.
Enfin une fois les noms choisis et le thème choisi, je souhaiterais pouvoir affecter un nom en qualité de formateur.

Le tableau Tb_Garde de la feuille GARDE_JOUR :


Le tableau Tb_Activites de la feuille ACTIVITES


Les tableaux Tb_Sites et Tb_Themes de la feuille PARAM


Une idée de formulaire avec le bouton état d'aide au choix :