Macro d'update generale?

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

personne?

Bonjour,

Dois je comprendre que c'est impossible du coup?

Merci par avance,

Rechercher des sujets similaires à "macro update generale"