Declaration d'une variable pour listbox

Résolu/Fermé
amine69500 Messages postés 418 Date d'inscription lundi 8 juin 2009 Statut Membre Dernière intervention 25 août 2013 - 24 juin 2009 à 19:56
thev Messages postés 1854 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 3 mai 2024 - 25 juin 2009 à 21:25
Bonjour,

es ce que quelqu'un peu me dire svp , comment je peu faire pour declarer une variable
jai deux userform

dans le userform1 jai deux bouton qui apele le userform2, et dans le userform2 jai une listbox , je souhaite la remplir suivant le bouton sur lequelle jai appuyer le bouton 1 range ("A1:B10") et le bouton 2 c'est range ("A13:B20") .

merci de votre aide

2 réponses

thev Messages postés 1854 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 3 mai 2024 683
24 juin 2009 à 23:07
Private Sub CommandButton1_Click()

Load UserForm2
UserForm2.ListBox1.RowSource = "A1:B10"
UserForm2.ListBox1.ColumnCount = 2
UserForm2.Show

End Sub

Private Sub CommandButton2_Click()

Load UserForm2
UserForm2.ListBox1.RowSource = "A13:B20"
UserForm2.ListBox1.ColumnCount = 2
UserForm2.Show

End Sub
0
amine69500 Messages postés 418 Date d'inscription lundi 8 juin 2009 Statut Membre Dernière intervention 25 août 2013 12
25 juin 2009 à 09:35
bonjour , merci , ca marche super

bonne journer a vous
0
amine69500 Messages postés 418 Date d'inscription lundi 8 juin 2009 Statut Membre Dernière intervention 25 août 2013 12
25 juin 2009 à 09:50
bonjour

es ce que vous pouvez me dire , comment je peu faire svp

jai créer un bouton ajouter je souhaite ajouter les elements de la list dans une autre listbox donc jai fai ca

Private Sub AddButton_Click()

ListBox2.AddItem ListBox1.Text

End Sub

je souhaite mettre une valeur true dans la cellule de droite de ma listbox:
exemple si je sui dans la listbox1.rowsource = A1:B10
si je selectionne la 1ere ligne dans ma listbox1 et je fai ajouter ca met true dans C1
et si je selectionne la derniere ligne dans ma listbox1 et je fai ajouter ca met true dans C10

merci de votre aide
0
thev Messages postés 1854 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 3 mai 2024 683
25 juin 2009 à 21:25
Private Sub AddButton_Click()

ListBox2.List = ListBox1.List
Range("C1").Offset(ListBox1.ListIndex, 0).Value = True

End Sub
0