1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| Sub SaveData()
Dim i As Long
Dim j As Long: j = 1
Dim Target As Range
i = Range("t_Contacts").ListObject.ListRows.Add().Index
With usfContact
Do While j <= Range("t_Mappage").Rows.Count
Set Target = Range("t_Contacts[" & Range("t_Mappage[Colonne]")(j).Value & "]")(i)
Select Case Range("t_Mappage[Type]")(j).Value
Case "T", "B"
Target.Value = .Controls(Range("t_Mappage[Contrôle]")(j).Value).Value
Case "N"
Target.Value = .Controls(Range("t_Mappage[Contrôle]")(j).Value).Value * 1
Case "D"
Target.Value = CDate(.Controls(Range("t_Mappage[Contrôle]")(j).Value).Value)
End Select
j = j + 1
Loop
End With
End Sub |
Partager