Discussion :

[sylc88]

Bonjour à tous,

Voila mon problème,

Dans ma feuille1 j'ai 2 combobox alimentées par 2 feuilles différentes.

il s'agit d'une bdd de personnel (nom, prenom, employeur, equipe)
Je souhaiterais que dans ma combobox4 lorsque je selectionne l'équipe A ou B ou C ma combobox5 ne se remplisse qu'avec les collaborateurs de l'équipe choisie.
J'ignore si j'ai été assez explicite je vous joint le fichier
Par avance merci de votre aide

[nicogef]

bonjour

j'ai modifier les noms de vos combobox pour est plus lisible dans le code

j'ai mis dans le module "mise a jour liste"

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
21
22
23
24
25
26
27
Sub listeequipe()
'Décalaration des variables
 Dim base
 Dim Critere
 Dim DerniereLigne As Integer, x As Integer
 'Affectation des variables
 Critere = Feuil1.equipe.Value
 base = "Bdd"
 'On récupère la dernière ligne de la source de données
 If Cells(Rows.Count, 1).End(xlUp).Row = 1 Then
 DerniereLigne = 2
 Else
 DerniereLigne = Sheets(base).Cells(Rows.Count, 1).End(xlUp).Row
 End If
 'On efface le contenu de la liste à chaque recherche.
Feuil1.nom1.Clear
 'On parcours la source de données de la ligne à la dernière ligne
 For x = 1 To DerniereLigne
 'On teste le critère, ici le contenu combobox equipe avec la source de données.
 
 If Sheets(base).Cells(x, 5) = Critere Then
 'On ecrit dans la listbox
Feuil1.nom1.AddItem Sheets(base).Cells(x, 1)
Feuil1.nom1.List(Feuil1.nom1.ListCount - 1, 1) = Sheets(base).Cells(x, 2)
 End If
 Next x
end sub

et mis dans le code du combobox equipe

Code :

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

1
2
3
Private Sub equipe_Change()
Call listeequipe
 End Sub

cordialement
nicogef

[sylc88]

Merci bcp

ton code est bcp plus simlifié que le mien j'avais réussi à me débrouiller en créant 3 feuilles supplémentaires (une par équipe) mais du coup je galérait pour modifier un collaborateur ca me mettais a jour dans une feuille mais pas les 2.
plus qu'a travailler sur le fait qu'il me cache les lignes suivant si c'est des mois a 28, 30 ou 31 jours qu'il me grise les lignes lorsque c 'est des jours fériés et mon projet sera fini

merci pour cette avancée

[nicogef]

BONJOUR
regarde le tuto http://fauconnier.developpez.com/tut...el/calendrier/
cordialement

nicogef