Formulaire ListBox multi-sélection

Version imprimable

02/07/2018, 17h49
PasdeSalade

1 pièce(s) jointe(s)

Formulaire ListBox multi-sélection

Bonjour à toutes et tous.

Il y a quelques temps j'ai utilisé un classeur mis à disposition par Jacques Boisgontier, "Formulaire ListBox multi-sélection".
Je cherche à le modifier et l'adapter à un nouveau besoin.
Après avoir sélectionné les éléments à inclure dans ma feuille de calcul, je souhaite y ajouter un élément de manière systématique, sans que l'utilisateur ne puisse intervenir.
C'est peut-être simple, mais je n'y arrive pas.

Merci de l'aide apportée.

Cordialement.

pasdesalade

1 pièce(s) jointe(s)

Bonsoir,

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Sub B_ajout_Click()
  Me.ListBox1.AddItem
  n = Me.ListBox1.ListCount - 1
  Me.ListBox1.List(n, 0) = Me.TextBox1
  Me.ListBox1.List(n, 1) = Me.TextBox2
  derlig = f.[A65000].End(xlUp).Row
  f.Cells(derlig + 1, 1) = Me.TextBox1
  f.Cells(derlig + 1, 2) = Me.TextBox2
  For i = 1 To 2: Me("textbox" & i) = "": Next i
  Me.TextBox1.SetFocus
End Sub

Boisgontier

Citation:
Envoyé par boisgontierjacques
Bonsoir,
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub B_ajout_Click() Me.ListBox1.AddItem n = Me.ListBox1.ListCount - 1 Me.ListBox1.List(n, 0) = Me.TextBox1 Me.ListBox1.List(n, 1) = Me.TextBox2 derlig = f.[A65000].End(xlUp).Row f.Cells(derlig + 1, 1) = Me.TextBox1 f.Cells(derlig + 1, 2) = Me.TextBox2 For i = 1 To 2: Me("textbox" & i) = "": Next i Me.TextBox1.SetFocus End Sub
Boisgontier
Bonsoir.
Merci pour ce retour, cela va bien me servir (encore :))
Mais je vais abuser, je voulais à l'origine ajouter ces éléments sans passer par le userform :?
J'espère y arriver.
Encore merci

1 pièce(s) jointe(s)

Je ne suis pas sûr de comprendre la question

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
Dim f, Tbl()
Sub UserForm_Initialize()
  Set f = Sheets("bd")
  Me.ListBox1.List = Range(f.[A2], f.[b65000].End(xlUp)).Value
  Me.ListBox1.MultiSelect = fmMultiSelectMulti
End Sub
 
Private Sub ListBox1_Change()
 n = 0
 For k = 0 To Me.ListBox1.ListCount - 1
   If Me.ListBox1.Selected(k) = True Then
     n = n + 1
     ReDim Preserve Tbl(1 To 2, 1 To n)
     Tbl(1, n) = Me.ListBox1.List(k, 0)
     Tbl(2, n) = Me.ListBox1.List(k, 1)
   End If
 Next k
End Sub
 
Private Sub cmdValider_Click()
  f.Cells(2, "e").Resize(20, 2).ClearContents
  n = UBound(Tbl, 2) + 1
  ReDim Preserve Tbl(1 To 2, 1 To n)
  Tbl(1, n) = "xxxx"
  Tbl(2, n) = "yyyy"
  f.Cells(2, "e").Resize(UBound(Tbl, 2), 2) = Application.Transpose(Tbl)
  Unload Me
End Sub

Boisgontier

02/07/2018, 20h17
PasdeSalade

Citation:

Envoyé par boisgontierjacques

Je ne suis pas sûr de comprendre la question

Boisgontier

Merci mais vous aviez bien compris mon attente.
ca me va super bien ! :lol:

En fait, l'information que je veux ajouter, l'est systématiquement à l'insu de l'utilisateur, comme une constante.
Encore merci