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

Complément (Vba Indenter Interface) V3.1.C Fx4

Dudu2

XLDnaute Barbatruc
Oui, enfin libéré de cette galère....

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Attachments
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Attachments

Créer ou modifier SaveZoneInformation DWORD

(delete) or 0 = Enable (To Enable Downloaded Files from being Blocked for All Users)
1 = Disable (To Disable Downloaded Files from being Blocked for All Users)

Pour ne pas avoir à débloquer mettre la valeur de SaveZoneInformation DWORD à 1
 

patricktoulon

XLDnaute Barbatruc
re
Bonjour @Dudu2
je sais pas
ton complément selon si tu le met dans le dossier prevu ou un autre ca me fait des effets de ce genre moi aussi
pour les test mon xlam est sur le bureau donc forcement approuvé
je viens de finir le 3.0 et je l'ai installé dans le dossier des addins
et je n'ai pas ce problème
je développe avec 2013 et 2016
normalement je pose la version 3.0 aujourd'hui
donc très prochainement (selon la modé) disponible très vite
il m'a fallu plus de 250 heures de travail depuis la version beta pour obtenir un résultat quasi parfait
soyez patient
en tout cas vous pourrez voir la video d'ici 1 h30 environ
merci pour le tuyaux sur le disabled de la protection
tu devrais le mettre dans les astuces a fin que ça ne soit pas perdu dans les messages
 

Dudu2

XLDnaute Barbatruc
Oui ok, ça fonctionne maintenant, et je ne suis plus obligé de faire Débloquer !
Par contre j'ai un plantage dans l'indentation lorsque je fais:
-> Indenter Interface / Indenter / Indenter dans le module.
-> Indenter Interface / Indenter / Indenter dans le visuel ça fonctionne.

 

Pièces jointes

  • Classeur1.xlsm
    17.5 KB · Affichages: 1

Dudu2

XLDnaute Barbatruc
Sinon pour info, pour mes commentaires décalés j'ai ajouté ça:
VB:
    ReS = Join(TbL, vbCrLf)
    htmlCod = res2
    OriginalHtmlCode = PrE.outerhtml
    'Debug.Print ReS
 
    ReS = MesCommentaires(ReS)

    TextBox2 = ReS
    IndentCode = ReS
    Unload barprogress
End Function

Private Function MesCommentaires(ReS As Variant) As String
    Dim TabLig() As String
    Dim i As Long
    Dim k As Long
    Dim p As Long
   
    TabLig = Split(ReS, vbCrLf)
    p = xlNone

    For i = LBound(TabLig) + 1 To UBound(TabLig)
        k = i - 1
        Do While k >= 1 And (Left(Trim(TabLig(k)), 1) = "'" Or Len(Trim(TabLig(k))) = 0)
            If Not Len(Trim(TabLig(k))) = 0 Then
                If p = xlNone Then
                    For p = 1 To Len(TabLig(i))
                        If Not Mid(TabLig(i), p, 1) = " " Then Exit For
                    Next p
                    p = p - 1
                End If
                TabLig(k) = Left(TabLig(i), p) & Trim(TabLig(k))
            End If
           
            k = k - 1
        Loop
        p = xlNone
    Next i
   
    MesCommentaires = Join(TabLig, vbCrLf)
End Function

Pour avoir ça:
Code:
Option Explicit

'--------------
'C'est le SUB A
'--------------
Sub a()
    Dim i As Integer

    '----
    'test
    '----
    If i = 1 Then
        i = 2

    '-----
    'Sinon
    '-----
    Else
        i = 0
    End If

    Select Case i
        '-----
        'Cas 1
        '-----
        Case 1
            i = 2
          
        '-----
        'Cas 2
        '-----
        Case 2
            i = 3
    End Select
End Sub
 
Dernière édition:

patricktoulon

XLDnaute Barbatruc
l'erreur que tu a est due
soit au fait que tu n'ai pas coché accès approuvé au modèle d'object du projet vba
c'est ce qui te permet d'accéder au module par vba


soit que tu n'a pas activer la librairie
 

Dudu2

XLDnaute Barbatruc
Ok, alors l'accès y est depuis très longtemps...

Mais la Référence Microsoft Visual Basic for Applcation Extensibiliy je ne la trouve pas dans ma liste.


J'ai trouvé ce sujet:

et ajouté ce code dans mon fichier:
VB:
Sub Auto_Open()
    ' Active "Microsoft Visual Basic for Applications Extensibility 5.3"
    On Error Resume Next
    ThisWorkbook.VBProject.References.AddFromGuid "{0002E157-0000-0000-C000-000000000046}", 5, 3
End Sub

Alors maintenant je l'ai bien, mais le plantage est toujours là.


Par contre Indenter dans le module (sans passer par l'interface) ça fonctionne, même sans la Reference.
 

Dudu2

XLDnaute Barbatruc
Autre problème. Désolé je fais pas exprès !

J'ai 2 classeurs ouverts:


Indetenter / Interface:

 

patricktoulon

XLDnaute Barbatruc
bizarre cette erreur a été corrigée pourtant
apres le A=A+1: Redim preserve tbl(1 to a):tbl(a)="----............
 

fanch55

XLDnaute Barbatruc
Bonjour @patricktoulon,
J'ai bricolé et maintenant j'ai ça après activation du complément. Je ne m'en sors pas, ça m'énerve.
Regarde la pièce jointe 1197035
 

patricktoulon

XLDnaute Barbatruc
patricktoulon a mis à jour Complément (Vba Indenter Interface) avec une nouvelle entrée de mise à jour:

Complement Vba Indenter Interface 3.0


Lire le reste de cette entrée de mise à jour...
 

patricktoulon

XLDnaute Barbatruc
re
bientôt dispo
la version 3.0 ne sera pas publiée je suis déja à la version 3.1
 
Dernière édition:

Dudu2

XLDnaute Barbatruc
Bonjour @fanch55,
Merci pour l'info.
J'ai regardé avec Notepad++ le contenu de ces .reg et c'est assez impressionnant pour l'un et quasi-vide pour l'autre qui fait la suppression. Perso je me méfie des .reg que je ne comprends pas toujours et je préfère y aller à la mano.
Alors maintenant y a le choix avec cette astuce.
 
Dernière édition:
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…