Declaration d'une variable pour listbox

Résolu
amine69500 Messages postés 471 Statut Membre -  
thev Messages postés 2010 Date d'inscription   Statut Membre Dernière intervention   -
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
Configuration: Windows XP
Firefox 3.0.10

2 réponses

  1. thev Messages postés 2010 Date d'inscription   Statut Membre Dernière intervention   723
     
    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
    1. amine69500 Messages postés 471 Statut Membre 12
       
      bonjour , merci , ca marche super

      bonne journer a vous
      0
    2. amine69500 Messages postés 471 Statut Membre 12
       
      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
  2. thev Messages postés 2010 Date d'inscription   Statut Membre Dernière intervention   723
     
    Private Sub AddButton_Click()

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

    End Sub
    0