ListBox

P

pierre 77930

XLDnaute Nouveau

• 27 Janvier 2009

• #2

Re : ListBox

j'ai pourtant fait des recherches

Pierre

 

Vote positif 0 Vote négatif

Temjeh

XLDnaute Accro

Supporter XLD

• 27 Janvier 2009

• #3

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

 

Dernière édition: 27 Janvier 2009

Vote positif 0 Vote négatif

P

pierre 77930

XLDnaute Nouveau

• 27 Janvier 2009

• #4

Re : ListBox

je te remercie

bonne soirée

Pierre

 

Vote positif 0 Vote négatif

P

pierre 77930

XLDnaute Nouveau

• 27 Janvier 2009

• #5

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

 

Vote positif 0 Vote négatif

Excel-lent

XLDnaute Barbatruc

• 27 Janvier 2009

• #6

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 :

Code:

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

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 27 Janvier 2009

• #7

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

 

Vote positif 0 Vote négatif