XL 2013 Vba Indenter Interface v4.0a

Sub test()
Dim a As Long, X As Integer, Y As Double

If jour = 1 Then
MsgBox "Hello, world!"
End If

If truc = machin Then chose = bidule 'un simple if in line

If zozo = 10 Then 'commentaire
zozo = 11
End If

If a = 1 Then X = 2: Y = 3: z = 4 'un if avec 3 recharge variable inline

If b > 10 Then truc = 99 ' simple in line

If zzz Then a = 1: b = 2 Else b = 3: C = 4 'un if avec 4 recharges variable avec un Else (inline

If a = 2 And u = 3 Then If R = 4 Then truc = "gogo" '2 if le 2d dependant du premier(then) inline

If X = 5 Then If Y = 6 Then z = 7: t = 8 '2 if le 2d dependant du premier(then) inline 2 recharges variable inline

If erreur Then GoTo Fin: logErreur = True 'if + goto +variable inline

If Not IsNumeric(Valz) Then MsgBox "Erreur": Exit Sub 'if+msgbox+sortie inline

If k = 1 Then X = 3: Y = 4 'if 2recharge variable inline

If ok Then Call go: Call Done 'if 2 call inline

If flag Then DoIt: UndoIt

'if le 2d dependant du premier(then) inline 2 recharges variable inline
If Left(Trim(TbL(I)), 3) = "If " Then If TbL(I) Like "* '*" Then comm = "'" & Split(TbL(I), " '")(1): TbL(I) = Split(TbL(I), " '")(0)

'if le 2d dependant du premier(then) inline 2 recharges variable dans le 2d If avec un Else ( inline)
If TypeOf t Is Range Then If t.Areas.Count = 1 Then t = t.Value Else TransposeXV3 = t: Exit Sub

'3 if consécutifs
If truc = 1 Then If chose = 2 Then If machin = 3 Then chose = 1

'3 if consécutifs avec un else
If truc = 1 Then If chose = 2 Then If machin = 3 Then chose = 1 Else chose = 0


If truc = 6 Then
chose = 10
ElseIf truc = 8 Then 'commentaire
chose = 11
ElseIf truc = 9 Then
chose = 12
End If

'encore plus hard
'un if avec 4 recharges variable avec un Else (inline mais coupé par underscore
If zzz Then a = 1: b = 2 Else _
b = 3: _
C = 4


' un If 2 recharges variables  coupé par underscore sans End IF
If truc = 8 Then _
machin = " _truc2": _
chose = bidule: _
www = aaa

If InStr(TbL(I), "'") And Left(Trim(TbL(I)), 1) <> "'" Then
comm = commentaire(TbL(I))
'If Len(comm) > 0 Then TbL(i) = Split(TbL(i), comm)(0)
End If

'prétraitrement des ligne If sous toutes sesformes
If Left(Trim(TbL(I)), 3) = "If " Then
If TbL(I) Like "* TOTOTITI *" Then
TbL(I) = Replace(TbL(I), " Then", " Then" & vbCrLf) & vbCrLf & "End If" & vbCrLf & "End If"
Else
If TbL(I) Like "*: *" And Not TbL(I) Like "* _*" Then TbL(I) = Replace(Replace(TbL(I), " Then", " Then" & vbCrLf), "Else", vbCrLf & "Else" & vbCrLf): F = 1
End If
End If

'remise en place du mommentaire
If coupe Then TbL(I) = comm & vbCrLf & TbL(I) Else TbL(I) = TbL(I) & comm
TbL(I) = Replace(TbL(I), Chr(34) & " " & Chr(182) & " " & Chr(34), Chr(34) & " : " & Chr(34))

If Right(Trim(TbL(I)), 2) = " _" Then coupe = False:
If Trim(TbL(I)) Like "*: "" *" Then coupe = False ' pour les cas ou cette condition serait entre guillemet donc a ne pas prendre en compte
If Trim(TbL(I)) Like "*"": *""" Then coupe = False ' pour les cas ou cette condition serait entre guillemet donc a ne pas prendre en compte

End Sub

'@Description "Check that: "Approved access to the VBA project object model" is enabled."
Private Function HasTrustedAccess() As Boolean
    Dim objVBE As Object
    On Error Resume Next
    Set objVBE = Application.VBE
    Dim isChecked As Boolean
    isChecked = (Err.Number = 0)
    On Error GoTo 0
    HasTrustedAccess = isChecked
End Function

