Problème sur alimentation Combobox

Geraldine

XLDnaute Occasionnel
Bonjour,

Je n'avais jamais remarqué que j'ai un bug au niveau de l'alimentation de mes combobox quand dans la liste il ya uniquement 1 ligne !

Code:
With Sheets("feuil10")
    ComboBoxOuv.List = .Range("B6:B" & .Range("B65536").End(xlUp).Row).Value
End With
Et pourquoi ? et je rajoute et merci !

Merci
 
Dernière édition:

RENAUDER

XLDnaute Accro
Re : Problème sur alimentation Combobox

Bonjour,

Dans ce cas il te faut faire un test pour savoir s'il ya plus d'une ligne et adapté ton code en conséquence

par exemple ..
Code:
Private Sub UserForm_Initialize()
    With Sheets("Feuil1")
        If Range("B7").Value = "" Then
            ComboBox1.RowSource = "Feuil1!B6"
        Else
            ComboBox1.RowSource = "Feuil1!B6:B" & Sheets("Feuil1").Cells(1, 1).End(xlDown).Row
        End If
    End With
End Sub
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas