Discussion :

[ecolefrancois]

* Bonjour, *

Plus que débutant mais tenace, mais apres des heures d'efforts je ne sais plus comment faire! j'ai avec peine réalisé un petit programme de gestion de fichier, mais je viens de réaliser que je dois remplacer la textbox 1 par une liste déroulante, je n,ai plus la force de tout recommencer qui pourrait m'aider!

C'est déjà en grâce a vos discutions que j'ai réalisé ce début mais
milles pardons si ma demande n'est pas recevable.

* Merci *

[ecolefrancois]

je vous prie de m'excuser pour le manque de formule de politesses, seule excuse la fatigue et l’énervement de ne pas trouver la solution après des heures d'essais!

j'en conclus que je n ai pas été bon sur la forme et sur le fond pour intéresser quelqu'un a mon problème.
mais je voudrais vous remercier tout de même car le peux que j'ai appris c'est en lisant les discutions sur se site.
sincèrement félicitation pour le travail que vous faites!
et pour mon problème je vais continuer a essayer de trouver la solution.
cordialement votre
François

[Docmarti]

Bonjour ecolefrancois

Tu aurais une réponse si tu joignais un classeur qui contient le Userform et les contrôles.

Cordialement

Docmarti

[Invité]

effectivement ton classeur est un xlsx donc pas de macro ni USF;
si ton fichier original est un xlsm zip le.

[ecolefrancois]

mais soyez indulgent c'est mon premier essais!
dans mon formulaire je voudrais intégrer une liste de cours non modifiable
cette liste est dans la feuille cours A&B j,ai mis la traduction en français pour mieux suivre mon chinois n'est pas toujours tres bon.
merci

[Invité]

tu supprimes textbox1 de ton formulaire; tu ajoutes un combobox en lieu et place et tu lui donne dans la propriété Name textbox1; tu ajoute ce code et le tour est joué replace le ? par le nom de la colonne "A,B,C ou ...":

Code Private Sub UserForm_Initialize() :

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

1
2
3
4
5
With Me.TextBox1
    For J = 2 To Ws.Range("?" & Rows.Count).End(xlUp).Row
      .AddItem Ws.Range("?" & J)
    Next J
  End With