Discussion :

[rattus34]

Amis du forum bonjour,

Je cherche une solution pour afficher le contenu d'une liste mais de façon sélective.

Cette liste prend sa source dans une base de données (BD_FACTURES)suivant des numéros de facture et est affichée dans un combo box (CboxNumFact) d'un formulaire (FrmEnregistrement).
Côté EXCEL(Gestionnaire) :

Code :

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

=DECALER(BD_FACTURES!$B$1;1;;NBVAL(BD_FACTURES!$B:$B)-1)

Côté Frm :

Code :

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

Me.CboxNumFact.RowSource = ("BD_FACTURES!List_Factures")

Info : Ce formulaire sert à mettre à jour les encours clients

Je souhaiterai que le combo box n'affiche uniquement que les numéros de facture, dont les cellules correspondantes à la valeur de l'encours client sont vides.

Je ne sais pas si cette action est réalisable ou peut être me faut-il utiliser autre chose qu'un combo box?

Si quelqu'un à une idée sur le sujet, je suis plutôt niveau débutant.
Merci par avance.

[Daniel.C]

Bonjour,

En admettant que la plage des encours s'appelle : List_Encours :

Code :

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

1
2
3
4
5
6
7
    Dim c As Range
    Me.CboxNumFact.Clear
    For Each c In [List_Factures]
        If IsNumeric(Application.Match(c.Value, [List_Encours], 0)) Then
            Me.CboxNumFact.AddItem c.Value
        End If
    Next c

[rattus34]

Bonjour Daniel.C,

Je vous remercie de m'apporter cette proposition.
Malheureusement, je ne suis pas sûr de bien la comprendre.

Je suppose qu'elle doit être placé dans le Private Sub UserForm_Initialize().

Pour plus de clarté je vais vous faire suivre un fichier xlms si vous êtes d'accord : Suivi_Encours.zip

[Daniel.C]

Effectivement, je n'étais pas bon. Je n'ai pas trouvé les encours. J'ai testé à la place la présence du taux de TVA... Il faut donc remplacer la colonne R par l'endroit où se trouvent les encours:

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
Private Sub UserForm_Initialize()
 
'On affecte la liste selective au ComboBox
'Me.CboxNumFact.RowSource = ("BD_FACTURES!List_Factures")
Dim c As Range
Me.CboxNumFact.Clear
For Each c In [List_Factures]
    If Sheets("BD_FACTURES").Cells(c.Row, "R") <> "" Then
        Me.CboxNumFact.AddItem c.Value
    End If
Next c
Me.CboxNumFact.ListIndex = -1
 
'On affecte les Boutons Option sur un même Groupe
Me.OptType1.GroupName = "Mode_de_reglement"
Me.OptType2.GroupName = "Mode_de_reglement"
Me.OptType3.GroupName = "Mode_de_reglement"
 
End Sub

[rattus34]

Merci Daniel.C

Seul le résultat compte, c'est exactement ce que je cherchais. Merci encore.