extraire une valeur d'une combobox

[Hugues]

Bonsoir Le Forum,

Depuis un bon moment je cherche la solution au probléme de comment extraire le résultat d'une combobox.
J'ai du faire une erreur d'écriture.
Pouvez-vous m'aider ?

Merci à tous
Ci joint un extrait :

Sub suppression_fiche_annuaire()

Dim code As Variant

'Vide les informations déjà chargées lors du précédent affichage
Unload suppression_liste
'Ajoute les informations au menu déroulant
With suppression_liste
.ComboBox1.RowSource = 'fichier!matricule'
ComboBox1.Value =code
'Affiche_le_formulaire_de_la_liste_des_structures
suppression_liste.Show

End With

 

[Robert]

Hugs ! Hugues, bonsoir le forum,

Si j'analyse ton code, tu vides et fermes l'Userform (donc plus rien en mémoire)
Tu ne définis pas la variable Code (donc elle est nulle) puis tu attribues la valeur de la variable code à la ComboBox1 avec ComboBox1.Value =code

Je pense que c'est le contraire que tu veux, à savoir :
code = ComboBox1.Value

 

[Hugues]

Bonsoir Robert, Bonsoir le Forum

J'ai revu mon travail.
Dans un useform, j'ai :

- un menu déroulant renseigné à partir d'une matrice contenu dans une feuille du classeur appelé 'liste' (colonne a : code ; colonne b : dénomination)

- un textbox
- 2 boutons (oui / non)

Je souhaiterais renseigner
-le textbox à partir du code selectionné dans le menu déroulant (par le biais d'une fonction recherche)
- si le bouton oui est activé, alors ouverture d'un autre useform
- si le bouton non est activé, alors fermeture du use form
Je débute dans la programmation . Je n'arrive pas à renseigner le textbox et je ne sais pas comment donner les instruction pour les 2 boutons.

Pouvez-vous m'aider ?

Merci par avance,

Sub suppression_fiche_annuaire()
With suppression_liste
.ComboBox1.RowSource = 'fichier!matricule' 'Ajoute les informations au menu déroulant

TextBox1 = ComboBox1.Value

.Show 'Affichage du formulaire

End With
End Sub

 

[Robert]

Bonsoir Hugues, bonsoir le forum,

S'il-te-plaît Hugues, met ton fichier en pièce jointe (si tu ne sais pas comment faire, regarde le second fil de ce forum c'est un tutoriel). Cela permettrait de t'aider bien plus efficacement.

 

[Hugues]

Bonjour Robert, Bonjour Le Forum,

Mon fichier compressé fait plus de 50 Ko (246Ko). Je ne sais vraiment plus comment faire.
As-tu une idée ?

Merci par avance,

HUGUES

 

[ZZR09]

Salut Hugues, le forum

Pour pouvoir envoyer ton problème en fichier joint, fait une econd fichier ne comportant que le partie problématique de ton travail :
quelques feuilles, les macros et l'USF récalcitrante.

tu obtiendra certainement la réponse à ta question et tu pourras l'intéger à ton fichier complet.

A+