Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

ListBox

pierre 77930

XLDnaute Nouveau
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

XLDnaute Nouveau
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

XLDnaute Barbatruc
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
 

kjin

XLDnaute Barbatruc
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
 

Discussions similaires

Réponses
10
Affichages
684
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…