K
ktran
Guest
bonsoir a tous,
l idee est de demarrer l exportation de data a partir de la cellule B6
la macro exporte chaque data en fonction de leur intitule
la macro repere la 1ere cellule vide pour inserer les nouvelle donnees
j arrive a exporter certaines donnees, mais pas dans la bonne cellule et avec un format erronee
avez vous une piste ?
voici mon code :
Sub Export_datas_options()
With Sheets("Data")
If Sheets("Data").[B6] = "" Then
Sheets("Data").[B6].Select
Else
ActiveSheet.Range("b5").End(xlDown).Offset(1, 0).Select
End If
End With
With ActiveCell
.Value = txtRef
.Offset(0, 0).Value = txtAC
.Offset(0, 1).Value = txtCustomer
.Offset(0, 2).Value = txtPremium
.Offset(0, 3).Value = TxtTrade_Date
.Offset(0, 4).Value = TxtMaturity_Date
.Offset(0, 5).Value = txtQty
.Offset(0, 6).Value = TxtCallput
.Offset(0, 8).Value = txtS
.Offset(0, 9).Value = txtK
.Offset(0, 10).Value = txtVolat
.Offset(0, 11).Value = txtRfr
.Offset(0, 12).Value = txtTime
End With
End Sub
l idee est de demarrer l exportation de data a partir de la cellule B6
la macro exporte chaque data en fonction de leur intitule
la macro repere la 1ere cellule vide pour inserer les nouvelle donnees
j arrive a exporter certaines donnees, mais pas dans la bonne cellule et avec un format erronee
avez vous une piste ?
voici mon code :
Sub Export_datas_options()
With Sheets("Data")
If Sheets("Data").[B6] = "" Then
Sheets("Data").[B6].Select
Else
ActiveSheet.Range("b5").End(xlDown).Offset(1, 0).Select
End If
End With
With ActiveCell
.Value = txtRef
.Offset(0, 0).Value = txtAC
.Offset(0, 1).Value = txtCustomer
.Offset(0, 2).Value = txtPremium
.Offset(0, 3).Value = TxtTrade_Date
.Offset(0, 4).Value = TxtMaturity_Date
.Offset(0, 5).Value = txtQty
.Offset(0, 6).Value = TxtCallput
.Offset(0, 8).Value = txtS
.Offset(0, 9).Value = txtK
.Offset(0, 10).Value = txtVolat
.Offset(0, 11).Value = txtRfr
.Offset(0, 12).Value = txtTime
End With
End Sub