Discussion :

[Mr l'Ashanti]

Bjr forum.
J'aimerais savoir si c'était possible d'afficher dans un textbox le nombre de lignes sélectionnées dans une listbox ?
Aussi, est-il possible d'affecter une même note au lignes sélectionnées de la listbox dans la base de données ? Exemple : j'ai sélectionné dans la listbox 4 élèves qui doivent passer en classe supérieure en fin d'année, et je veux leur attribuer la décision de fin d'année (DFA) qui est "ADMIS" pour que dans la BD j'ai devant leur nom "ADMIS". Si oui puis-je avoir un aperçu des codes car' j'ai traversé vent et marée mais je n'ai pas pu résoudre ''l'équation matricielle'' 😅😅. Merci

[Theze]

Bonjour,

Une piste à adapter :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
30
 
Private Sub UserForm_Initialize()
 
    Dim Plage As Range
    Dim Tbl
 
    With Worksheets("Feuil1"): Set Plage = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp)): End With
 
    Tbl = Plage
    ListBox1.List = Tbl
 
End Sub
 
Private Sub ListBox1_Change()
 
    Dim I As Integer
    Dim J As Integer
 
    For I = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(I) = True Then
            J = J + 1
            Cells(I + 2, 2).Value = "ADMIS"
        Else
            Cells(I + 2, 2).Value = ""
        End If
    Next I
 
    TextBox1.Text = J
 
End Sub

[Mr l'Ashanti]

Bonjour,

Une piste à adapter :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
30
31
 
Private Sub UserForm_Initialize()
 
    Dim Plage As Range
    Dim Tbl
 
    With Worksheets("Feuil1"): Set Plage = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp)): End With
 
    Tbl = Plage
    ListBox1.List = Tbl
 
End Sub
 
 
Private Sub ListBox1_Change()
 
    Dim I As Integer
    Dim J As Integer
 
    For I = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(I) = True Then
            J = J + 1
            Cells(I + 2, 2).Value = "ADMIS"
        Else
            Cells(I + 2, 2).Value = ""
        End If
    Next I
 
    TextBox1.Text = J
 
End Sub

merci pour le code mais il ya une erreur quand j'execute le code. erreur"9" l'indice n'appartient pas à la sélection.
mais il y a eu un soucis d'incompréhension

en fait dans un textbox1je souhaiterais avoir le nombre d'items sélectionnés exemple si je sélectionne 3 éléments le textbox affiche 3 ou si je sélectionne 4 le textbox affiche 4.

maintenant pour l'attribution de la décision ,j'ai un combobox qui est déjà chargé avec les DFA( "ADMIS, ECHOUE, EXCLU"). lorsque je sélectionne dans la listbox des élèves et je choisis un element dans la combobox comme exemple admis, dans la colonne C, qu'on ait les affectations devant les noms sélectionnés. je note que les noms des élèves se trouvent dans la colonne A.

[Mr l'Ashanti]

Bonjour,

Une piste à adapter :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
30
 
Private Sub UserForm_Initialize()
 
    Dim Plage As Range
    Dim Tbl
 
    With Worksheets("Feuil1"): Set Plage = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp)): End With
 
    Tbl = Plage
    ListBox1.List = Tbl
 
End Sub
 
Private Sub ListBox1_Change()
 
    Dim I As Integer
    Dim J As Integer
 
    For I = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(I) = True Then
            J = J + 1
            Cells(I + 2, 2).Value = "ADMIS"
        Else
            Cells(I + 2, 2).Value = ""
        End If
    Next I
 
    TextBox1.Text = J
 
End Sub

pour l'affichage des lignes sélectionnées dans le textbox j'ai modifié juste un peu le code et j'obtiens ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 For I = 0 To ListBox3.ListCount - 1
        If ListBox3.Selected(I) = True Then
            J = J + 1
            'Cells(I + 2, 2).Value = "ADMIS"
       ' Else
            'Cells(I + 2, 2).Value = ""
        End If
    Next I
 
    TextBox1.Caption = "     " & J & " El?ments s?lectionn?s"

et ça marche nickel. merci

maintenant pour l'attribution des décisions de fin d'année je n'y arrive toujours pas.

[Theze]

il ya une erreur quand j'execute le code. erreur"9" l'indice n'appartient pas à la sélection

Je présume que ta feuille Excel ne s'appelle pas "Feuil1" donc à adapter !

en fait dans un textbox1je souhaiterais avoir le nombre d'items sélectionnés exemple si je sélectionne 3 éléments le textbox affiche 3 ou si je sélectionne 4 le textbox affiche 4.

C'est ce que font ces instructions ;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
For I = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(I) = True Then
        J = J + 1
'...
'...
TextBox1.Text = J

Une autre piste donc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
 
Dim Changer As Boolean
 
Private Sub UserForm_Initialize()
 
    Dim Plage As Range
    Dim Tbl
 
    With Worksheets("Feuil1"): Set Plage = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp)): End With
 
    Tbl = Plage
    ListBox1.List = Tbl
 
    ComboBox1.AddItem "ADMIS"
    ComboBox1.AddItem "ECHOUE"
    ComboBox1.AddItem "EXCLU"
 
    ComboBox1.Text = "ADMIS"
 
End Sub
 
Private Sub ListBox1_Change()
 
    Dim I As Integer
    Dim J As Integer
 
    If Changer = True Then Exit Sub
 
    For I = 0 To ListBox1.ListCount - 1
 
        If ListBox1.Selected(I) = True Then
            J = J + 1
            Cells(I + 2, 2).Value = ComboBox1.Text
        End If
 
    Next I
 
    TextBox1.Text = J
 
End Sub
 
Private Sub ComboBox1_Click()
 
    Dim I As Integer
 
    Changer = True
 
    For I = 0 To ListBox1.ListCount - 1: ListBox1.Selected(I) = False: Next I
    ListBox1.ListIndex = -1
 
    Changer = False
 
End Sub

[Mr l'Ashanti]

MERCI mais j'avais déjà mentionné plus haut que ton code marchait très bien pour ce qui est de l'affichage dans un textbox le numéro de lignes sélectionnées.

ce qui reste à faire et je ny arrive toujours pas c'est comment affecter un meme résultat à un ensemble d'element selectioné de la listbox. exemple:

j'ai un combobox qui contient les décisions (admis, exclus et échoué). je sélectionne 4eleves sur 8 dans la listbox et je voudrais leur attribuer la décision finale vu qu'ils sont admis en classe supérieure. au lieu que je sélectionne un élève et porté son attribution la sélection de plusieurs élèves est plus avantageux et c'est cela je voudrais faire.

[Theze]

Bonjour,

Voici un petit fichier en exemple !
Les propriétés modifiées pour la ListBox sont :
- MultiSelect = fmMultiSelectMulti
- ColumnCount = 2
- ColumnWidths = 150 pt;150 pt

Niamké 19.xlsm

[Pierre Fauconnier]

Salut.

Une autre approche grâce aux tableaux structurés, pour lier beaucoup moins ton code à la structure de ta feuille...

Sur base de deux tableaux, un pour les élèves et un pour les résultats possibles... Les deux tableaux peuvent être déplacés n'importe où dans le classeur sans impacter ton code...




Dans un module standard

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Test()
  Unload usfStudents
  With usfStudents
    .lboStudents.List = Range("t_Elèves[[prénom]:[nom]]").Value
    .cboResult.List = Range("t_Résultats[cote]").Value
    .Show
  End With
  Unload usfStudents
End Sub

Dans le userform

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub btnValidate_Click()
  Dim Counter As Long
 
  For Counter = 0 To lboStudents.ListCount - 1
    If lboStudents.Selected(Counter) Then Range("t_Elèves").ListObject.ListRows(Counter + 1).Range(3) = cboResult.Value
  Next
End Sub

PS: Il faut travailler avec les tableaux structurés, c'est mille fois plus simple

[Mr l'Ashanti]

Salut.

Une autre approche grâce aux tableaux structurés, pour lier beaucoup moins ton code à la structure de ta feuille...

Sur base de deux tableaux, un pour les élèves et un pour les résultats possibles... Les deux tableaux peuvent être déplacés n'importe où dans le classeur sans impacter ton code...




Dans un module standard

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Test()
  Unload usfStudents
  With usfStudents
    .lboStudents.List = Range("t_Elèves[[prénom]:[nom]]").Value
    .cboResult.List = Range("t_Résultats[cote]").Value
    .Show
  End With
  Unload usfStudents
End Sub

Dans le userform

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub btnValidate_Click()
  Dim Counter As Long
 
  For Counter = 0 To lboStudents.ListCount - 1
    If lboStudents.Selected(Counter) Then Range("t_Elèves").ListObject.ListRows(Counter + 1).Range(3) = cboResult.Value
  Next
End Sub

PS: Il faut travailler avec les tableaux structurés, c'est mille fois plus simple

merci. je bosse dessus immédiatement.
bon toi je t'offre un bol de chocolat