Liste validation choix multiples...encore une...

[Christian0258]

Bonjour à tout le forum,

Je souhaiterais votre aide afin de modifier ce fichier...

Voir fichier joint


Je vous remercie, par avance, pour le temps que vous voudrez bien vouloir m'accorder.

Bien amicalement,

Christian

 

[job75]

Re : Liste validation choix multiples...encore une...

Bonjour Christian,

Je viens de traiter un problème similaire sur ce fil :

https://www.excel-downloads.com/threads/vba-controler-un-boucle-avec-un-bouton-click.224902/

Lance-toi, car je n'ai pas trop envie de recommencer l'exercice.

A+

 

[phlaurent55]

Re : Liste validation choix multiples...encore une...

Bonjour Christian,

le fichier en retour pour un début de réponse

à+
Philippe

Edit: Bonjour Job

 

[job75]

Re : Liste validation choix multiples...encore une...

Re, salut Philippe,

Bon je me suis quand même remué, voir le fichier joint avec ce code :

Option Compare Text 'la casse est ignorée

Private Sub CheckBox1_Click()
TextBox1_Change
End Sub

Private Sub CommandButton1_Click()
Dim F As Worksheet, deb As Range, i&, n&
Set F = Feuil5 'CodeName de la feuille de restitution
Set deb = F.Range("E" & F.Rows.Count).End(xlUp)(2)
For i = 0 To ListBox1.ListCount - 1
  If ListBox1.Selected(i) Then
    n = n + 1
    deb(n) = ListBox1.List(i)
  End If
Next
End Sub

Private Sub TextBox1_Change()
Dim vide As Boolean, t, i&, n&
vide = TextBox1 = ""
ListBox1.Clear
t = [Liste].Resize(, 2) 'pour avoir au moins 2 éléments
For i = 1 To UBound(t)
  If t(i, 1) Like IIf(Not CheckBox1, "*", "") & TextBox1 & "*" Then
    ListBox1.AddItem t(i, 1)
    If Not vide Then ListBox1.Selected(n) = True
    n = n + 1
  End If
Next
End Sub

Private Sub UserForm_Initialize()
TextBox1_Change
End Sub

A+

 

[Christian0258]

Re : Liste validation choix multiples...encore une...

Re, le forum, Philippe, job75,

Superbe travail, un grand merci à vous.

Bien amicalement,
Christian

P.S : job75, je suis allé voir ton travail (post2), j'ai mis de côté...lol

 

[Christian0258]

Re : Liste validation choix multiples...encore une...

Re, le forum,
Bonjour à tous,

Je reviens sur ce fil pour une tite question ;

-comment adapter la macro pour coller les données à l'horizontale (lignes) et non à la verticale (colonnes) ?

Merci pour votre aide si précieuse.

Bien à vous,
Christian

 

[Christian0258]

Re : Liste validation choix multiples...encore une...

Re, le froum,

Hello, les amis, pas inspirés par ma demande...lol

Dans l'attente de vous lire.

Bien amicalement,
Christian

 

[job75]

Re : Liste validation choix multiples...encore une...

Bonsoir Christian,

Pour renseigner la ligne 4 modifie ma macro avec :

Set deb = F.Cells(4, F.Columns.Count).End(xlToLeft)(1, 2)
'---------
    deb(1, n) = ListBox1.List(i)

A+

 

[Christian0258]

Re : Liste validation choix multiples...encore une...

Re, le forum, job75,

Merci pour ta nouvelle intervention.
Je te remercie infiniment.

Bien à toi,
Christian