Public Sub MaMacro() Call Macro_1() Call Macro_2() Call Macro_a() Call Macro_b() Call Macro_c() End sub
Public Sub MaMacro() Call macrosynthese Call suprimeligne Call marcotest Call Prixspot Call spreadDeCredit Call valo_annuel Call valo_coupon_trimestriel Call valo_coupon_semestriels End Sub
Call macrosynthese
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionSub nomduSub() '.. End sub
Sub test() Run "macrosynthese " End Sub
Sub nomduSub() '.. End sub
Public Sub suprimeligne() Dim numero As Long Dim ws_mc As Worksheet Dim ws_sy As Worksheet Dim i_mc As Long Dim i_sy As Long Dim nblig_mc As Long Dim nblig_sy As Long Set ws_mc = Worksheets("MC") Set ws_sy = Worksheets("Synthèse") nblig_mc = ws_mc.Cells(Rows.Count, 7).End(xlUp).Row nblig_sy = ws_sy.Cells(Rows.Count, 1).End(xlUp).Row For i_sy = nblig_sy To 1 Step -1 If ws_sy.Cells(i_sy, 3).Text Like "*EMTN*" Or _ ws_sy.Cells(i_sy, 3).Text Like "*Oblig*" Then numero = ws_sy.Cells(i_sy, 1).Value For i_mc = 1 To nblig_mc If numero = ws_mc.Cells(i_mc, 7).Value Then If ws_mc.Cells(i_mc, 27).Text <> "TF- Post" Then ws_sy.Rows(i_sy).Delete End If Exit For End If Next End If Next End Sub