Discussion :

[Bono1664]

Bonjour à toutes et tous,

J'ai un formulaire avec un Combobox qui gère une liste de personnes dont certaines ont le même nom et parfois le même prénom aussi. J'utilise un NumRef pour les distinguer. Le NumRef est caché (colonne 1 pt) et je fais défiler le Combobox avec la souris.

Code :

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

1
2
3
4
5
6
7
8
With Me.CbIdentite1
        For j = 2 To Ws.Range("A" & Rows.Count).End(xlUp).Row 'ne pas modifier : cohérence nom-prénom
                .AddItem Ws.Range("Y" & j)  'Par NumRef
            CbIdentite1.List(CbIdentite1.ListCount - 1, 1) = Ws.Range("Y" & j)  'NumRef
            CbIdentite1.List(CbIdentite1.ListCount - 1, 2) = Ws.Range("A" & j)  'Nom
            CbIdentite1.List(CbIdentite1.ListCount - 1, 3) = Ws.Range("L" & j)  'Prénom
        Next j
    End With

En raison de la longueur de la liste, je voudrais faire la saisie du nom au clavier en mettant : .AddItem Ws.Range("A" & j) 'Par Nom
Ca marche très bien jusqu'au doublon où il m'est impossible d'afficher la ligne suivante que ce soit avec les flèches haut et bas ou même avec la souris en faisant défiler le Combobox qui est paramétré StyleDropDownList et MatchEntryComplete.
Je précise que je ne veux pas que l'on puisse saisir un nouveau nom dans le Combobox, donc que la liste soit non modifiable.
Je précise aussi que le choix affiché dans le Combobox permet d'afficher plus de 50 TextBox et CheckBox correspondant à la personne.

Merci d'avance à celle ou celui qui prendra de son temps pour m'apporter ses lumières, toutes mes nombreuses tentatives (ajout d'une touche clavier avec les flèches haut ou bas, réinitialisation partielle en remettant automatiquement le choix par NumRef lors de l'accès à un doublon...) s'étant soldées par des échecs.

bono1664

[Bono1664]

RE-Bonjour,

En fait, pour faire plus simple, en redéfinissant le Combobox en StyleDropDownCombo et MatchEntryComplete, je souhaiterais qu'on ne puisse saisir au clavier que des noms qui s'y trouvent déjà : les noms de la liste apparaissent déjà en majuscules et les lettres ne correspondant pas à un nom en minuscules. Il faudrait effacer automatiquement les minuscules lors de la frappe.

Merci

[patricktoulon]

bonjour
re en gros tu veux filtrer la combobox et te retrouver avec les valeurs correspondant entierement ou en partie a ce que tu tape dans la partie value de la combo

si tu avais eu une seule colonne je t'aurais dis d'utiliser filter sur une variable tableau mais comme tu a 3 colonnes
tu va etre obligé de boucler voir sous bouble pour chercher dans x colonnes

[Bono1664]

Bonjour Patrick,

merci de me répondre une nouvelle fois

Je ne comprends pas très bien ce que tu proposes.
Dans le premier cas, la référence est le NumRef (.AddItem Ws.Range("Y" & j) et dans l'autre c'est le Nom, puis le prénom (.AddItem Ws.Range("A" & j) qui s'affichent dans le même Combobox. Je veux juste quand je suis sur un doublon pouvoir passer à la ligne suivante (ou plus si triplon), soit avec flèche bas , soit avec la souris sur le combobox.
J'imaginais un ListIndex + 1, mais ça ne marche pas.

bono1664

[patricktoulon]

re
ben c'est pas bien clair tout ca

si tu parle de la liste a droite

Code :

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

1
2
3
 with listbox1' change pour le nom de ta listbox 
.listindex=.listcount-1
end with

ca aura pour effet de te selectionner le dernier item de ta list
j'ai regardé ton fichier des doublons tu n'en a pas alors difficile de tester

[boisgontierjacques]

Bonjour,

Exemple de combobox intuitif avec 3 colonnes

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
28
29
30
Dim choix1()
Private Sub UserForm_Initialize()
  choix1 = [liste].Value
  Me.ComboBox1.List = choix1
End Sub
 
Private Sub ComboBox1_Change()
     Dim b()
     Me.TextBox1 = ""
     tmp = "*" & UCase(Me.ComboBox1) & "*"
     n = 0
     For i = LBound(choix1) To UBound(choix1)
       If UCase(choix1(i, 1)) Like tmp Or UCase(choix1(i, 2)) Like tmp Then
         n = n + 1: ReDim Preserve b(1 To 3, 1 To n)
         b(1, n) = choix1(i, 1): b(2, n) = choix1(i, 2): b(3, n) = choix1(i, 3)
       End If
      Next i
      If n > 0 Then
        Me.ComboBox1.Column = b
        Me.ComboBox1.DropDown
      Else
        Me.ComboBox1.Clear
      End If
End Sub
 
Private Sub ComboBox1_click()
      On Error Resume Next
      Me.TextBox1 = Me.ComboBox1.Column(1)
      Me.TextBox2 = Me.ComboBox1.Column(2)
End Sub

Boisgontier

[Bono1664]

Désolé de ne pas être plus précis.

Je ne sais pas si c'est correct, mais j'ai trouvé un début de solution qui permet de révéler le doublon (mais pas le triplon)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 'Initialise
With Me.CbIdentite1
        For j = 2 To Ws.Range("A" & Rows.Count).End(xlUp).Row 'ne pas modifier : cohérence nom-prénom
                .AddItem Ws.Range("Y" & j)  'Par NumRef
            CbIdentite1.List(CbIdentite1.ListCount - 1, 1) = Ws.Range("Y" & j)  'NumRef
            CbIdentite1.List(CbIdentite1.ListCount - 1, 2) = Ws.Range("A" & j)  'Nom
            CbIdentite1.List(CbIdentite1.ListCount - 1, 3) = Ws.Range("L" & j)  'Prénom
        Next j
End With
 
' et dans la liste déroulante ça permet de passer à la ligne suivante
If Ws.Range("A" & j + 1).Value = Ws.Range("A" & j).Value Then j = j + 1

[Bono1664]

Bonjour et merci M Boisgontier,

je vais étudier votre proposition (ça risque de me prendre un petit moment pour l'adapter à mon problème dont la finalité est de définir le numéro de ligne de la bas qui permettra d'afficher tous les items correspondants)

bono1664

[Bono1664]

Il y a une autre possibilité :

Code :

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

1
2
3
4
 
While Ws.Range("A" & j + 1).Value = Ws.Range("A" & j)
    j = j + 1
Wend

Mais là je passe du premier item directement au triplon ou d'avantage, tant que le nom est identique.

[boisgontierjacques]

Bonjour,

En frappant les premières lettres (dup), on filtre tous les Dupont dans le combobox.



Il n'y a plus qu'a choisir.

Boisgontier

[patricktoulon]

bonjour jacques

on pourrait aussi decider des colonnes a examiner des le depart

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Dim choix1()
Dim colonnes
Private Sub UserForm_Initialize()
    choix1 = Sheets("listes").Range("A1:c20").Value
    colonnes = Array(1, 3)     'colonnes a examiner
    Me.ComboBox1.List = choix1
End Sub
'
'
Private Sub ComboBox1_Change()
    Dim b(), ok As Boolean
    Me.TextBox1 = ""
    tmp = "*" & UCase(Me.ComboBox1) & "*"
    n = 0
    For i = LBound(choix1) To UBound(choix1)
        ok = False 'réinit de ok a chaque ligne
        For c = LBound(colonnes) To UBound(colonnes): ok = IIf(UCase(choix1(i, colonnes(c))) Like tmp, True, ok): Next
        'If UCase(choix1(i, 1)) Like tmp Or UCase(choix1(i, 2)) Like tmp Then
        If ok = True Then
            n = n + 1: ReDim Preserve b(1 To 3, 1 To n)
            b(1, n) = choix1(i, 1): b(2, n) = choix1(i, 2): b(3, n) = choix1(i, 3)
        End If
    Next i
    If n > 0 Then
        Me.ComboBox1.Column = b
        Me.ComboBox1.DropDown
    Else
        Me.ComboBox1.Clear
    End If
End Sub
'
'
Private Sub ComboBox1_click()
    On Error Resume Next
    Me.TextBox1 = Me.ComboBox1.Column(1)
    Me.TextBox2 = Me.ComboBox1.Column(2)
End Sub
 
'
'
Private Sub CommandButton1_Click()
    If Me.TextBox1 <> "" Then
        ActiveCell = UCase(Me.ComboBox1)
        ActiveCell.Offset(0, 1) = Me.TextBox1
        ActiveCell.Offset(0, 2) = Me.TextBox2
        Unload Me
    End If
End Sub

essaie avec "16"

sur une combo avec un nombre important de colonnes ou pas on change rien au code du change

[Bono1664]

Bonjour,

je travaillais hier et je reprends aujourd'hui vos propositions : ça me semble très intéressant et le choix des colonnes est important pour moi (en 1 le nom, 12 le prénom et 25 le NumRef).

J'essaye de mettre en application et je reviens vers vous.

Bonne journée !

bono1664

[boisgontierjacques]

Bonjour,

-Le nom est colonne 1
-le prénom en colonne 2
-Le numref est en colonne 25

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
28
29
30
31
32
33
Dim choix1()
Private Sub UserForm_Initialize()
  Set f = Sheets("bd")
  Set Rng = f.Range("A2:Y" & f.[A65000].End(xlUp).Row)
  n = Rng.Rows.Count
  choix1 = Application.Index(Rng, Evaluate("Row(1:" & n & ")"), Array(25, 1, 2))
  Me.ComboBox1.List = choix1
End Sub
 
Private Sub ComboBox1_Change()
     Dim b()
     Me.TextBox1 = ""
     tmp = "*" & UCase(Me.ComboBox1) & "*"
     n = 0
     For i = LBound(choix1) To UBound(choix1)
       If UCase(choix1(i, 1)) Like tmp Or UCase(choix1(i, 2)) Like tmp Then   ' recherche par NumRef ou Nom
         n = n + 1: ReDim Preserve b(1 To 3, 1 To n)
         b(1, n) = choix1(i, 1): b(2, n) = choix1(i, 2): b(3, n) = choix1(i, 3)
       End If
      Next i
      If n > 0 Then
        Me.ComboBox1.Column = b
        Me.ComboBox1.DropDown
      Else
        Me.ComboBox1.Clear
      End If
End Sub
 
Private Sub ComboBox1_click()
      On Error Resume Next
      Me.TextBox1 = Me.ComboBox1.Column(1)
      Me.TextBox2 = Me.ComboBox1.Column(2)
End Sub

Boisgontier

[Bono1664]

Bonjour Patrick, Bonjour Boisgontier,

Merci pour votre aide,

le dernier code de Boisgontier fonctionnait, mais le résultat final dans mon UserForm ne me donnait pas satisfaction et j'ai cherché en m'inspirant de ce code une aurtre solution que je vous livre ici.
Le Combobox1 est en fmStyleDropDownList et fmMatchEntryComplete.

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
28
29
30
31
32
33
 
'Initialize
    Set Ws = Sheets("Base")
    ComboBox1.ColumnCount = 3 
    ComboBox1.ColumnWidths = "1;90;80"
	With Me.ComboBox1
        For j = 2 To Ws.Range("A" & Rows.Count).End(xlUp).Row 
            .AddItem Ws.Range("A" & j)  'Par Nom
            'End If
            ComboBox1.List(ComboBox1.ListCount - 1, 1) = Ws.Range("Y" & j)  'NumRef
            ComboBox1.List(ComboBox1.ListCount - 1, 2) = Ws.Range("A" & j)  'Nom
            ComboBox1.List(ComboBox1.ListCount - 1, 3) = Ws.Range("L" & j)  'Prénom
        Next j
    End With
 
'Liste déroulante
	j = Me.ComboBox1.ListIndex + 2
    For i = 2 To 11
        Me.Controls("ComboBox" & i) = Ws.Cells(j, i)
    Next i
    For i = 1 To 16
        Me.Controls("TextBox" & i) = Ws.Cells(j, i + 11)
 
'Traitement des doublons
	Set Ws = Sheets("Base")
    n = 1
    dl = Ws.Range("A" & Rows.Count).End(xlUp).Row
    For j = 2 To dl
	While Ws.Range("A" & j + 1).Value = Ws.Range("A" & j)
	j = j + n
	n = n + 1
	Wend
    Next j

Ca permet de saisir directement le nom au clavier puis avec les flèches haut et bas de sélectionner parmi les doublons ou par la souris sur le combo ou en faisant défiler avec les flèches haut et bas.
https://www.developpez.net/forums/im...lies/merci.png
Encore merci à tous les deux

Il y a peut-être un problème que je n'ai pas encore perçu mais merci de me le signaler