Discussion :

[babybell]

Amis du Forum, après un longue période de calme, bonjour.

J'ai une question à vous poser. Ce sujet a maintes fois été abordé, mais je ne trouve pas la réponse à ce cas précis.

J'ai une feuille où sont répertoriées des factures, classées par ordre alphabétique des noms, mais certains apparaissent plusieurs fois. Et quand je les sélectionne, tous apparaissent

C'est dans l'USF que je les classe dans cet ordre, et j'aimerai que n'apparaisse qu'un seul des clients quand je les sélectionne afin de reporter toutes les factures de ce client dans une autre feuille.

Je mets la partie du code qui me pose problème dans le fichier joint.

merci de votre aide

[unparia]

Bonjour
Ton "fichier joint" ne me sert rigoureusement à rien. Ne compte pas sur moi pour courir le risque d'ouvrir un classeur tiers (dit et redit).
Mets donc ici :
- le code par lequel ta combobox est alimentée
- la partie du code qui te pose problème en exposant avec clarté et précision les tenants et aboutissants.
Dans le cas contraire, ne compte pas sur mon aide

[babybell]

Voici le code qui me permet de mettre en forme les factures classées par nom, mais à mon avis, sans l' USF, ne sera pas suffisant.

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
Private Sub UserForm_Initialize()
 
dern_ligne_Copie = Range("a10000").End(xlUp).Row
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("Copie_Factures").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Copie_Factures").Sort.SortFields.Add Key:=Range("C2:C" & dern_ligne_Copie), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Copie_Factures").Sort
    .SetRange Range("A2:G" & dern_ligne_Copie)
    .Header = xlGuess
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With
 
 
ComboBox3.ColumnCount = 2
ComboBox3.RowSource = "Copie_Factures!C2:D" & dern_ligne_Copie
ComboBox3.ListRows = 20
Dim hwnd As Long, Style As Long
hwnd = FindWindow(vbNullString, Me.Caption)
Style = GetWindowLong(hwnd, -16) And Not &HC00000
SetWindowLong hwnd, -16, Style
DrawMenuBar hwnd
 
End Sub

[unparia]

Bon
Voilà la réponse à la première de mes DEUX demandes.
La seconde reste un mystère ... Et j'ignore donc les tenants et aboutissants clairs et précis ...
Si nouveau message sans cela --->> je sors et ne reviens plus.

[babybell]

La deuxième, c'est ce que j'ai exposé dans ma question initiale.

Dans une feuille, j'ai les factures concernant plusieurs clients qui reviennent plusieurs fois.

Ce que je voudrais, c'est que dans l'USF, les clients n'apparaissent qu'une seule fois


Est-ce clair ce coup-ci ?

[unparia]

Et ?
tout ce que je vois (de ton "effort" de définition des tenants et aboutissants) est que tu as cliqué sur une ligne.
Je devine bien le reste, mais attends que tu fasses l'effort de l'exprimer. C'est une exigence, "sine qua non ..."
Désolé, mais c'est ainsi, avec moi.