copie userform sur excel en fonction d'une textbox

[rainbow69006]

Bonjour à tous,

Je souhaiterais copier des élements contenus dans un userform en fonction d'une textbox qui indique la ligne ou coller.

Mon exemple sera suremment plus parlant.

Merci de votre aide

 

[Pierrot93]

Re : copie userform sur excel en fonction d'une textbox

Bonjour,

Regarde peut être le code ci-dessous, à utiliser dans le module de ton USF, associé à ton bouton "enregistrer", les données sont valorisées sur la feuille active :

Private Sub CommandButton1_Click()
Range("B4").Value = TextBox1.Value
Range("C4").Value = ComboBox1.Value
End Sub

bon après midi
@+

 

[Cousinhub]

Re : copie userform sur excel en fonction d'une textbox

Bonjour,

Re-, Pierrot

A la place de ton textbox (numéro du cas), met 1 combobox (qui sera appelé combobox2)

Et colle ce code dans le code de l'userform :

Private Sub CommandButton1_Click()
Dim Lig As Long
If Me.ComboBox2 = "" Then Exit Sub
With Sheets("Sheet1")
    Lig = .Columns(1).Find(Me.ComboBox2).Row
    .Cells(Lig, 2).Value = Me.TextBox1.Value
    .Cells(Lig, 3).Value = Me.ComboBox1
    .Cells(Lig, 4).Value = Me.CheckBox1
End With
End Sub

Private Sub UserForm_Initialize()
Dim Cel As Range
With Sheets("Sheet1")
    For Each Cel In .Range("A2:A" & .[A65000].End(xlUp).Row)
        Me.ComboBox2.AddItem Cel.Value
    Next Cel
End With
End Sub

Bon courage

 

[rainbow69006]

Re : copie userform sur excel en fonction d'une textbox

Super Merci!!!