Nombre de valeur dans une combobox

Bonjour

Est-il possible d'avoir le de valeur dans une combobox.

J'ai essayé

Label5.Caption = ComboBox2.ListCoun

Sa ne fonctionne pas?

Je vous remercie

Maxt

Bonjour,

Label5.Caption = ComboBox2.ListCount >> avec le t à ListCount est-ce que ça fonctionne mieux?

ric

Salut Ric

Non sa ne fonctionne pas?

Merci

Bonjour,

Le nom du label est bien écrit ?

Le nom du combobox est bien écrit ?

Le label et le combobox sont sur le même userform ?

Car ici, mon test a bien fonctionné.

ric

re,

La label et la combobox sont bien écris et mon code est ceci

Label5.Caption = ComboBox2.ListCount

A+

Max

Bonjour,

Tu mentionnes que ça ne fonctionne pas ... y a-t-il un message d'erreur ?

Ou simplement, il ne se passe rien ?

Au moment où ce code s'exécute, est-ce que le combobox est déjà alimenté avec une liste quelconque ?

Le combobox et le label sont-ils sur le même userform ?

ric

Salut ric

Je vais répondre aux question

Dans l'ordre:

non je n'est pas de message d'erreur,

il ne se passe rien

le combobox est alimenter par une autre combobox

le combobox et le label sont sur le même userform

Je te joint mon fichier

Bonne journée

Max

Bonjour,

Quand la boucle For I = 4 To 20 arrive sur une cellule vide If Cells(adr, I) = "", le code met fin à la macro Then Exit Sub.

Ainsi, le code ne se rend pas plus loin et n'exécute pas l'instruction d'inscrire le nombre de lignes du combobox dans le label.

En déplaçant ainsi l'instruction avant le Exit Sub, ça fonctionne bien.

Private Sub ComboBox2_click()
Dim K As Integer
    'Stop
    a = ComboBox2.ListIndex
    ListBox1.Clear
    TextBox1 = ComboBox2.Column(1, ComboBox2.ListIndex)
    Set plage = Range("B1:B" & Dli)
    With plage
        Set d = .Find(ComboBox2, lookat:=xlWhole)
        If Not d Is Nothing Then
            adresse = d.Address
            adr = d.Row
        End If
    End With

    For I = 4 To 20
        If Cells(adr, I) = "" Then
            Label5.Caption = ComboBox2.ListCount ' << déplacé ici
            Exit Sub
        End If
        If Cells(adr, 2) = ComboBox2 Then ListBox1.AddItem Cells(adr, I)
    Next I
End Sub

ric

Bonjour,

Ce genre de problème peut être aisément dépanné via un pas-à-pas sur le code.

Au début du code, l'on place un point d'arrêt ( touche F9 ).

On lance le processus normal.

Arrivée au point d'arrêt, l'exécution est suspendue.

L'on continue avec la touche F8 ... laquelle fait avancer le code d'une ligne à la fois.

Ce qui permet de suivre la valeur des variables et le comportement des instructions.

ric

Salut Ric

Je te remercie pour les explications et le code

Bonne journée

Max

ric

Re ric

Peut tu regarder, dans le poste que j'ai mis qui se nomme Formulaire images. Sa fait deux jour que je suis dessus et je n'arrive pas à résoudre mon problème

Je te remercie

Max