Complément (Vba Indenter Interface) V 3.1 CFx 2

[fanch55]

au fait tu sais pas il y a une autre nouveauté majeure
reste assis hein !!
Regarde la pièce jointe 1197224

Ah bin en voilà une bonne nouvelle bien pratique !!!!

 

[patricktoulon]

tu le vois comment le sort

 

[patricktoulon]

et allez !!!
pour le coup une option en plus les ".sort"

 

[fanch55]

et allez !!!
pour le coup une option en plus les ".sort"

Ça me va bien le normalise ...
Mais c'est une expression personnelle ....

Dans le cadre absolu permis par le langage, on peut même écrire la ligne de code ainsi :

    [TRI_RESU]. _
        Resize([NBJR]). _
            Sort _
                Key1:=Range("L5"), Order1:=xlDescending, DataOption1:=xlSortTextAsNumbers, _
                Key2:=Range("P5"), Order2:=xlDescending, DataOption2:=xlSortNormal, _
                Key3:=Range("D5"), Order3:=xlAscending, DataOption3:=xlSortNormal, _
                Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

De toute façon, l'indentation est là pour "aider" :
on peut toujours modifier les lignes à sa convenance par la suite .

 

[patricktoulon]

purée la il ya deux regles
les 3 premières ligne décaler à au centre de la précédente et le reste à l'underscore
la désolé je peux pas hein
par contre je peux au centre de la précédente si c'est mieux

il me reste plus qu'a trouver le moyen pour le scroll en 64 et c'est prêt
puisque maintenant le scrol est partout dans l'environnement

 

[patricktoulon]

a recherche en avant en arrière

 

[patricktoulon]

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

Vba Indenter Interface v 3.1

Bonjour à tous
voici la mise à jour 3.1 comme promis

DU NOUVEAU RIEN QUE DU NOUVEAU​

1. Nouveau ruban(plus vrai que nature)
2. Nouveau moteur(bimoteur(html/string))beaucoup plus puissant
3. plus d'option d'indentation et une normalisation des cas particuliers
4. un moteur de...

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

 

[Dudu2]

Très impressionnant ! Bravo !

 

[Dudu2]

Comme le fichier de @patricktoulon est un .xlam (un Complément ou Addin) , je vous passe un petit classeur que j'utilise pour gérer les Compléments rapidement sans aller dans le répertoire de stockage ni dans les options.

Pour les très rares personnes n'utilisant pas le répertoire standard de stockage des Compléments, la constante AlternativeUserLibraryPath permet de le spécifier.

 

[fanch55]

Salut Pat, le source dans le zip

Tu as un rept avec le nombre à -1

 

[patricktoulon]

Bonsoir fanch55
ben déjà je ne peux pas l'importer dans un classeur alors a mon avis c'est ton fichier qui a mal

 

[patricktoulon]

Très impressionnant ! Bravo !

merci dudu
pourtant fanch55 ne m'a pas ménagé avec ces codes de fou
mais tant mieux j'ai un résultat top
bon visiblement fanch55 a des soucis si c'est comme ces codes c'est bon je m’inquiète pas
cela dit je n'ai pas mis de sécurité sur le indent =-1 j'aurais du
donc provisoirement mettre un if sur l'attribut indent juste avant
mais a mon avis c'est vraiment exceptionnel si le code est bon le code saura l'indenter
la chez moi dans un fichier vierge le blank ne veux pas s'importer erreur en cascade pour terminer par un "memoire insuffisante" j'insiste même pas

 

[fanch55]

Bonsoir fanch55
ben déjà je ne peux pas l'importer dans un classeur alors a mon avis c'est ton fichier qui a mal

Je viens de l'importer dans un classeur vierge.
Je te joins celui-ci

 

[patricktoulon]

hoh!! le salo!!!
j'"ai pris le texte par le blocknote

    Cmd_Valider.Visible = Tb_Sc_0 <> vbNullString _
 And Tb_Sc_1 <> vbNullString _
 And Tb_Sc_2 <> vbNullString _
 And Tb_Sc_3 <> vbNullString

bon ben c'est simple si il y a une erreur sur le ligne " _" c'est tout simplement qu'il n'a pas trouver de repère soi "(" soit """
donc c'est tout simplement un des cas non répertorié que je cite dans la vidéo quand je parles de ces lignes
donc on met un simple correctif j'aurais du le mettre je sui bète j'etais tellement pressé d'en finir
donc l'indent du bloc parent plus une tabulation soit 8 espaces
juste avant la ligne qui plante
If IsError(SpoC) Then SpoC = Application.Rept(" ", 8)
terminer
en fait ca fait parti des exeptions qui ne permette pas de repère puisqu'il y a 2 "_" dans la ligne conclusion indentation normalisée sans pilotage (j'ai dis tout ça dans la vidéo)

Dans n'importe quel cas cette erreur se produit uniquement sur les lignes avec "_"
donc indentation normalisée s'impose


craint degun patricktoulon

 

[fanch55]

Toujours dans le module Blank :