Afficher dans textbox des données en fonction d'une listbox

Bonjour à tous.

intitulé de mon classeur :
Je possède 3 feuilles excel composé d'une classe d'élèves par page (Nom des élèves : colonne A,numéro de tel : colonne B, groupe : colonne C).
je possède aussi une autre colonne (E) feuille 1 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(listbox1 et listbox 2) : "é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.
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.

(Par rapport à l'excel je voudrai que le programme en fonction de la colonne A introduise la valeur qui se trouve à sa droite, et que ça prenne en compte toute les feuilles, dans mon vrai programme je possède 1600 références répartit dans 5 feuilles)


Bonne journée

Avec un bout de code cela sera plus comprehensible ;)

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

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("Feuil1!A5:A14") Case 1 Set rngA = Range("Feuil2!A5:A14") Case 2 Set rngA = Range("Feuil3!A5:A14") End Select   For Each rngB In rngA.Cells Set rngC = Range("E2:E6").Find(rngB, , , xlWhole) If rngC Is Nothing Then Me.ListBox1.AddItem rngB Else Me.ListBox2.AddItem rngB End If Next rngB

---

Voici le code qui me permet grâce à la liste des absents de les faire disparaitre de la listbox 1 (élève présent) et de les faire apparaitre en listbox2 (élèves absents)

Pour mon cas, oublions les élèves absents et ne prennons que les élèves présents (éléments de la listbox1).
Enfaite il me faudrait un code qui prend en compte toutes les données des feuilles 1,2 et 3 mais seulement les colonnes A + 2 -> A,C,E,G,I,K.....
Si un élément de la listbox1 = éléments des feuilles 1,2,3 colonne A,C,E,G,I,K alors on affiche une textbox avec l'élément à côté dans excel

exemple si Me.listbox1 = "G8" alors textbox1.text = "H8"

J'espère être plus compréhensible ... bonne journée

Bonjour

Il faudrait peut-être aller voir la méthode

Code:

---

Application.Intersect

---

Cordialement