Mettre le résultat de ma combox dans une cellule sélection

bonjour à tous,

j'ai créé une userform avec listes déroulantes. Je double clique sur une cellule et j'ouvre ma combobox. J'ai une première liste déroulante avec des classes et une fois la classe choisie, j'ai une liste de noms d'élèves. Je clique sur un élève et le résultat apparait dans une textbox mais je voudrais qu'après avoir cliquer sur le bouton "fermer" ce résultat apparaisse dans la cellule doublecliquée.

J'espère que j'ai été claire, j'ai créé ma userform grâce à un tuto sur youtube.

Merci pour votre aide.

Bonjour

Un exemple de ton fichier avec l'userform serait le bienvenu

pour plus de visibilité

Crdlt

Bonjour, quand vous indiquez "Le bouton Fermer" c'est un bouton que vous avez créé vous même sur le userform ?

Si oui alors lors de l'évenement clic de ce bouton :

ActiveCell.Offset(0, 0).value=Textboxnom.value

Sinon vous pouvez aussi utilisez l'évenement quand votre liste "nom d'élève" change.

Je vais essayer ça merci

Private Sub ComboBox_Classes_Change()

'Zone de liste vidée (sinon les élèves sont ajoutées à la suite)

ListBox_Eleves.Clear

Dim no_colonne As Integer, nb_lignes As Integer

'Numéro de la sélection (ListIndex commence à 0) :

no_colonne = ComboBox_Classes.ListIndex + 1

'Nombre de lignes de la colonne du pays choisi :

nb_lignes = Cells(1, no_colonne).End(xlDown).Row

For i = 2 To nb_lignes ' => pour lister les élèves

ListBox_Eleves.AddItem Cells(i, no_colonne)

Next

End Sub

Private Sub CommandButton1_Click()

Unload ListEleves

ActiveCell.Offset(0, 0).Value = TextBox1.Value

End Sub

Private Sub ListBox_Eleves_Click()

TextBox1.Value = ListBox_Eleves.Value

End Sub

Private Sub UserForm_Initialize()

For i = 1 To 8 ' => pour lister les 8 classes

ComboBox_Classes.AddItem Cells(1, i) 'Ajoute les valeurs des cellules A1 à D8 avec la boucle

Next

End Sub

J'ai trouvé mon erreur !!

sur worksheet before doubleclick, j'avais cette condition ci-dessous :

If Not Intersect(ActiveCell, Feuil1.Range("A:A")) Is Nothing Then ActiveCell.Value = ListEleves.TextBox1.Value

Après suppression, tout est rentré dans l'ordre.

Merci pour votre aide