textbox vers cellules

[joss56]

Bonjour à tous,

J'ai crée un petit frm de test avec 3 textbox et un bouton. Je souhaite récupérer la valeur des 3 textbox dans les cellules Excel. Je code le bouton ainsi:

Private Sub CommandButton1_Click()

    For j = 1 To 3
        Cells(2, j) = TextBox & j
    Next j
 
End Sub

Cette routine me renvoie 1, 2 et 3 dans les cellules concernées et non le texte saisi dans les textbox. J'oublie quelque chose, je me vautre quelque part...c'est certain! Merci de votre aide et bonne journée.

Jocelyn

 

[Pierrot93]

Re : textbox vers cellules

Bonjour Joss

essaye peut être ainsi :

Option Explicit
Private Sub CommandButton1_Click()
Dim j As Byte
For j = 1 To 3
    Cells(2, j) = Me.Controls("TextBox" & j).Value
Next j
End Sub

bonne journée
@+

 

[joss56]

Re : textbox vers cellules

Salut Pierrot,

et bien voilà, suffisait de poser la question... Un grand merci pour ta réponse et ta vélocité.
Bonne journée.

Jocelyn