Rapport de message :*
 

Re: Evolution d'un UseForm suivant le contenu d'un tableau

Titre du sujet : Re: Evolution d'un UseForm suivant le contenu d'un tableau
par myDearFriend! le 11/08/2009 20:36:43

Bonsoir dedechseb,

Ci-joint une façon de faire pour ta liste de prestations filtrée en fonction des CheckBox.

J'ai ajouté le code suivant à ton Userform (en remplacement de ton code) :
Private Sub Alimentation_Click()
    MAJliste
End Sub

Private Sub Entretien_Click()
    MAJliste
End Sub

Private Sub Fournitures_Click()
    MAJliste
End Sub

Private Sub Informatique_Click()
    MAJliste
End Sub

Private Sub PDP_Click()
    MAJliste
End Sub

Private Sub MAJliste()
Dim Sh As Worksheet
Dim Ctrl As String
Dim DerLign As Long, L As Long
Dim Ok As Boolean
    'On mémorise la feuille cible
    Set Sh = Sheets(Enseigne.Value)
    With lstPrestations
        .Clear
        DerLign = Sh.Cells(Sh.Rows.Count, 3).End(xlUp).Row
        'Pour chaque ligne de prestations
        For L = 1 To DerLign
            If Sh.Cells(L, 1).Text <> "" Then               'S'il s'agit d'une catégorie principale
                Ok = Controls(Sh.Cells(L, 1).Text).Value    'On vérifie si elle doit être prise en compte ou non
            End If
            If Ok Then                                      'Si prise en compte...
                .AddItem Sh.Cells(L, 2).Text
                .List(.ListCount - 1, 1) = Sh.Cells(L, 3).Text
            End If
        Next L
    End With
End Sub
Attention toutefois : cette méthode nécessite que le nom de tes contrôles CheckBox correspondent exactement aux titres de catégories qu'on retrouve dans les feuilles Clients... Attention donc lorsque tu vas renommer l'ensemble pour correspondre à la réalité de ton projet !

Citation :
dedechseb a écrit :

- D'autre part, j'ai fait évoluer un peu aussi mon fichier au niveau de la ComboBox "Chargées de la Relation Client". Celle-ci, dans mon fichier perso, se rempli correctement, suivant le Client choisi, mais dans le fichier exemple ci-joint rien n'y apparait. La méthode que j'ai utilisée doit surement êtr perfectible, s'il vous est possible de m'éclairer un peu là dessus...

A vrai dire, je n'ai pas compris ce passage là... Pourquoi faire une Combo pour le Chargé de Relation Client puisque, visiblement, dans l'onglet Données, il n'y a qu'un seul Chargé de Rel. Client par client ?
Si ce n'est pas le cas, alors comment va se présenter cet onglet Données dans de tels cas ?
Ou bien alors, tu veux laisser la possibilité d'en choisir un autre dans le Userform, mais dans ce cas, il manque une table de l'ensemble des Chargés de Rel. Client quelque part...

Citation :
dedechseb a écrit : Voilà donc pour mes questions du jour ^^

J'espére ne pas vous donner l'impression de me reposer entièrement sur vous pour réaliser mon travail, je cherche le plus possible de mon coté mais ces quelques points bien spécifiques restent sans réponses dans les forums et tutoriels que j'ai pu visités.
J'apprécie en tout cas les efforts personnels visibles que tu as fourni sur ton projet... Cela dit, effectivement, je ne vais pas pouvoir m'investir de trop dans ton projet car se plonger dans le code de quelqu'un d'autre, ce n'est pas un exercice très facile et ça demande aussi et surtout beaucoup de temps. Et comme ton projet va naturellement se développer et donc se compliquer davantage...


Bien cordialement,