Combobox

[yassoux]

Bonjour, j'aimerais savoir si il était possible de remplir une combobox par de multiples valeurs situé dans plusieurs lignes par exemple récupérer toutes les cellules de la lignes B.
car j'aimerais récupérer ces valeurs pour effectuer des test avec d'autres calculs...
pour le moment j'ai ce code :

Private Sub Userform_initialize()

With regime
.AddItem "A"
.AddItem "B"
.AddItem "B25"
.AddItem "C20"
.AddItem "Tous"
.AddItem "A15"
.AddItem "A16"
.AddItem "A17"
.AddItem "A18"
.AddItem "B10"
End With

End Sub

mon problèmes est que je n'arrive pas à récupérer ces valeurs, ni à les affectées à une cellule...

 

[Guiv]

Re : Combobox

Bonjour yassoux, le forum,

récupérer toutes les cellules de la lignes B.

Je suppose que tu parles de la COLONNE B...
Essaie

Private Sub UserForm_Initialize()
    Dim c As Range
    For Each c In Columns(2).Cells
        If c <> "" Then
            With ComboBox1
                .AddItem c.Value
            End With
        End If
    Next

End Sub

Cordialement,
Guiv

 

[Compte Supprimé 979]

Re : Combobox

Bonjour Yassoux,

Bien sûr que c'est possible, mais merci d'effectuer une recherche sur le forum
Il existe pleins de fils à ce sujet ou consulte la FAQ

A+