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