TextBox avec variable

Bonjour à toutes zéa tous,

Il y a une séquence VBA (Excel) qui me pose problème. Tout est correct (me semble-t-il) sauf la ligne ... "TextBox" & k = Range(Col et L).Value.

"La" bonne idée est la bienvenue ...

Private Sub CommandButton2_Click()
'Reprise des données correspondant à la ligne sélectionnée dans ListBox1

Dim L, k, i As Integer
Dim Col As String

For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then
        L = ListBox1.List(i, 3) '3 correspond à la 4e colonne de la ListBox >> on compte 0,1,2

    End If
Next

Sheets("GESTINTER").Range("A" & L).Select 'Sélection de la ligne d'enregistrement dnas la feuille Excel

'Remplissage des valeur dans le formulaire avec les valeur de la ligne Excel

TextBox2 = Range("B" & L).Value

For k = 1 To 8
    Select Case k
        Case 1
            Col = "A"
        Case 2
            Col = "B"
        Case 3
            Col = "C"
        Case 4
            Col = "D"
        Case 5
            Col = "E"
        Case 6
            Col = "F"
        Case 7
            Col = "G"
        Case 8
            Col = H
    End Select

    "TextBox" & k = Range(Col & L).Value

Next k

End Sub

Bonjour

et en remplaçant cette ligne par ça ?

'Remplissage des valeur dans le formulaire avec les valeur de la ligne Excel

TextBox2.Value = Range("B" & L).Value

... Ça, c'est un reliquat de ce que je pensais faire initialement. Puis il m'a semblé que ce serait plus joli en utilisant "Select Case" ...

Donc, j'aiemrais bien aller au bout de mon rève 8)

Enfin heu c'est surtout que pour affecter une valeur a une TextBox je pense qu'il faut utiliser sa propriété "Value" ^^'

D'ailleurs dans ton Select Case, tu feras gaffe mais ta dernière valeur n'est pas entre " "

Bonjour,

Ceci devrait être mieux

Me.Controls("TextBox" & k).Value = Range(Col & L).Value

Voilà une journée qui se termine bien !

En plus le soleil est là ... Y'a plus qu'à servir l'apéro

Merci pour le coup de main.

Bonjour

peux être comme ca

A+

Maurice

For K = 1 To 8
Controls("TextBox" & K).Value = Cells(L, K).Value
Next