Combobox affichant resultat dans Textbox

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

biloute91

XLDnaute Occasionnel
Bonjour,

Voici mon problème. J'ai un USF avec une combobox qui reprend une liste dans une feuille "RGRS" colonne A et je voudrais que la valeur située dans la colonne B correspondant au choix de la combo s'affiche dans une textbox .
J'ai cherche et trouvé pleins d'exemple mais je n'ai pas réussi à l'adapter à mon code.

Option Explicit
Private WS1 As Worksheet
Private WS2 As Worksheet
Const G As String = "MISE A JOUR"

Private Sub Label3_Click()

End Sub

Private Sub UserForm_Initialize()
Dim Lf_données As Long
Dim DerLg, i
Set WS1 = ThisWorkbook.Worksheets("RGRS")
Set WS2 = ThisWorkbook.Worksheets("rapport")
Lf_données = WS1.Range("A65536").End(xlUp).Row

DerLg = WS1.Range("A2200").End(xlToLeft).Row
With WS1

For i = 2 To DerLg
ComboBox1.AddItem .Cells(i, 1)
Next i
End With
ComboBox1.Value = ""
Me.Caption = G
End Sub


Merci pour votre aide
 
Re : Combobox affichant resultat dans Textbox

Bonjour
Private Sub ComboBox1_LostFocus()
lig = ComboBox1.ListIndex + 2
textbox1.Value = Cells(lig, 2).Value
End Sub
A voir lig = ComboBox1.ListIndex + 2, il sera peut etre necessaire de changer le 2...
A+ François
 
Re : Combobox affichant resultat dans Textbox

Merci pour la reponse,
mais etant tres debutant, a quel endroit dois-je inscrire ce code ?
Voici un fichier reprenant ce que je souhaite. En fait le resultat doit être affiché dans la textbox : ancienne version. La textbox Nouvelle version etant saisie manuellement.

Merci
 

Pièces jointes

Re : Combobox affichant resultat dans Textbox

Merci Fanfan,


c'est ce que je souhaitais. J'ai juste fait une modification par rapport à la reference de la feuille:

Private Sub ComboBox1_Change()
Dim lig As Byte
If ComboBox1.ListIndex < 0 Then Exit Sub
lig = ComboBox1.ListIndex + 2
TextBox1.Value = WS1.Cells(lig, 2).Value
End Sub


C'est génial
Encore merci
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
289
Réponses
5
Affichages
188
Réponses
3
Affichages
197
  • Question Question
Microsoft 365 VBA Transpose
Réponses
11
Affichages
836
Réponses
7
Affichages
218
Réponses
4
Affichages
199
Réponses
5
Affichages
241
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
508
Retour