textbox simple

[lio]

Bonjour le forum,

J'ai un niveau frisant le sol en VBA et je souhaite alimenter une text box. J'ai essayé pas mal de chose mais sans résultats.
D'autre part, je me suis battu pour afficher la valeur souhaitée dans mon label appelé lio. Quelqu'un pourrait'il me dire la façon la plus simple de résoudre cet exercice ?

Merci pour votre aide.

 

[lio]

Oups, si joint le fichier.
Merci [file name=Classeur1_20051018193025.zip size=11122]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20051018193025.zip[/file]

 

[excalibur]

bonsoir lio , le forum si j ai ien compris tu veus que la textbox recupere le nom du combobox selectionne !!! salutations [file name=Classeur1_20051018220427.zip size=8016]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20051018220427.zip[/file]

 

[lio]

Merci, excalibur.

En fait, je voulais que dans ma textbox, il s'affiche la note tout comme dans mon label ( c'est pour apprendre !). J'avais tenté ta formule mais en mettant :

Sub textBox1_Change
With Worksheets('Feuil1')
m = ComboBox1.ListIndex + 2
TextBox1 = .Cells(m, 2)
End With
End Sub

Es ce le code le plus simple ou le mieux adapté pour ce genre d'application ?

Merci en tout cas, c'est cool et bonne fin de soirée.

 

[excalibur]

rebonsoir lio oui comme tu l as ecrit c est bien tu peus simplifier encore Private Sub ComboBox1_Change()
With Worksheets('Feuil1')
m = ComboBox1.ListIndex + 2
lio = .Cells(m, 2)
TextBox1 = .Cells(m, 2)
End With
End Sub..............Private Sub UserForm_Initialize()
With Sheets('Feuil1').Range('A2')
Me.ComboBox1.RowSource = 'Feuil1!A2:A' & Sheets('Feuil1').Cells(1, 1).End(xlDown).Row' de a2 a la der cell non vide
End With
End Sub' salutations

 

[excalibur]

bonjour lio , le forum correction repondu rapidement hier soir dans le cas present c est l action de cliquer sur la combo qui envoi info a la textbox & non l inverse par contre tu peus exploiter le change de la combo pour lancer une macro changer la couleur ect ..salutations

 

[lio]

Merci beaucoup pour les infos et bonne soirée.