Comment attribuer le contenue d'une textbox a une cellule Excel ?

Salut,

 
J’utilise la fonction suivante :

Cells(1, 1) = TextBox1

 
Mais ce que je voudrais faire c’est changé de ligne en fonction d’une date contenue dans une combobox :

Private Sub Form_load()

Combo1.AddItem ("01/01/05")

Combo1.AddItem ("02/01/05")

Combo1.AddItem ("03/01/05")

…

et choisir la ligne qui correspond dans mon feuillet Excel.

 

 

Merci pour votre aide,

Nico

Si vous travaillez directement dans excel, vous pouvez utiliser le code suivant:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Dim vCellule As Object
    For Each vCellule In Selection
        If vCellule.Select Then
    vCellule.Value = ComboBox1.Text
    End If
    Next
End Sub

jpleroisse

Je travail dans une form sous vb6 pour faire un exécutable qui utilisera excel comme base de données.

Je comprends votre façon de procéder mais je ne vois pas comment l'attribuer à un bouton (l'affecter directement au bouton, call,...)

Merci
Nico