Excel VBA Gestion bloc dynamique et paramètre de visibilité

[Dartsu]

Bonjour à tous,

 

je fais appel à votre aide pour un problème de gestion de paramètre de visibilité dans un bloc dynamique à partir d'un code VBA sou Excel.

 

Ci-joint mon bout de code :

 

Dim Chemin_block As String

Dim insert_point(0 To 2) As Double

Dim JHEbloc As AcadBlockReference

 

Chemin_block = Feuil9.Cells(84, 7) & Feuil9.Cells(84, 1) & ".dwg"

insert_point(0) = Feuil9.Cells(84, 5): insert_point(1) = Feuil9.Cells(84, 6): insert_point(2) = 0:

 

'initialisation du bloc avec le point d'insertion et chemin d'accès

Set JHEbloc = AutoCAD.AcadApplication.ActiveDocument.ModelSpace.InsertBlock(insert_point, Chemin_block, 1#, 1#, 1#, 0)

 

'Modification des attributs

Dim JHEprops As AcadDynamicBlockReferenceProperty

Dim Attrbuts As Variant

Dim inc As Integer

 

Attrbuts = JHEbloc.GetDynamicBlockProperties

 

For inc = 0 To UBound(Attrbuts)

Set JHEprops = Attrbuts(inc)

 

If JHEprops.PropertyName = Feuil9.Cells(83, 4) Then

JHEprops.Value = Feuil9.Cells(84, 4).Value

End If

 

If JHEprops.PropertyName = Feuil9.Cells(83, 2) Then

JHEprops.Value = Feuil9.Cells(84, 2).Value

End If

 

If JHEprops.PropertyName = Feuil9.Cells(83, 3) Then

JHEprops.Value = Feuil9.Cells(84, 3).Value

End If

 

Next inc

 

 

 

Mon problème se situe sur la ligne en rouge, les autres paramètres sont des propriétés dynamique mais celui ci est le paramètre de Visibilité, je pense que celui ci ne se gère pas comme je l'ai fait mais je trouve pas la solution ...

 

Merci d'avance !

[DenisHen]

Salut.

 

Juste une question bête, les attributs se gèrent comme les propriétés ?

 

Car sans exemple, je ne peux pas en faire plus... ;)

[Dartsu]

Salut,

 

En effet les paramètres se gèrent presque pareil que les propriétés par contre mon problème c'est que je pense que le paramètre de visibilité se gère autrement ... et la je suis perdu :huh:

[Dartsu]

Problème résolu !! :(rires forts):

 

En fait il faut que le résultat soit du texte donc il faut définir une variable texte qui va prendre la valeur qui m’intéresse

 

 

If JHEprops.PropertyName = Feuil9.Cells(83, 4) Then

Dim t As String

t = Feuil9.Cells(84, 4).Value

JHEprops.Value = t 'Feuil9.Cells(84, 4).Value

End If

 

Merci quand même d'avoir regardé