Selection dans une listbox

Version imprimable

10/06/2015, 08h55
MatthieuT42

1 pièce(s) jointe(s)

Selection dans une listbox

Bonjour à tous.

intitulé de mon classeur :
Je possède une feuille excel composé de 9 colonnes (D à L) :Elève CA , Numéro de tel, groupe . Eleve CB, numéro, groupe. Eeleve CC, numéro, Groupe.
je possède aussi une autre colonne (O) qui comporte les élèves absents.

intitulé VBa :
une première listbox apparait avec les classes "A,B et C"
On sélectionne une classe et s'affiche :
Une multipage de 2 pages composé d'une listbox par page : "élèves présents" et "élèves absents"

mon problème : quand on clic sur un élève présent, il s'affiche une textbox qui affiche le groupe de l'élève.
(on selectionne "classe A" : si me.listbox1 = "Eleve CA & i" et colonne D = "Eleve CA & i" alors Textbox1 = "groupe" (colonne F & i)

quand on clic sur un élève absent, il s'affiche la même textbox, mais cette fois elle affiche le groupe de l'élève.
(on selectionne "classe A" : si me.listbox2 = "Eleve CA & i" et colonne D = "Eleve CA & i" alors Textbox1 = "numéro" (colonne E & i)

1 pièce(s) jointe(s)

Bonjour,

Dans la mesure où j'ai bien compris, votre code revisité (A NOTER : Label2 et TextBox2 ont été supprimés )

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
Private Sub CommandButton1_Click()
 
ListBox3.Visible = True
 
ListBox3.RowSource = "feuil1!A1:A3"
 
End Sub
 
'#####################################################################
'####### modif pmo (A NOTER : Label2 et TextBox2 ont été supprimés ###
Private Sub MultiPage1_Layout(ByVal Index As Long)
Label1.Visible = False
TextBox1.Visible = False
End Sub
 
Private Sub ListBox1_Click()
Dim R As Range
Dim C As Range
'---
Set R = Sheets("Feuil1").[d4].CurrentRegion
For Each C In R
  If C = ListBox1 Then
    TextBox1 = C.Offset(0, 2)
    Exit For
  End If
Next C
Label1.Visible = True
Label1.Caption = "GROUPE"
TextBox1.Visible = True
End Sub
 
Private Sub ListBox2_Click()
Dim R As Range
Dim C As Range
'---
Set R = Sheets("Feuil1").[d4].CurrentRegion
For Each C In R
  If C = ListBox2 Then
    TextBox1 = C.Offset(0, 1)
    Exit For
  End If
Next C
Label1.Visible = True
Label1.Caption = "NUMERO"
TextBox1.Visible = True
End Sub
'#####################################################################
 
Private Sub ListBox3_Click()
 
MultiPage1.Visible = True
 
 Dim rngA As Range, rngB As Range, rngC As Range
 
  MultiPage1.Visible = True
  Me.ListBox1.Clear
  Me.ListBox2.Clear
 
  Select Case Me.ListBox3.ListIndex
    Case 0
      Set rngA = Range("D5:D14")
    Case 1
      Set rngA = Range("G5:G14")
    Case 2
      Set rngA = Range("J5:J14")
  End Select
 
  For Each rngB In rngA.Cells
    Set rngC = Range("O2:O6").Find(rngB, , , xlWhole)
      If rngC Is Nothing Then
        Me.ListBox1.AddItem rngB
      Else
        Me.ListBox2.AddItem rngB
      End If
  Next rngB
 
End Sub

10/06/2015, 10h37
MatthieuT42

Bonjour,

un grand merci ça fonctionne parfaitement! bravo

Bonne journée