Private Sub BP_Bloc_Destination_Click()
' *****************************************
' * Choix du bloc destination
' *****************************************
Dim BlocDestination As AcadEntity
Dim attributsdestination As Variant
On Error Resume Next
If Lbl_Onglet_Source_Actif = "" Then
MsgBox "Veuilliez activer une présentation !"
Else
USR_BlocsATT.Hide
ThisDrawing.Utility.GetEntity BlocDestination, "pick Label stn block : "
attributsdestination = BlocDestination.GetAttributes
End If
' * Remplir les TextBox destination
LblD_att1 = attributsdestination(0).TagString ' Etiquette attribut
TbD_att1 = attributsdestination(0).TextString ' Valeur attribut
LblD_att2 = attributsdestination(1).TagString ' Etiquette attribut
TbD_att2 = attributsdestination(1).TextString ' Valeur attribut
LblD_att3 = attributsdestination(2).TagString ' Etiquette attribut
TbD_att3 = attributsdestination(2).TextString ' Valeur attribut
USR_BlocsATT.show
End Sub