Problème de sélection dans ma ComboBox

Version imprimable

27/09/2016, 19h55
jiday

1 pièce(s) jointe(s)

Problème de sélection dans ma ComboBox

Hello la communauté !

J'aurais besoins de vos lumières, j'ai créé une combobox dans un userform avec un remplissage en fonction d'une liste de données présente dans le même fichier et qui est mise à jour à chaque ouverture du fichier.

Lorsque j'initialise le userform, aucun soucis la combobox se remplit avec ma liste rangée dans l'ordre alphabétique.

Le problème est lorsque je clique sur une ligne de la combobox au lieu de m'afficher la valeur cliqué, il m'affiche 308 dans la combobox. Le pire est que ça me fait ça uniquement pour quelques données, les autres fonctionnent parfaitement ...

Je vous mets un screenshot au cas ou ce que je viens d'expliquer n'est pas très clair !

Quelqu'un peut-il m'aider à résoudre ce problème ...

Pièce jointe 221334

Je n'ai pas trouvé la résolution de ce problème ailleurs, mais peut-être ai-je loupé le sujet.

Merci d'avance
27/09/2016, 20h14
unparia

Bonjour
Comment veux-tu qu'on te réponde valablement sans :
- connaître la manière (le code) d'abondement de cette combobox et l'origine des valeurs qui l'bondent
- le code écrit à l'évènement click de cette combo

???

Hmmm effectivement ça risque d'être compliqué, voici le bout de code incriminé :

Code:

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
Private Sub UserForm_Activate()
Set f = Sheets("Base1")
Dim Cell As Range
Dim Tableau()
Dim TempTab As Variant
Dim i As Integer, j As Integer
Dim boolVerif As Boolean
 
    ReDim Tableau(1 To 1)
    Tableau(1) = Cells(3, 1)
 
    'Boucle sur les données de la colonne B, dans la Base1
    For Each Cell In f.Range("B3:B" & _
                       f.Range("B65536").End(xlUp).Row)
        boolVerif = False
 
        'Vérifie si le contenu de la cellule existe déjà dans le tableau
        For i = 1 To UBound(Tableau)
            'Si la donnée existe déjà dans le tableau
            If Tableau(i) = Cell Then
                boolVerif = True
                Exit For
            End If
        Next i
 
        'Si la donnée n'existe pas dans le tableau, on augmente la taille du tableau
        'et on ajoute la donnée.
        If boolVerif = False Then
            ReDim Preserve Tableau(1 To UBound(Tableau) + 1)
            Tableau(UBound(Tableau)) = Cell
        End If
 
        'Tri le contenu du tableau par ordre croissant.
        For i = 1 To UBound(Tableau)
            For j = 1 To UBound(Tableau)
                If Tableau(i) < Tableau(j) Then
                    TempTab = Tableau(i)
                    Tableau(i) = Tableau(j)
                    Tableau(j) = TempTab
                End If
            Next j
        Next i
    Next Cell
 
    'Alimente le ComboBox
    ComboBox1.List = Tableau

28/09/2016, 10h29
unparia

Houla !
1) drôle de manière (lourd) de remplir ton tableau dynamique.
Explique avec précision ce que tu cherches à faire exactement (ce de quoi tu veux remplir ce tableau)
2) tu n'as toujours pas montré le code que je t'ai demandé par (citation) :

Citation:

- le code écrit à l'évènement click de cette combo