XL 2019 Problème pour récupérer variable

netparty

XLDnaute Occasionnel
Bonjour à tous
Je rencontre un soucis pour récupérer une valeur qui devrait être stockée.
J'utilise ce code pour récupérer les valeurs d'un objet dans un dessin :
VB:
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

Et un bouton pour actualiser les nouvelles données :
Code:
Private Sub Bp_Save_Nouveau_Attributs_Click()

    attributsdestination(0).Update
End Sub
Mais quand je clique sur le bouton j'ai un méssage d'erreur :
Erreur de compilation Sub ou function non définie

Auriez-vous une idée.

Merci d'avance
 

Dranreb

XLDnaute Barbatruc
Bonjour.
Les variables déclarées dans les procédures sont toujours locales et donc volatiles. Elles supplantent d'éventuelles variables globales de mêmes noms.
Les variables devant être conservées, dites globales, doivent être déclarées en têtes d'un module standard, par une instruction Public si elle être doivent être connues dans tous le projet, Private si elle ne doivent être partagées que par les procédures du module.
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof