Précision sur "DialogSheets"

[Stanislas]

Bonjour Abel ,

mon fichier étant de taille imposante même en zippant je ne
pense pas pouvoir vous l'envoyer néanmoins j'ai remarqué le type de lignes qui posent problème .

Ex : dans la procédure TD

Sub ReinitTD()
Dim reinit As Integer

reinit = DialogSheets('ReinitTD').DrawingObjects('Zone Combinée 5')

'cette ligne passe

If DialogSheets('ReinitTD').OptionButtons('Case d'option 7') = xlOn Then

'' cette ligne NON message error : impossible de lire la propriété OptionButtons de la classe Dialogsheets
ET cela fait lamême chose pour les propréités Editboxes

Sheets('TxDef').Select

If reinit = 1 Then
Range('C11:J18').Select
Selection.ClearContents
Range('N11:U18').Select
Selection.ClearContents
Range('Y11:AF18').Select '
Selection.ClearContents
Range('AJ11:AQ18').Select
Selection.ClearContents
Range('AU11:BB18').Select
Selection.ClearContents