bonjour à tous,
j'ai une enfin plusieurs macros concernant la procédure d'update d'un ensemble de champ propre à un item
les macros ici présentes fonctionnent correctement.
néanmoins je dois désormais reproduire cela pour les 20 items concernés dans mon form
aussi il y a la méthode ou je dois reproduire cet ensemble adaptés au 20 champ
ce que je me demandais est il possible d'adapter en macro générale le traitement de cela en select case?
Private Sub Del3_Start_month_Enter()
Del3_Start_month = ""
End Sub
Private Sub Del3_End_month_Enter()
Del3_End_month = ""
End Sub
Private Sub Del3_Achievements_Enter()
Del3_Achievements = ""
End Sub
Private Sub Update_Del3_Click()
Match = Application.Match(ProjectId & "_3", Worksheets("Deliverables").Columns("A"), 0)
If MsgBox("Are you sure you want updating deliverable " & Del3_Nr & " in line " & Match, vbYesNo, "Confirmation") = vbNo Then Exit Sub
Del3_Start_month = Replace(Del3_Start_month, "M ", "")
Del3_End_month = Replace(Del3_End_month, "M ", "")
Del3_Achievements = Replace(Del3_Achievements, "%", "")
DelNew_Start_date = DateAdd("m", Del3_Start_month - 1, StartDate)
DelNew_End_date = DateAdd("m", Del3_End_month, StartDate) - 1
Cells(Match, 4) = Del3_Nr
Cells(Match, 5) = Del3_Name
Cells(Match, 6) = Del3_PI
Cells(Match, 7) = Del3_Start_month
Cells(Match, 8) = DelNew_Start_date
Cells(Match, 9) = Del3_End_month
Cells(Match, 10) = DelNew_End_date
Cells(Match, 11) = Del3_Achievements & "%"
UserForm_Relaunch
MultiPage1.Value = 3
End Sub
merci par avance