probléme de valeurs dans combobox sur un userform

**guyanais** · 23/08/2017, 16h53

Bonjour,
J'ai un userform qui récupère des données dans une feuille X et qui est déclenché depuis une autre feuille A. Je n'arrive pas à faire apparaître la valeur choisi dans le combobox.
Le userform se déclenche sur la feuille factures_rappr et récupère les donnée de la feuille BDD. Le userform s'affiche mais dans le comboBox_Champ_valeur je n'arrive pas à faire apparaître les valeurs de la ligne 1 de la feuille BDD. Le code qui va avec. Pour le fichier j'ai un peu de mal à le deposer

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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
 
Private Sub ComboBox_Champ_valeur_Change()
'Zone de liste vidée
ListBox_valeur_champ.Clear
'Variable
Dim no_colonne As Integer, nb_lignes As Integer
'Numéro de la selection de colonne (list commence à 0) :
no_colonne = ComboBox_Champ_valeur.ListIndex + 1
'Nombre de lignes de la colonne du champ choisi
nb_lignes = Cells(1, no_colonne).End(xlDown).Row
'boucle
For i = 2 To nb_lignes '=>pour lister les valeurs dans les colonnes
    ListBox_valeur_champ.AddItem Cells(i, no_colonne)
Next
End Sub
 
Private Sub ListBox_valeur_champ_Click()
TextBox_choix.Value = ListBox_valeur_champ.Value
End Sub
 
Private Sub UserForm2_Initialize()
'permet de selectionner un entete de colonne de la BDD pour faire une recherche ici de 1 à 8eme colonne
    For i = 1 To 8 '=> pour lister les entetes de colonne de la BDD
      ComboBox_Champ_valeur.AddItem Cells(1, i) 'Ajoute les valeurs
    Next
 
'Affiche les valeurs trouvés dans le resultat de la selection:
With ListView1
        .Gridlines = True 'affiche ou paas les lignes
        .View = lvw.Report 'style de rapport
        .FullRowSelect = True 'Permet de seletionner une ligne dans la liste
 
        'nomme les entêtes et défini les largeurs
        ColumnHeaders.Add Text:="Date enregistrment ", Whidth:=40
        ColumnHeaders.Add Text:="Numéro facture ", Whidth:=40
        ColumnHeaders.Add Text:="Appelation facture ", Whidth:=40
        ColumnHeaders.Add Text:="Noms ", Whidth:=40
        ColumnHeaders.Add Text:="Code unité ", Whidth:=40
 
   Call Actualisation_usf2 'on apelle le remplissage
 
End With
 
End Sub
Private Sub Actualisation_usf2()
 
'Déclaration des variables
Dim Item As ListItem
Dim DerniereLigne As Integer
Dim i As Integer
Dim Ws1 As Worksheet
 
Set Ws1 = ThisWorkbook.Sheets("BDD")
DernièreLigne = Feuil4.Cells(Row.Counts, 1).End(xlUp).Row 'on cherche la dernière ligne de la base feuil4(BDD) de la colonne 1
 
With Me.ListView1
    .ListItems.Clear 'On vide avant chaque rechargement
    'On boucle toutes les lignes et on charge les infos
    For i = 2 To DerniereLigne
        'On affiche dans le list view les contenu des données
        .ListItems.Add , , Feuil4.Cells(i, 1)
        .ListItems(.ListItems.Count).ListSubItems.Add , , Feuil4.Cells(i, 2)
        .ListItems(.ListItems.Count).ListSubItems.Add , , Feuil4.Cells(i, 3)
        .ListItems(.ListItems.Count).ListSubItems.Add , , Feuil4.Cells(i, 8)
        .ListItems(.ListItems.Count).ListSubItems.Add , , Feuil4.Cells(i, 13)
    Next i
End With
End Sub