Public WithEvents app As Application
'vba Indenter Interface
Private Sub Workbook_Open()
On Error Resume Next
Set vbcomps = ThisWorkbook.VBProject.VBComponents
    If Err Then
        Err.Clear
        If MsgBox("L'accès approuvé au modele d'object du projet vba" & vbCrLf & _
                                " n'a pas été activé" & vbCrLf & _
                                "Voulez vous l'activer?", vbYesNo + vbInformation) = vbYes Then

              With CreateObject("WScript.Shell")
                .RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application.Version & "\Excel\Security\AccessVBOM", 1, "REG_DWORD"
             End With
             DoEvents
             MsgBox "Vous devez redémarrer Excel", vbOK
            Application.DisplayAlerts = False
            Application.Quit
        Exit Sub
        Else
            MsgBox "D'accords Vba Indenter Iinterface  est deactivé": Exit Sub
        End If
    Else
        Set app = Application
     End If
End Sub

'-------------------------------------------------------------------------------------
'Return True if the "Trust Access to the VBA Project Object Model" checkbox is checked
'-------------------------------------------------------------------------------------
Private Function VBATrusted(Optional PromptUser As Boolean = True) As Boolean
    Dim Version As String
    Dim ErrNumber As Long
    Dim BN As Integer
   
    'Check access to VBA Project
    GoSub CheckVBATrusted
   
    'Access denied
    If Not ErrNumber = 0 Then
        'Prompt the User to change the Macros Security
        If PromptUser Then
            BN = MsgBox("La sécurité actuelle des macros n'autorise pas l'accès au code VBA." & vbCrLf & _
                "Vous serez invité à modifier cette option si vous acceptez." & vbCrLf & vbCrLf & _
                "Pour autoriser l'accès au code VBA, cochez la case ""Autoriser l'accès au modèle objet du projet VBA""", _
                        vbOKCancel + vbInformation)
            If BN = vbCancel Then Exit Function
           
            Application.CommandBars.ExecuteMso "MacroSecurity"
           
            'Check access to VBA Project
            GoSub CheckVBATrusted
        End If
    End If
   
    'Return value
    VBATrusted = (ErrNumber = 0)
    Exit Function
   
    'Internal Sub to check access to VBA Project
CheckVBATrusted:
    On Error Resume Next
    Version = ThisWorkbook.VBProject.VBE.Version
    ErrNumber = Err.Number
    On Error GoTo 0
    Return
End Function

Public WithEvents app As Application
'vba Indenter Interface
Private Sub Workbook_Open()
On Error Resume Next
'on teste si on peut collectionner les modules
Set vbcomps = ThisWorkbook.VBProject.VBComponents
    If Err Then
        Err.Clear
        If MsgBox("L'accès approuvé au modele d'object du projet vba" & vbCrLf & _
                                " n'a pas été activé" & vbCrLf & _
                                "Voulez vous l'activer?", vbYesNo + vbInformation) = vbYes Then

              
     'ici normalement je lance une sub en addressof AVEC UN PEU DE RETARD par un settimer qui me tape les touches qu'il faut car la fentre est modale
     Application.CommandBars.ExecuteMso "MacroSecurity" 'si c'est oui on ouvre la fenêtre  de la case a cocher
     'ELLE EST MODALE DONC TANT QU ELLE EST OUVERTE ON IRA PAS PLUS LOIN DANS LE CODE SUB POUR LA SUB EN SETTIMER
      'donc les wscript.shell.sendkeys et compagnie bye bye!!ON OUBLIE C EST PAS LA PEINE
     'MAIS comme JE NE VEUT PAS PAS D API DANS MON VBA INDENTER INTERFACE !!!!!!!! BEN ON S EN PASSE
     'je le coche donc à la main quand la fenêtre s'ouvre
      
      
      'LA FENTRE FERM2E LE CODE CONTINUE
      
      Set app = Application 'je créée un event application qui va gérer  tout les events possible
      
        Else
            'si je dis non bye bye vba indenter interface !!!!
            MsgBox "D'accords Vba Indenter Iinterface  est deactivé": Exit Sub
        End If
    Else
        'si c'est deja coché  ca fait le job
        Set app = Application 'je créée un event application qui va gérer  tout les events possible
        ' en dehors des events workbook actif
     ' ces events re enclenche les menu  dans vbe qui est géré par une classe
     ' car les ".onAction" des boutons de commandbars ne sont pas gérables dans  le VBE
     End If
End Sub