Remplir des cellules avec une liste box

[soffy]

Bonjour,

Je débute sur VBA et je m'amuse bien même si je me casse un peu la tête.
J'ai entrepris de créer un document planning. Dans ma première feuille j'ai les sites ou les gens doivent être présent et la liste des personnes. J'ai céé un USF liste dans lequel on retrouve les initiales. Jusque là ouf j'ai réussi ...
Maintenant je voudrais mettre du code derrière ma USF pour qu'une fois que j'ai sélectionné une personne dans la liste je puisse par un clic sélectionné et déposé la sélection dans la cellule de mon tableau.
Et alors là je sèche

Je joins le fichier.

Merci de votre aide.

Sophie

 

[Pierrot93]

Re : Remplir des cellules avec une liste box

Bonsoir Sophie

ton fichier n'est pas passé, il doit etre infrieur à 50k en .xls ou .zip

bonne soirée
@+

 

[soffy]

Re : Remplir des cellules avec une liste box

Le fichier non joint au précédent message, je ne l'avais pas zippé
Je précise que mon document est un mini chantier il y a des macros qui ne servent plus. Il y a des tests de présence non finalisés sur la page 3. Au fur et à mesure que je réfléchis, je fais des essais

Sophie

 

[soffy]

Re : Remplir des cellules avec une liste box

Troisième essai pour le fichier, j'avais pas uploader

 

[soffy]

Re : Remplir des cellules avec une liste box

Personne n'a rencontré ce problème ?

 

[Pierrot93]

Re : Remplir des cellules avec une liste box

Bonjour Sophie

je sais pas si j'ais biencompris, regarde le code ci dessous, à mettre dans le module de ton USF, renvoie la valeur de ta combobox dans la cellule active de feuille affichée lorsque du cliques sur ton bouton OK:

Private Sub CommandButton1_Click()
ActiveCell.Value = ComboBox1.Value
End Sub

bon après midi
@+

 

[soffy]

Re : Remplir des cellules avec une liste box

Merci Pierrot 93 pour ta réponse.

Le code que tu m'as donné me permet en effet de sélectionner dans liste et le ok renvoie la valeur dans la cellulde active. C'est drôlement simple en plus comme code.
Par contre il faut que je trouve comment désactiver la USF pour pouvoir revenir sélectionner une cellule de ma page et recommencer l'opération

Si tu as une idée je suis preneuse mais je ne voudrais pas abuser.

A+
Sophie

 

[soffy]

Re : Remplir des cellules avec une liste box

Dans le mode création de mon formulaire, j'avais une propriété "ShowModal" qui n'était pas positionnée sur "False". Après l'avoir mise sur False, le focus sur un autre élèment sans fermer le formulaire est possible.