Test existence propriiété en BVA

[Pierrot93]

Bonjour le forum, à tous et à toutes

je cherche une synthase VBA me permettant de tester si une propriété existe pour un objet donné.

par exemple, comment savoir si pour un graphique, la propriété 'MinimumScale' existe avant de lancer l'instruction ci dessous.

ActiveChart.Axes(xlCategory).MinimumScale = '01/01/2004'

j'espère être suffisamment précis.

j ai recherché dans l aide vba et le forum mais je n'ai rien trouvé !!

Merci d avance à tous ceux et toutes celles, qui voudront bien m'aider

bonne journée à tous

@+

 

[Bernard_XLD]

Bonjour Pierrot93, le forum

Utilises une fonction

Function Test_minimumscale(Chart_Actif As Chart) As Boolean
Dim Test_exist
Test_minimumscale = False
On Error GoTo Fin:
Test_exist = Chart_Actif.Axes(xlCategory).MinimumScale
Test_minimumscale = True
Fin:
End Function

pour le test (graphique actif)
MsgBox Test_minimumscale(ActiveChart)

Cordialement, A+

 

[Pierrot93]

Bonjour Yeahou, le forum

merci de ta réponse Yeahou, en effet c'est la solution que je vais appliquer, en attendant j'étais passé par un 'on error resume next' qui ne me satisfaisais pas

encore merci et bonne journée.

@+