Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Autres testez la version beta 1.0 de mon vba Indenter

patricktoulon

XLDnaute Barbatruc
Bonjour à tous
je vous présente la version beta 1.0 du Vba indenter by patricktoulon
je la met ici afin que vous la testiez
elle n'agit pas sur les module pour l'instant elle travaille sur un textbox
il faut quand même activer l'accès approuvé au model du vbproject


il est bien entendu qu'a terme ce sera un XLA parfaitement intégré dans le VBE
pour l'instant je tiens à ce que l'on puisse trouver tout les petits défauts si on en trouve
j'attends vos retours
merci d'avance
 

Pièces jointes

  • Vba Indenter Patricktoulon.xlsm
    34.9 KB · Affichages: 18
Trier par date Trier par votes

laurent950

XLDnaute Accro
Bonjour @patricktoulon

je viens de tester, il semble que les Dim ne s'indente pas comme il faut, j'ai fait le test.
Faire le test en cochant que cette case (Indent [ Déclarations (Dim) ]) pour voir le résultat :
Les Dim ne suivent pas. pour contribuer a t'aider sur ton développement.


merci code Super
 
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
l'opération mal placée c'est tout
deplace ces lignes juste avant le next
VB: 
   If EleM.getattribute("typ") = "dim" Then
                If Not CheckDim Then EleM.setattribute "indent", 0 Else EleM.setattribute "indent", "1"
   End If
 
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
bonjour
remplacez childnodes(0) par children(0)
ça c'est parce que on vous a shunté IE et que du coup les librairies dom sont un peu gouigouik
ça me le fait sur un autre pc W11 que j'ai en test
 
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
aalez c'est parti pour la version 1.2
je vous l'avait dit ce sera un xlam et ça en est un
j'ai corrigé divers petits detail
design plus soigné
checkbox actif dans l’instante
les trois boutons fonctionnent
parfaitement intégré dans le VBE au click droit dans les modules
possibilité d'indenté sans passer par l'interface
bref elle prend du corps ma petite bébête
désormais vous pourrez suivre l’évolution de ce complément ici dans ma chaine :

https://www.youtube.com/playlist?list=PL-Ds4-xRpvZss-ZizVneh-Nlah7oCpB_w

www.youtube.com

vous savez comment on intègre un xla(m) hein ?!!

qu'en pensez vous ?
 

Pièces jointes

  • Vba Indenter Interface Patricktoulon.xlam
    56 KB · Affichages: 4
Dernière édition:
Vote positif 0 Vote négatif

Nicolas JACQUIN

XLDnaute Occasionnel
Supporter XLD
Re Patrick,
Module tout bête

VB: 
Sub appliqueCouleurs()
For I = 0 To 56
Cells(I + 1, 5).Interior.colorIndex = I
Next I
End Sub

Clic droit, Indenter le module

Code: 
Sub appliqueCouleurs()
    For I = 0 To 56
        Cells(I + 1, 5).Interior.colorIndex = I
        Next I
End Sub

For i next i ??
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…