textbox vers cellules

joss56 · 31 Décembre 2009

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:

HTML:

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 · 31 Décembre 2009

Re : textbox vers cellules

Bonjour Joss

essaye peut être ainsi :

Code:

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 · 31 Décembre 2009

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

textbox vers cellules

joss56

XLDnaute Accro

Pierrot93

XLDnaute Barbatruc

joss56

XLDnaute Accro

Discussions similaires