STXT Résolu/Fermé

Question

Bonjour, 

mon probleme et le suivant : 
j'ai veux affecter une valeur a un combobox qui s'appel "caisse", on utilisant les donne de la cellule F20 ,sa valeur est: "Alimentation de caisse EL OUED" ou "Alimentation de caisse SKIKDA" , voici se que j'ai essayer mais sa marche pas 

For i = Range("B" & .Rows.Count).End(xlUp).Row To 10 Step -1
If Range("I" & i).Value = "R.CAISSE.CHQ" Then

userform3.caisse.FORMULA = "=Mid(range("F" & i).TEXT, 24, 40)"

ThauTheme · Answer

Bonjour Aminesc, bonjour le forum,

Je n'ai pas très bien compris exactement où tu voulais en venir mais la propriété [Formula] ne s'emploie pas pour une ComboBox.
Essaie soit avec la propriété [Value] qui va renvoyer une seule valeur dans la Combobox. Dans ce cas pourquoi une boucle ?

For i = Range("B" & .Rows.Count).End(xlUp).Row To 10 Step -1
    If Range("I" & i).Value = "R.CAISSE.CHQ" Then
        userform3.caisse.Value = Mid(Range("F" & i).Text, 24, 40)
    End If
Next i


Soit la propriété [AddItem] qui va alimenter la Combobox avec une liste de valeurs.
For i = Range("B" & .Rows.Count).End(xlUp).Row To 10 Step -1    If Range("I" & i).Value = "R.CAISSE.CHQ" Then        userform3.caisse.AddItem Mid(Range("F" & i).Text, 24, 40)    End IfNext i

STXT

1 réponse

Discussions similaires