Problème affichage Listbox Filtrée

Version imprimable

Bonjour,

Meilleurs vœux et bonne année à tous.

Je me suis aidé de certaines discussions pour afficher une ListBox suivant une combobox, mais les 2 dernières colonnes ne s'affichent pas.

La plage de données sur la feuille comporte 12 colonnes ( de A à L), la selection combobox est la colonne 2. Voici mon code, je n'arrive pas à repérer mes erreurs

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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
Option Explicit
Private Sub Userform_Initialize()
    Dim i As Long, LastLig As Long
 
    Application.ScreenUpdating = False
    With Worksheets("BD")
        LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row
        Me.ComboBox1.Clear
        For i = 2 To LastLig
            If .Range("B" & i) <> "" Then
                Me.ComboBox1 = .Range("B" & i)
                If Me.ComboBox1.ListIndex = -1 Then Me.ComboBox1.AddItem .Range("B" & i)
            End If
        Next i
    End With
 
    Me.ComboBox1.ListIndex = -1
 
    With Me.ListBox1
        .ColumnCount = 12
        .ColumnWidths = "30;80;80;80;80;80;80;80;80;80;80;80"
    End With
End Sub
 
Private Sub ComboBox1_Change()
    Dim LastLig As Long
    Dim Code As String
    Dim c As Range
 
    Application.ScreenUpdating = False
    Me.ListBox1.Clear
 
    Code = Me.ComboBox1.Value
 
    If Me.ComboBox1.ListIndex > -1 Then
        With Worksheets("BD")
            .AutoFilterMode = False
            LastLig = .Cells(.Rows.Count, "B").End(xlUp).Row
            .Range("B1:B" & LastLig).AutoFilter Field:=1, Criteria1:=Code
            For Each c In .Range("B2:B" & LastLig).SpecialCells(xlCellTypeVisible)
                With Me.ListBox1
                    .AddItem c
                    .List(.ListCount - 1, 0) = c.Offset(0, -1)
                    .List(.ListCount - 1, 1) = c.Offset(0, 0)
                    .List(.ListCount - 1, 2) = c.Offset(0, 1)
                    .List(.ListCount - 1, 3) = c.Offset(0, 2)
                    .List(.ListCount - 1, 4) = c.Offset(0, 3)
                    .List(.ListCount - 1, 5) = c.Offset(0, 4)
                    .List(.ListCount - 1, 6) = c.Offset(0, 5)
                    .List(.ListCount - 1, 7) = c.Offset(0, 6)
                    .List(.ListCount - 1, 8) = c.Offset(0, 7)
                    .List(.ListCount - 1, 9) = c.Offset(0, 8)
                    '.List(.ListCount - 1, 10) = c.Offset(0, 9)
                    '.List(.ListCount - 1, 11) = c.Offset(0, 11)
 
                End With
            Next c
            .AutoFilterMode = False
        End With
    End If
End Sub
 
Private Sub ListBox1_Click()
    Me.TextBox1 = ListBox1.List(ListBox1.ListIndex, 0)
    Me.TextBox2 = ListBox1.List(ListBox1.ListIndex, 1)
    Me.TextBox3 = ListBox1.List(ListBox1.ListIndex, 2)
    Me.TextBox4 = ListBox1.List(ListBox1.ListIndex, 3)
    Me.TextBox5 = ListBox1.List(ListBox1.ListIndex, 4)
    Me.TextBox6 = ListBox1.List(ListBox1.ListIndex, 5)
    Me.TextBox7 = ListBox1.List(ListBox1.ListIndex, 6)
    Me.TextBox8 = ListBox1.List(ListBox1.ListIndex, 7)
    Me.TextBox9 = ListBox1.List(ListBox1.ListIndex, 8)
    Me.TextBox10 = ListBox1.List(ListBox1.ListIndex, 9)
 
End Sub

En vous remerciant par avance.

31/12/2014, 17h07
SfJ5Rpw8

Bonsoir,

tu sais pourquoi les lignes 53 et 54 ne sont pas de la même couleurs que les lignes précédentes ?
31/12/2014, 17h25
Invité

1 pièce(s) jointe(s)

Bonsoir,

Merci pour le retour. j'ai mis les lignes 53 et 54 en commentaires car j'ai le message d'erreur ci-dessous
Pièce jointe 165095
Et je ne sais pas comment y remédier.
31/12/2014, 17h37
SfJ5Rpw8

Donc ton problème n'est pas que les deux dernières colonnes ne sont pas affichées c'est juste que tu n'y met rien dedans ....

Et qu'elle est donc cette valeur de propriété qui cause problème ? que contiennent tes 2 deux colonnes ?
31/12/2014, 22h19
Invité

Citation:

Et qu'elle est donc cette valeur de propriété qui cause problème ? que contiennent tes 2 deux colonnes ?

je commence par la dernière question: c'est du texte (string)

Quant à la première question, si je le savais je n'aurai pas sollicité une aide gracieuse.

Car je ne suis ni développeur, ni un professionnel de l'informatique. Je m'occupe comme je peux.

Maintenant, si votre intention est de me tendre une perche, alors allons-y. Sinon, je n'ai pas envie de passer ma fin d'année en interrogatoire.

Pour info, c'est un code de Mercatog que j'ai voulu adapter pour mes besoins (http://www.developpez.net/forums/d11...x/#post6322932)

Je vous réitère mes meilleurs vœux de fin et de nouvelle année.

Cordialement,
01/01/2015, 05h00
Docmarti

Bonjour

Pour avoir accès à plus de 10 colonnes dans un contrôle Listbox, il faut utiliser sa propriété ROWSOURCE pour l'alimenter.

Bonne année
01/01/2015, 07h20
boisgontierjacques

1 pièce(s) jointe(s)

Bonjour,

Pour plus de 10 colonnes, Additem ne fonctionne pas. Il faut alimenter la ListBox avec un tableau 2D.

Jacques Boisgontier
01/01/2015, 08h06
Invité

Bonjour,

Messieurs, je vous remercie beaucoup. Je l'avais bien lu sur le forum et sur le site de Boisgontier. Mais je ne l'avais pas retenu.

Merci c'est exactement ce que je voulais obtenir.

Bon premier jour de l'année. Merci pour le partage de vos connaissances.

C'est tout à votre honneur.
01/01/2015, 21h24
clementmarcotte

Citation:

Envoyé par cathodique

Maintenant, si votre intention est de me tendre une perche, alors allons-y. Sinon, je n'ai pas envie de passer ma fin d'année en interrogatoire.

Cordialement,

Il n'y a rien de cordial dans une réponse de ce genre.

Tu devrais avoir envie de fermer l'écran (peut-être cathodique, n'est-il pas?) et de prendre une pause.

Quand on est rendu à répondre de cette façon à des gens qui essaient de t'aider bénévolement, le problème véritable s'approche du PEBKAC. (Problem Exists Between Keyboard And Chair)

Et puis 12 colonnes pour un ListBox, cela s'approche de l'aberration.

Tu peux piquer une crise si tu veux, je m'en sacre.