Problème modification zone de liste

cs_geoff85 Messages postés 3 Date d'inscription mardi 22 avril 2008 Statut Membre Dernière intervention 22 avril 2008 - 22 avril 2008 à 16:16
cs_geoff85 Messages postés 3 Date d'inscription mardi 22 avril 2008 Statut Membre Dernière intervention 22 avril 2008 - 22 avril 2008 à 17:16
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

2 réponses

cs_geoff85 Messages postés 3 Date d'inscription mardi 22 avril 2008 Statut Membre Dernière intervention 22 avril 2008
22 avril 2008 à 17:16
GEOFF
0
cs_geoff85 Messages postés 3 Date d'inscription mardi 22 avril 2008 Statut Membre Dernière intervention 22 avril 2008
22 avril 2008 à 17:16
Personne n'a une petite idée?

GEOFF
0