Bonjour,
En fait , je suis un peu débutant en VBA et j'ai besoin de votre aide . Dans un classeur1 , j'ai créer une useform à la quelle je donne une date , une maturité et un taux1 , lorsque j'execute , elle me cherche un taux2 et taux3 qui correspond à ce taux 1 à partir d'un tableau . Mon problème c'est que je veux que ces informations : le taux2, taux3, taux 1 , date, maturité soient copié dans un autre classeur2 dans un tableau dans la feuille "marketing " dans les colonnes H , G , F ,C ,A .Qui ce qui manque pour que les informations peuvent être copiés ? concentrez vous sur la fin du code . ci dessous mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
Private Sub CommandButton1_Click() 
Dim d As Date 
Dim s As String 
s = ComboBox1.Text 
Select Case s 
Case Is = "52s" 
Worksheets("52 W").Activate 
Case Is = "2A" 
Worksheets("2 ans").Activate 
Case Is = "5A" 
Worksheets("5 ans").Activate 
Case Is = "10A" 
Worksheets("10 ans").Activate 
Case Is = "15A" 
Worksheets("15 ans").Activate 
Case Is = "20A" 
Worksheets("20 ans").Activate 
Case Is = "30A" 
Worksheets("30 ans").Activate 
End Select 
d = TextBox2.Text 
Range("b1").Value = d 
Dim l As Integer 
l = Range(Range("a14"), Range("a14").End(xlDown)).Count 
Dim aa As Double 
Dim bb As Double 
Dim a As Integer 
Dim b As Integer 
Dim cost As Boolean 
cost = False 
Dim r As String 
Dim i As Integer 
For i = 1 To l 
If Range("a" & 13 + i).Value = r Then 
aa = Range("c" & 13 + i).Value 
bb = Range("d" & 13 + i).Value 
cost = True 
i = l + 1 
End If 
Next 
If cost = False Then 
MsgBox ("Verifier le taux1") 
Else 
Dim appExcel As Excel.Application 'Application Excel 
Dim wbExcel As Excel.Workbook 'Classeur Excel 
Dim wsExcel As Excel.Worksheet 'Feuille Excel 
'Ouverture de l'application 
Set appExcel = CreateObject("Excel.Application") 
'Ouverture d'un fichier Excel 
Set wbExcel= 
appExcel.Workbooks.Open("C:\Users\sossso\Desktop\\classeur2.xls") 
'wsExcel correspond à la première feuille du fichier 
Set wsExcel = wbExcel.Worksheets("marketing") 
Dim lo As Integer 
lo = wsExcel.Range(wsExcel.Range("b6"), wsExcel.Range("b6").End(xlDown)).Count 
lo = lo + 6 
wsExcel.Range("a" & lo).Value = d 
wsExcel.Range("c" & lo).Value = ComboBox1.Text 
wsExcel.Range("h" & lo).Value = TextBox3.Text 
wsExcel.Range("f" & lo).Value = aa 
wsExcel.Range("g" & lo).Value = bb