Mettre valeur de list box dans une cellule

[Xion]

Bonjour à tout le forum,

J'ai un petit soucis, mais je ne vois pas comment faire. J'ai une list box dans un USF, lorsque le USF s'affiche, la list box se rempli d'une valeur (Le nom du User), lorsque je valide avec un commandbutton, je souhaterai que la valeur de la list box s'écrive dans une cellule de la feuille 'Répertoire'.

J'essaye de faire Sheets.('Répertoire').Cell(1, 1).Value = Listbox1, mais ca ne marche pas, le débogueur lit 'Vide'. Je ne vois pas trop comment faire...

Si quelqu'un a une idée merci de m'aider.

Bonne journée à tous et encore merci!

 

[Jacques87]

Bonjour

Sheets('Répertoire').Cell(1, 1).Value = UserForm1.Listbox1.Value

devrait de mettre le contenu du listbox dans la cellule A1 de ta feuille 'Répertoire'

Bon courage

 

[pierrejean]

bonjour Xion Jacques

Si Jacques me le permet je rajouterais qu'un des elements de la listbox doit etre selectionné

Bon WE

 

[Jacques87]

Bonjour PierreJean

Mais évidemment que je te permets de préciser ce qui pour moi semblait être tellement évident que je ne l'ai pas précisé.
Si aucun élément de la liste n'a été choisi, bien sûr la propriété Value de ce ListBox est égale à 'vide'
Tu as très bien fait PierreJean, car souvent ce sont les étourderies les plus évidentes qui nous échappent.

Cordialement

 

[PascalXLD]

Bonjour

je me permzts de m'imiscer dans ce fil

Je ne comprends pas trop le besoin d'une listbox suite à cette phrase : ' la list box se rempli d'une valeur (Le nom du User)'. Dans ce cas une textbox ou même un label suffirait voir rien du tout et reprise de l'user lors du click sur button

Mais bon je n'ai peut-être pas tout suivi

Bon WE

 

[Jacques87]

Bonjour Pascal

Les voies d'Excel sont parfois impénétrables.

Ne cherche pas à comprendre et fais ta BA du jour en répondant à la question posée, Dieu (et peut être le demandeur également) te remerciera et t'en sera reconnaissant.

Pars en paix mon ami et surtout demain, lors de l'office (microsoft), n'oublie pas d'avoir une pensée pour notre Père David (pas le roi) qui se décarcasse pour nous éviter tout rafraîchissement intempestif.(lol)

Toutes mes amitiés

 

[Xion]

Bonjour Pascal, Pierre jean et jaques,

Merci a tous de vos solutions, j'utilise une list box pour que le nom du User de la macro ne puisse pas être effacé pour empecher de changer les users, avec une text box, le contenu est effacable, donc voila.

Je souhaiterai également savoir comment sélectionner le contenu de la list box par macro pour empecher que le programme lise 'Vide'.

Un grand MERCI a tous

 

[PascalXLD]

Re

Dans ce cas là mets le dans un lable le nom de l'user et ensuite tu le recupères par

Sheets('Répertoire').Cell(1, 1).Value = Label1.caption

Bon courage

 

[Xion]

RE,

Merci pascal, mais est il possible de changer le texte ou la valeur du Label par macro, si oui comment faire?

Je t'explique, des l'ouverture du classeur, un USF s'ouvre, avec dans une combe une liste de noms, et une texte box ou on doit saisr un code pour accéder a la suite de la macro. Une fois le log terminé, le nom du User est inscrit dans une cellule de la feuille répertoire et ensuite placé dans une list box pour ne pas etre modifié.

Je sais pas si c très clair, mais si tu ne comprend pas certains points n'hésite pas j'essaierai de t'expliquer au mieux ce que je souhaite faire.

En tout cas merci!

 

[PascalXLD]

RE

Oui bien sur

dans ton code d'activcation suitre au mot de passe tu mets

label1.caption = range('A1')

ou

label1.caption=listbox1.value

suivant l'endroit où tu récupères le nom soit de ta cellule soit de la listbox que l'user à du selectionner avant de mettre le mot de passe

Par contre tu ne peux modifier le label directement

Notes que tu peux mettre aussi le nom dans un textbox si tu preferes le design car si tu mets la propriété locked à true tu ne peux pas modifier le textbox

Bon WE

 

[pierrejean]

re

si ton listbox n'a qu'une ligne tu peux la selectionner par

UserForm1.ListBox1.ListIndex = 0

s'il y en a plusieurs ce sera la premiere

pour selectionner la derniere

UserForm1.ListBox1.ListIndex =ListBox1.ListCount-1

 

[Xion]

Merci Pierre jean, Jacques et Pascal,

Ca marche! la macro fonctionne bien avec la text box en mode locked, c exactement ce que je voulais.

Un grand merci a tous, je vais pouvoir bien avancer maintenant.