textbox multiligne suite à une sélection

Re : textbox multiligne suite à une sélection

Bonsoir,
Pourquoi une textbox plutôt qu'une listbox ?

Edit :sinon, si tu y tiens
A+
kjin

Re : textbox multiligne suite à une sélection

Bonjour !

Merci pour cetté réponse à une heure aussi tardive ! je me disais une textbox pour qu'on ne puisse pas la modifier mais si une listbox est mieux alors va pour une listbox. je suppose qu'il faut que je change juste text par list ?
Autre truc bizarre quand j'ai fait ma source de données pour ma combobox (via un dictionnaire), cette combobox sélectionne bien un produit mais ne les affiche pas lorsque l'on clique sur le menu déroulant. est-ce normal ?

en tout cas merci !

Re : textbox multiligne suite à une sélection

Bonjour,

supercrapaud à dit:

... je me disais une textbox pour qu'on ne puisse pas la modifier mais si une listbox est mieux...

Cliquez pour agrandir...

On ne peux pas mofifier directement une listbox
Pour le reste, sans fichier pas de réponse
A+
kjin

Re : textbox multiligne suite à une sélection

Bonjour

Donc voivi un fichier type. j'ai 2 pb pour une seule commande :
- dans ma combobox, les choix n'appraissent pas clairement et ily a plusieurs fois les même
- dans la textbox qui peut être une listbox, les resultats ne changent pas si je change la valeur de ma combobox

donc voilà le fichier en espérant comprendre pourquoi ça bugge. merci en tout cas.

Re : textbox multiligne suite à une sélection

Salut,

Tu n'as qu'une feuille et tes macros sont construites pour x feuilles !
ci-joint, un exemple avec 1 feuille (1 TextBox et 1 ListBox).

Re : textbox multiligne suite à une sélection

Bonsoir !

merci Kjin pour ces renseignements, je ne maîtrise encore pas tout, notamment l'intérêt de la déclaration des variables ou la déclaration fait=true mais cela m'a bcp aidé. Donc pour ceux que cela pourrait aussi aider voici le code remis par Kjin, je l'ai modifié pour qu'il s'adapte à plusieurs feuilles. Je n'ai pas saisi par contre pourquoi dans mon premier exemple les données ne s'affichaient pas dans ma combobox2 et pourquoi je n'arrivais pas à obtenir plusieurs réponses dans ma textbox d'un coup. Si jamais quelqu'un peut me l'expliquer (je sais j'abuse !)...

Donc voilà le code :

Dim Dernièreligne As Long, nblignes As Long, Fait As Boolean 'Variables reprise dans 2 macros donc ICI !!!
Private Sub Userform_initialize()
For i = 1 To Sheets.Count
Dernièreligne = Sheets(i).Range("A65536").End(xlUp).Row
For nblignes = 2 To Dernièreligne
ComboBox2 = Sheets(i).Range("A" & nblignes)
If ComboBox2.ListIndex = -1 Then ComboBox2.AddItem Sheets(i).Range("A" & nblignes)
Next
Next i
ComboBox2 = ""
Fait = True
End Sub

Private Sub ComboBox2_Change()
If Fait = True Then 'la suite est ignorée tant que Fait est à False comme à l'ouverture
TextBox1 = ""
ListBox1.Clear
For i = 1 To Sheets.Count
Dernièreligne = Sheets(i).Range("A65536").End(xlUp).Row
For nblignes = 2 To Dernièreligne
If Sheets(i).Cells(nblignes, 1) = ComboBox2 Then
TextBox1 = TextBox1 & Sheets(i).Cells(nblignes, 3) & Chr(10)
ListBox1.AddItem Sheets(i).Cells(nblignes, 3)
End If
Next
Next i
End If
End Sub

Merci à tous et bonne continuation !