Discussion :

[camylle]

Bonjour,

j'ai actuellement un gros problème sur VBA,
je dois créer un formulaire d'inscription et trouver le moyen lorsque je clique dans mon comobox1, qui contient le nom des sujets, de faire apparaitre en dessous la description des sujets ( qui doit bien sur changer lorsque le sujet change).

Pour l'instant ma private sub ressemble à ça :

Code :

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

1
2
3
4
5
6
7
8
 Private Sub ComboBox1_Change()
 
    sujet.Caption = ""
    With Sheets("Groupes")
    sujet.Caption = Cells(ComboBox1.ListIndex + 2, 2)
 
    End With
End Sub

mais ça ne marche pas...

Je vous remercie par avance de votre aide !

[pgz]

Bonsoir

Tu peux déjà supprimer

Code :

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

sujet.Caption = ""

qui ne sert à rien.
Ensuite

Code :

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

sujet.Caption = Cells(ComboBox1.ListIndex + 2, 2)

devrait plutôt s'écrire, si le code est dans le module du formulaire

Code :

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

Me.sujet.Caption = .Cells(ComboBox1.ListIndex + 2, 2)

Avec un "." devant Cells.

Cordialement,

PGZ

[camylle]

ça ne marche pas
ça affiche " Cells(ComboBox1.ListIndex + 2, 2" dorénavant à la place de mon label.
en fait je voudrais que ce qui soit affiché soit la cellule à droite de mon comobox et donc que lorsque je sélectionne un nouveau comobox ça pioche directement la cellule concernée à sa droite

[casefayere]

Bonjour Pierre, camylle, re le forum

Si "sujet" est un label, essayes en précisant :

Code :

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

Me.sujet.Caption = .Cells(ComboBox1.ListIndex + 2, 2).value