Affichage dans ComboBox particulier

tototiti2008

XLDnaute Barbatruc

• 24 Avril 2009

• #2

Re : Affichage dans ComboBox particulier

Bonjour Hulk,

un exemple avec des formules (réalisable évidement également en VBA)

 

Pièces jointes

• TestCombo(1).xls

  34.5 KB · Affichages: 49
• TestCombo(1).xls

  34.5 KB · Affichages: 53
• TestCombo(1).xls

  34.5 KB · Affichages: 52

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 24 Avril 2009

• #3

Re : Affichage dans ComboBox particulier

Hého Tototiti,

Merci de me répondre.

J'avoue ne pas comprendre ta proposition 😕 😀

Euh plutôt par macro...

Cdt.

 

Dernière édition: 24 Avril 2009

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 24 Avril 2009

• #4

Re : Affichage dans ComboBox particulier

Re,

Le principe était simplement de mettre le contenu des cellules (calculées par formule) dans la combobox et la textbox...

bon sinon par macro :

 

Pièces jointes

• TestCombo(1).xls

  36.5 KB · Affichages: 43
• TestCombo(1).xls

  36.5 KB · Affichages: 51
• TestCombo(1).xls

  36.5 KB · Affichages: 46

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 24 Avril 2009

• #5

Re : Affichage dans ComboBox particulier

Bonjour Hulk, Tototiti

une autre solution par vba, utilisation d'une 2ème colonne dmasquée dans le combo. Attention j'ai modifié le nom du combobox. Prend un combo avec les propriétés standard pour tester.

Code:

Private Sub UserForm_Initialize()
With ComboBox1
    .ColumnCount = 2
    .ColumnWidths = "60;0"
    .List = Sheets("Feuil1").Range("A2:B10").Value
    For i = 1 To .ListCount
        If .List(i - 1, 1) <> "" Then
            .ListIndex = i - 1
            TxtCategorie.Value = .List(i - 1, 1)
            Exit For
        End If
    Next i
End With
End Sub

bon après midi
@+

 

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 24 Avril 2009

• #6

Re : Affichage dans ComboBox particulier

Huhu Forum, Tototiti, Pierrot,

Tototiti maintenant que tu me le dis, je préfère comme ça 😀

Les deux versions sont execellentes, impec !

Merci beaucoup à vous deux.

Cdt, Hulk.

 

Vote positif 0 Vote négatif