Bonjour à tous,
Je vous expose mon problème: j'ai créé une application vba qui me permet d'enregistrer des portefeuilles boursiers virtuels: je rentre l'ensemble des données (valeurs, prix d'achat...) dans un userform, et puis j'exporte ces données dans une feuille excel qui prend le nom du portefeuille virtuel, mais je souhaiterai également qu'au moment ou j'exporte ce portefeuille, son nom se rajoute à une zone de liste créé précédemment dans un autre userform, mais là je sèche!!
Pourriez vous m'indiquer la voie à suivre?
Merci d'avance
Je vous joins mon code vba:
Private Sub CommandButton1_Click()
Sheets.Add
ActiveCell.FormulaR1C1 = "Nom du Portefeuille"
Range("B3").Select
ActiveCell.FormulaR1C1 = "Valeurs"
Range("C3").Select
ActiveCell.FormulaR1C1 = "Quantité"
Range("D3").Select
ActiveCell.FormulaR1C1 = "Prix de revient"
Range("E3").Select
ActiveCell.FormulaR1C1 = "Capital investi"
Range("F3").Select
ActiveCell.FormulaR1C1 = "Cours actualisé"
Range("G3").Select
ActiveCell.FormulaR1C1 = "Capital"
Range("H3").Select
ActiveCell.FormulaR1C1 = "Performance"
Range("A8").Select
ActiveCell.FormulaR1C1 = "Performance Totale"
Range("C4:H7").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("A8").Select
Selection.ClearContents
Range("A9").Select
ActiveCell.FormulaR1C1 = "Performance totale"
Range("C4:H8").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("B4:B8").Select
Selection.Font.Bold = True
With Selection.Font
.Name = "Arial"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("A1:H9").Select
Selection.AutoFormat Format:=xlRangeAutoFormatClassic2, Number:=True, Font _
:=True, Alignment:=True, Border:=True, Pattern:=True, Width:=True
ActiveSheet.Range("B4") = zvaleur1.Value
ActiveSheet.Range("B5") = zvaleur2.Value
ActiveSheet.Range("B6") = zvaleur3.Value
ActiveSheet.Range("B7") = zvaleur4.Value
ActiveSheet.Range("B8") = zvaleur5.Value
ActiveSheet.Range("C4") = zquantite1.Value
ActiveSheet.Range("C5") = zquantite2.Value
ActiveSheet.Range("C6") = zquantite3.Value
ActiveSheet.Range("C7") = zquantite4.Value
ActiveSheet.Range("C8") = zquantite5.Value
ActiveSheet.Range("D4") = pr1.Value
ActiveSheet.Range("D5") = pr2.Value
ActiveSheet.Range("D6") = pr3.Value
ActiveSheet.Range("D7") = pr4.Value
ActiveSheet.Range("D8") = pr5.Value
ActiveSheet.Range("E4") = ci1.Value
ActiveSheet.Range("E5") = ci2.Value
ActiveSheet.Range("E6") = ci3.Value
ActiveSheet.Range("E7") = ci4.Value
ActiveSheet.Range("E8") = ci5.Value
ActiveSheet.Range("F4") = TextBox10.Value
ActiveSheet.Range("F5") = cours2.Value
ActiveSheet.Range("F6") = cours3.Value
ActiveSheet.Range("F7") = cours4.Value
ActiveSheet.Range("F8") = cours5.Value
ActiveSheet.Range("G4") = ca1.Value
ActiveSheet.Range("G5") = ca2.Value
ActiveSheet.Range("G6") = ca3.Value
ActiveSheet.Range("G7") = ca4.Value
ActiveSheet.Range("G8") = ca5.Value
ActiveSheet.Range("H4") = TextBox8.Value
ActiveSheet.Range("H5") = perf2.Value
ActiveSheet.Range("H6") = perf3.Value
ActiveSheet.Range("H7") = perf4.Value
ActiveSheet.Range("H8") = perf5.Value
ActiveSheet.Range("A2") = nomport.Value
Range("B4:B8").Select
Selection.Font.Bold = True
Range("C4:H8").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("H9").Select
Selection.Font.Bold = True
Range("A9").Select
Selection.Font.Bold = True
Range("A1:H9").Select
Selection.Columns.AutoFit
ActiveSheet.Select
ActiveSheet.Name = Range("A2").Value
<!-- / message -->
GEOFF
Afficher la suite