Amener valeur dans TextBox

[Hulk]

Hello tout le monde, 😀

J'ai un souci de TextBox, j'ai beau essayer, je ne parviens pas à faire ce que je souhaite, ou plutôt oui j'y suis parvenu, mais code trop long 😱

Je joins un fichier, avec le résultat voulu.

Merci d'avance pour les pistes les pros 😀

Bon lundi de Pâques, Hulk.

 

[kjin]

Re : Amener valeur dans TextBox

Bonjour hulk,
En utilisant la propriété "Tag" de tes Textbox (ici 11,12...21,22...101,102,103...)

Private Sub ComboBox1_Change()
Set Plage = Range("A1:A" & Range("A65000").End(xlUp).Row)
x = Application.Match(ComboBox1, Plage, 0)
For i = 1 To 10
    For j = 1 To 4
        For Each ctl In Me.Controls
            If ctl.Tag = CStr(i & j) Then ctl.Value = Cells(x + i - 1, j + 2).Value
        Next
    Next
Next
End Sub

Tu peux le réadapter au second formulaire
A+
kjin

 

[bqtr]

Re : Amener valeur dans TextBox

Bonjour Hulk, Kjin

Une autre façon :

Private Sub ComboBox1_Click()
Dim k As Long, x As Byte, m As Long, Tablo
m = 1
With Sheets("Feuil1")
   Tablo = .Range("A4:F" & .Range("A65536").End(xlUp).Row)
   For k = 1 To UBound(Tablo, 1)
       If Tablo(k, 1) = ComboBox1 Then
         For x = 1 To 4
          Controls("Gr" & x & "_" & m) = Tablo(k, x + 2)
         Next
         m = m + 1
       End If
   Next
End With
End Sub

Par contre il faut déplacer les lettres (A,B,C) en A36:A38 qui alimentent la combobox et les mettre en H1:H3 par exemple et changer la propriété RowSource de la combobox.

Bonne journée

 

[Hulk]

Re : Amener valeur dans TextBox

Hello,

Merci Kjin impec !

J'ai encore beaucoup à apprendre... 😀

Peux-tu juste me dire c'est quoi le Tag, j'ai vu 2/3 explications, mais ce n'est pas très clair...
Et pourquoi ça commence à 11 ?

Bonne journée.

Cdt, Hulk.