ListBox

[pierre 77930]

Bonsoir, c'est encore moi

je voudrai créer une list box avec deux valeurs (de garantie) 1 an et 2 ans et les affecter à une cellule d'une feuille mais au lieu d'attribuer une plage avec rowsource les taper moi même du type: "1 an";"2 ans"

merci d'avance

Pierre

 

[pierre 77930]

Re : ListBox

j'ai pourtant fait des recherches

Pierre

 

[Temjeh]

Re : ListBox

Bonjour

À mettre dans l'initialisation du Userform

With ListBox1
.AddItem "1 an"
.AddItem "2 ans"
End With

A++

Temjeh

PS si c'est sur une feuille regarde du coté de liste de validation

 

[pierre 77930]

Re : ListBox

je te remercie

bonne soirée

Pierre

 

[pierre 77930]

Re : ListBox

Private Sub ListBox4_Click()

c'est encore moi ,dans mon cas précis voilà le code que je voudrai réaliser et bien celà ne marche pas

With ListBox4
.AddItem "1 an"
.AddItem "2 ans"

Range("B44") = ListBox4
End With


bonne soirée

pierre

 

[Excel-lent]

Re : ListBox

Bonsoir le fil, le forum,

Essaye en remplacant :
Range("B44") = ListBox4

par :
Range("B44") = ListBox4.value

Tu disais pouvoir saisir tes "textes" à mettre dans la liste : ListBox4

Voici une solution inspiré de Temjeh :

Sub ListeDeChoixParamétrable ()

Valeur1 = InputBox("1ère valeur de la liste de choix ?")
Valeur2 = InputBox("2ème valeur de la liste de choix ?")

  With ListBox4
    .AddItem Valeur1
    .AddItem Valeur2
  End With

  Range("B44") = ListBox4.value
End Sub

Bonne soirée

 

[kjin]

Re : ListBox

Bonsoir,
Si je peux me permettre, aller modifier le code VBA à chaque fois que tu veux modifier les valeurs de ta liste, tu vas finir par te lasser...
Tu ne précises pas où est située cette Listbox
Tu ne précises pas ce qui déclenches le transfert vers la cellule B44
Autant écrire directement la valeur dans la cellule
A+
kjin