Précision sur "DialogSheets"

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion Stanislas
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
S

Stanislas

Guest
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
 
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Retour